VB中的滚动条和颜色的灵活使用【VB学习笔记2020课堂版10】-阿里云开发者社区

VB中的滚动条和颜色的灵活使用【VB学习笔记2020课堂版10】

2022-12-18 170

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： VB中的滚动条和颜色的灵活使用【VB学习笔记2020课堂版10】

知识要点：

1.颜色函数rgb

2.认识和使用横向滚动条和纵向滚动条

3.使用滚动条事件

函数介绍：

rgb函数：用来返回一种颜色。

使用格式rgb(红色，绿色，蓝色)，每种颜色的数据范围在[0,255]

横/纵向滚动条相关设置：

设置最小值：min属性

设置最大值：max属性

设置或获取当前值：value属性

滚动条重要事件：change事件

双击滚动条可以默认进入change事件，这个事件的作用就是当滚动条的值发生变化后会实时触发这个事件，执行这个事件内部的代码。

实现步骤：

1.介绍滚动条相关知识

2.界面实现滚动条的应用

3.使用滚动条事件控制颜色变化

实验活动：

1.拖入三个横向滚动条分别代表：红色、绿色、蓝色的数值范围

2.用label控件来显示颜色

3.颜色函数使用rgb函数

4.通过纵向滚动条数值范围改变label控件的宽度和高度

软件设计界面：

源代码分享：

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll1_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value - 1
VScroll2.Value = VScroll2.Value - 1
If VScroll1.Value = 0 Or VScroll2.Value = 0 Then Timer1.Enabled = False
End Sub
Private Sub VScroll1_Change()
Label1.Width = VScroll1.Value
End Sub
Private Sub VScroll2_Change()
Label1.Height = VScroll2.Value
End Sub