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 = TrueEnd SubPrivate Sub Form_Load()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll1_Change()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub Timer1_Timer()VScroll1.Value = VScroll1.Value - 1VScroll2.Value = VScroll2.Value - 1If VScroll1.Value = 0Or VScroll2.Value = 0Then Timer1.Enabled = FalseEnd SubPrivate Sub VScroll1_Change()Label1.Width = VScroll1.ValueEnd SubPrivate Sub VScroll2_Change()Label1.Height = VScroll2.ValueEnd Sub

举报/反馈

刘金玉编程

1.1万获赞 4861粉丝

一个逗比计算机老师。

中小学教师,刘金玉,优质教育领域创作者

关注