VB中的滚动条和颜色的灵活使用【VB学习笔记2020课堂版10】
简介 INTRODUCTION知识要点：1.颜色函数rgb 2.认识和使用横向滚动条和纵向滚动条 3.使用滚动条事件
课题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
联系作者：刘金玉
长按关注公众号
编程创造城市官网：https://bcczcs.com/
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2020-12-01，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
