高职考VB技能提升教程011 生成随机颜色的综合运用
随机数
Randomize随机数种子,增大随机数不同的概率
RND,范围[0,1)
颜色函数 rgb函数
传入参数:1.红色,2.绿色,3.蓝色
颜色深浅用数值表示,范围[0,255]
返回值:一种综合调和结果的颜色
随机数人为指定取值范围
指定的[0,255]之间所有的整数
Int(Rnd*256) 这个向下取整的结果就是我们想要的。
随机颜色应用举例
综合案例试题
1.设置界面
文本框控件
多行:将multiline设置为true
垂直 滚动条:将scrollbars设置为2
设置颜色按钮:
使用控件数组设计,要将按钮的style风格属性设置为1
注意这里的Index索引表示代表哪个按钮。
2.注意文本框中字体的颜色是前景色属性forebackcolor
3.最好使用一个自定义的sub来表示加载随机颜色功能
4.光标定位 使用Text1.SetFocus
总结
1.掌握随机数rnd的使用和范围配置
2.掌握颜色函数rgb使用
3.掌握综合随机颜色案例
软件设计界面:
运行效果
源代码分享:
Option Explicit Private Sub Cmd1_Click() Call init End Sub Private Sub Cmd2_Click() Text1.Text = "" Text1.SetFocus End Sub Private Sub Cmd3_Click(Index As Integer) Text1.ForeColor = Cmd3(Index).BackColor End Sub Private Sub Form_Load() Call init End Sub Sub init() Dim i As Integer For i = 0 To 23 Step 1 Randomize Dim r%, g%, b% r = Int(Rnd * 256) g = Int(Rnd * 256) b = Int(Rnd * 256) Cmd3(i).BackColor = RGB(r, g, b) Next i End Sub