VB语言基础重要知识点20（滚动条应用）

  • 2020 年 1 月 23 日
  • 笔记

滚动条控件：水平滚动条和垂直滚动条

如何配置滚动条值的范围？

配置最大值：使用max属性

配置最小值：使用min属性

如何获取滚动条当前的这个位置的值？

使用value属性

滚动条的Change事件：是指当滚动条的当前的值发生变化，就会执行的事件。

如何让窗体加载的出来的时候，就呈现滚动条设置好的颜色呢？

Form_Load事件进行加载

注意：VB中的所有的控件的属性基本上既可以进行设置又可以进行获取。

本节知识效果图：

本节知识源代码：

Dim s As String  Private Sub Command1_Click()MsgBox VScroll1.ValueEnd Sub  Private Sub Form_Load()s = "向下"lblred.Caption = VScroll1.Valuelblgreen.Caption = VScroll2.Valuelblblue.Caption = VScroll3.Value  Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)End Sub  Private Sub Timer1_Timer()  If Command1.Top <= 0 Then    s = "向下"End If  If Command1.Top >= 5040 Then    s = "向上"End If    If s = "向下" Then    Command1.Top = Command1.Top + 10End If  If s = "向上" Then    Command1.Top = Command1.Top - 10End If    End Sub  Private Sub VScroll1_Change()lblred.Caption = VScroll1.ValueForm1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)  End Sub  Private Sub VScroll2_Change()lblgreen.Caption = VScroll2.ValueForm1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)End Sub  Private Sub VScroll3_Change()lblblue.Caption = VScroll3.ValueForm1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)End Sub

相关文章：

  1. VB语言基础重要知识点01
  2. VB语言基础重要知识点02
  3. VB语言基础重要知识点03
  4. VB语言基础重要知识点04
  5. VB语言基础重要知识点05
  6. VB语言基础重要知识点06
  7. VB语言基础重要知识点07
  8. VB语言基础重要知识点08
  9. VB语言基础重要知识点09
  10. VB语言基础重要知识点10
  11. VB语言基础重要知识点11
  12. VB语言基础重要知识点12
  13. VB语言基础重要知识点13
  14. VB语言基础重要知识点14
  15. VB语言基础重要知识点15
  16. VB语言基础重要知识点16
  17. VB语言基础重要知识点17
  18. VB语言基础重要知识点18

VirMach 便宜 VPS

QNews

QNews