滚动条颜色的使用[宝典]
滚动条及颜色的使用
学习目标:
1. 理解VB中颜色的表示方法
2. 学会在VB中使用颜色
3. 学会使用滚动条控件
学习内容:
任务一:制作一个可以任意调配窗体背景色的调色板程序。从上到下在三个文本框中分别输入红、绿、蓝的颜色值(0~255之间的数据)，单击“确定”按钮，就可以使窗体背景变换相应颜色。
分析:
1. VB中颜色的表示
在VB中，是以八位十六进制代码表示颜色的，这八位十六进制颜色代码以前缀符
&H和后缀符&括起来。如:&H00C0C0FF& ，&H8000000F&
颜色代码可以分为四段，
在颜色代码中，第二、三、四段的十六进制数范围为00~FF，对应的十进制数的范围是0~255。由此可知，用颜色代码可以表示256×256×256=16777216种颜色。
2. RGB()颜色函数
格式:RGB(红，绿，蓝)
其中，红、绿、蓝分别为0~255之间的数值，分别代表红、绿、蓝三原色的量值。
利用RGB()函数，一共可以得到256×256×256种颜色，与颜色代码可以表示的
颜色数相同。
编程:
1.
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
界面
在程序界面上放三个文本框，分别用来输入红、绿、蓝数据，再摆放两个命令按钮，
一个功能是“确定”，另一个功能是“退出”。
2. 设计属性
3. 编写代码
4. 运行调试
任务二:
在调色板程序界面上添加三个横向滚动条，用鼠标拖动滚动条上的滑块或单击其左右箭头来替代用键盘向文本框输入数据，并根据数据来改变窗体背景色。
分析:
如果用移动滚动条中的滑块来输入数据，不仅方便，还可以使颜色变化更连续、更平滑。
滚动条的常用属性和常用事件过程(P36)
编程:
1. 设计界面:
在工具箱里找到HScrollBar，在窗体上添加三个横向滚动条。
2. 设置属性
3. 编写代码
4. 运行调试程序
5. 尝试用滚动条的Scroll事件驱动程序执行。
会考相关:
B05、编程实现:程序运行后，单击“开始”按钮，标签的背景色每隔0.1秒自动改变一次，颜色随机;单击“停止”按钮，停止变色。
B07、制作一个能改变窗口背景色的程序。要求:单击“变色”按钮，窗口背景色随机改变一次;单击“结束”按钮，结束程序。
B05、B07综合:制作一个能改变窗口背景色的程序。要求:单击“变色”按钮，窗口背景色随机改变一次;单击“自动变色/停止”按钮控制标签的背景色每隔0.1秒自动改变一次及停止变色，单击“结束”按钮，结束程序。
提示:产生[A,B]区间的随机整数公式:Fix(Rnd*(B-A+1))+A B13、编一个水平移动图片的程序，用滚动条控制图片从初始位置开始移动的移动量(0?移动量?4000，图片的初始位置:Image1.Left =0)。
B22、制作一个拖动水平滚动条设置年份的程序。要求:程序运行开始，“出生年份”框为空;当拖动水平滚动条时，“出生年份”框中显示水平滚动条的当前值;单击“结束”按钮退出程序。
B20、制作一个拖动水平滚动条设置年龄的程序。要求:程序运行开始，年龄框为空;当拖动水平滚动条时，年龄框中显示水平滚动条当前值。
2A14、已知匀加速运动的初速度为10m/s，加速度为0.6m/s，用滚动条表示时间t(0?t2?50),计算某一时刻t物体的位移。提示:s,Vt，at,2 0
A13、某市近10年的生产总值情况如下:第1年是1200亿元，以后平均每年以6%的速度增长，通过移动滚动条求各年份该市生产总值是多少,
年数基准年生产总值，(1，增长率)提示:某年生产总值,
C14、编程求累加101+102+103+„„+X的值(101?X?200)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累加结果显示在“结果”框中。
C13、编程求10*11*12*„*X (10?X?20)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累乘结果显示在“结果”框中。
D15、设计一个密码判断程序，用户输入的密码要求以“*”显示，判断的码值为“123456”，如果用户输入正确，则给出正确信息，并且窗体的背景色随机变化;反之，给出错误信息，并结束程序运行。
练习:
1.(P40-1)制作一个能改变窗口背景色的程序。要求:单击“变色”按钮，窗口背景色随机改变一次;单击“结束”按钮，结束程序。
提示:产生[A,B]区间的随机整数公式:Fix(Rnd*(B-A+1))+A
3.(P40-3)制作一个拖动滚动条改变图片大小的程序，图片高度和宽度的变化范围分别为1200~2000。
4.(P40-4)拓展练习:用滚动条表示水温，并以颜色及数值两种方法显示，温度低时标签
的背景色显示绿色，温度越高颜色越红。
![滚动条颜色的使用[宝典]](https://swf.iask.com/VqXrSyaYJGW.svg?ssig=5dkjo%2BQ5R6&Expires=1718717725&KID=sina,ishare&range=0-16510)
浙公网安备 33021202002483