VB语言基础重要知识点20（滚动条应用）
VB语言基础重要知识点20（滚动条应用）
刘金玉编程
发布于 2020-01-23 14:05:36
发布于 2020-01-23 14:05:36
代码可运行
运行总次数：0
代码可运行
滚动条控件：水平滚动条和垂直滚动条
如何配置滚动条值的范围？
配置最大值：使用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相关文章：
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2019-12-26，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
暂无评论
推荐阅读
相关推荐
VB中的滚动条和颜色的灵活使用【VB学习笔记2020课堂版10】
更多 >
腾讯云开发者
