高职考技能提升教程011期 生成随机颜色的综合运用

简介: 高职考技能提升教程011期 生成随机颜色的综合运用

高职考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
相关文章
|
人工智能 大数据
1+X大数据分析与应用中级备考经验
作为上海城建职业学院人工智能应用学院大数据技术专业的专任教师,在2020年12月份指导学生参与阿里巴巴《1+X大数据分析与应用中级》考试中,取得了优异的成绩。34位参加考证的同学,共有27个同学通过了考试,再次分享备考经验,以供参考。
2478 2
1+X大数据分析与应用中级备考经验
|
2月前
|
人工智能 架构师 NoSQL
24岁程序媛,二战考研失利、三无人员 ==> 最佳新人、优秀个人,讲讲我的技术成长之路
能力、格局、谋略、远见、耐心。灵魂的欲望是命运的先知,希望永远自信、洒脱、松弛、明媚、张扬;追随自己的内心、以喜欢的方式、往正确的方向前行,永远在路上,我甘之如饴! 持续精进Java领域相关技术,包括微服务、高并发、高可用、分布式、集群等等;希望能接触到更多更大的优质项目,逐渐成长为一名具备全栈思维的架构师,既能深入理解底层技术,又能把控全局架构;抽时间了解学习Go语言、人工智能、大模型等领域。 在探索中明晰后续的发展方向,形成自己的一套体系,成为主管、管理层乃至更高,不希望自己的上限只是程序员。
|
1月前
|
敏捷开发 搜索推荐 测试技术
软件开发职业心得:从新手到专家的转变
在软件开发领域,每位开发者都需要经历从新手到专家的成长过程。本文分享了六大职业心得:持续学习以应对快速变化的技术;注重代码质量,遵循规范并积极审查代码;提升沟通技巧,促进团队协作;培养问题解决能力,高效应对挑战;优化时间管理,提高工作效率;实施持续交付,确保软件质量。希望这些经验能助力你在软件开发之路上不断前行,最终成为行业专家。
|
1月前
|
物联网 Linux 开发者
电子信息类专业技术学习及比赛路线总结(大一到大三)
电子信息类专业技术学习及比赛路线总结(大一到大三)
|
1月前
|
运维 监控 网络协议
IT专业入门,高考假期预习指南:运维方向
IT专业入门,高考假期预习指南:运维方向
|
6月前
职场四大基本功的修炼与养成 ——【大学生就业训练营】系列第五课
系列课程共有八节,下方完成视频课程观看并在评论区回复学习心得,还可以领取惊喜礼品~
337862 1058
|
6月前
|
存储 安全 数据库
【软件设计师备考 专题 】企业信息资源管理基础知识
【软件设计师备考 专题 】企业信息资源管理基础知识
83 0
|
6月前
|
安全 网络安全 数据安全/隐私保护
备考信息安全工程师每日知识点(1)
备考信息安全工程师每日知识点(1)
75 0
|
自动驾驶 程序员 定位技术
高职考技能提升教程012期 阶层求和的综合运用
高职考技能提升教程012期 阶层求和的综合运用