vb红绿灯自动切换_VB红绿灯程序.doc
VB红绿灯程序
Private Sub Command1_Click()
While (1)
Shape1.FillColor = RGB(255, 0, 0)
Shape2.FillColor = RGB(0, 0, 0)
Shape3.FillColor = RGB(0, 0, 0)
Shape4.FillColor = RGB(0, 0, 0)
Shape5.FillColor = RGB(0, 255, 0)
Shape6.FillColor = RGB(0, 0, 0)
Shape7.FillColor = RGB(0, 0, 0)
Shape8.FillColor = RGB(0, 0, 0)
Shape9.FillColor = RGB(255, 0, 0)
Shape10.FillColor = RGB(0, 0, 0)
Shape11.FillColor = RGB(0, 255, 0)
Shape12.FillColor = RGB(0, 0, 0)
For i = 0 ToDoEvents
Next i
Shape1.FillColor = RGB(255, 0, 0)
Shape2.FillColor = RGB(0, 0, 0)
Shape3.FillColor = RGB(0, 0, 0)
Shape4.FillColor = RGB(255, 255, 0)
Shape5.FillColor = RGB(0, 0, 0)
Shape6.FillColor = RGB(0, 0, 0)
Shape7.FillColor = RGB(0, 0, 0)
Shape8.FillColor = RGB(0, 0, 0)
Shape9.FillColor = RGB(255, 0, 0)
Shape10.FillColor = RGB(255, 255, 0)
Shape11.FillColor = RGB(0, 0, 0)
Shape12.FillColor = RGB(0, 0, 0)
For i = 0 To 3000000
DoEvents
Next i
Shape1.FillColor = RGB(0, 0, 0)
Shape2.FillColor = RGB(0, 255, 0)
Shape3.FillColor = RGB(0, 0, 0)
Shape4.FillColor = RGB(0, 0, 0)
Shape5.FillColor = RGB(0, 0, 0)
Shape6.FillColor = RGB(255, 0, 0)
Shape7.FillColor = RGB(0, 0, 0)
Shape8.FillColor = RGB(0, 255, 0)
Shape9.FillColor = RGB(0, 0, 0)
Shape10.FillColor = RGB(0, 0, 0)
Shape11.FillColor = RGB(0, 0, 0)
Shape12.FillColor = RGB(255, 0, 0)
For i = 0 ToDoEvents
Next i
Shape1.FillColor = RGB(0, 0, 0)
Shape2.FillColor = RGB(0, 0, 0)
Shape3.FillColor = RGB(255, 255, 0)
Shape4.FillColor = RGB(0, 0, 0)
Shape5.FillColor = RGB(0, 0, 0)
Shape6.FillColor = RGB(255, 0, 0)
Shape7.FillColor = RGB(255, 255, 0)
Shape8.FillColor = RGB(0, 0, 0)
Shape9.FillColor = RGB(0, 0, 0)
Shape10.FillColor = RGB(0, 0, 0)
Shape11.FillColor = RGB(0, 0, 0)
Shape12.FillColor = RGB(255, 0, 0)
For i = 0 To 3000000
DoEvents
Next i
Wend
End Sub
'****************************************************************************************
上图即为shape控件位置
vb红绿灯自动切换_VB红绿灯程序.doc相关推荐
- vb红绿灯自动切换_VB红绿灯程序
<VB红绿灯程序>由会员分享,可在线阅读,更多相关<VB红绿灯程序(4页珍藏版)>请在人人文库网上搜索. 1.VB红绿灯演示Private Sub Command1_Click ...
- 拼多多客京东客蘑菇街小程序v9.1高佣联盟无限多开版 新增两个京东备用接口,故障自动切换接口 小程序
拼多多客京东客蘑菇街小程序v9.1高佣联盟无限多开版 新增两个京东备用接口,故障自动切换接口 小程序 [后端升级新版] 1.新增两个京东备用接口,故障自动切换接口. 学习资料源码:拼多多客京东客蘑菇街 ...
- VB如何自动保存_VB开发的围棋游戏,原来VB可以这么强大!
大家好,每一天,我们都要有新的目标,这样才能激励自己不断进步与提高! 1 今天,我们共同来学习VB编程开发的围棋游戏实现过程,以帮助大家更好的运用VB去编写程序. 围棋的实现,主要是综合应用了VB编程 ...
- C#自动切换Windows窗口程序,如何才能调出主窗口?
1 namespace AutoChangeWindow 2 { 3 partial class Form1 4 { 5 /// <summary> 6 /// 必需的设计器变量. 7 / ...
- vb红绿灯自动切换_什么是自动驻车
自动驻车(AUTO HOLD),此功能就相当于替你踩住了刹车,抬起刹车后仍能提供驻车制动力. 这个功能特别适用于上下坡以及频繁起步停车的时候.比如在停车等红绿灯的时,相当于不用拉手刹,可以避免使用手刹 ...
- VB如何自动保存_VB小课堂初识VB
又是一年开学日. 新的学期,更是要加油鸭. 不急不躁,每天进步一点点. 一直都说的新教材还是没下来 于是这个学年还是继续VB教学 其实VB这个编程软件真的很老了 已经好多好多年没有更新过了 但是VB语 ...
- VB如何自动保存_VB编写的身份证号自动识别实用程序
今天我们共同来看一下用VB编写的实用小工具--身份证号自动提取性别.年龄.出生日期工具. 身份证是我们每个公民都有的,根据它可以唯一识别出具体某个人. 程序实现功能: 当用户单击"输入身份证 ...
- VB如何自动保存_VB开发的身份证个人信息自动识别软件
今天我们共同来看一下用VB编写的实用小工具--身份证自动提取性别.年龄.出生日期等个人信息的软件. 身份证是我们每个公民都有的,根据它可以唯一识别出具体是某个人. 程序实现功能: 当用户单击" ...
- 用VB制作简单加法计算机,用VB设计一个简单的加法程序
计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是的选择, VB程序设计语言就是其中一个典型的代表.Visual Basic是Microsoft Windows的编程语言.V ...
最新文章
- Ubuntu16.04安装qt
- Metasploit irb命令使用技巧
- python篮球-用Python把蔡徐坤打篮球视频转换成字符动画!
- spring boot 核心_SpringBoot 核心技术 — 自动配置
- 添加softmax层_PyTorch入门之100行代码实现softmax回归分类
- java常用弹出式对话框
- 3分钟搞懂前后端开发的区别
- 适用于MongoDB和Mongometer的SpiderMonkey至V8
- python垃圾回收 采用方式_python-面向对象-10-__del__析构方法/垃圾回收机制
- 表格标签(HTML)
- python 文本框内容变化_当文本框中的文本发生变化时,动态读取文本输入中的文本?...
- bitnami下mysql配置-包含phpMyAdmin配置
- 最全公司章程自由规定事项
- 计算机基础技能培养,计算机基础技能培养大纲(非计算机专业).doc
- 刘寅立matlab数值计算案例分析 pdf,《MATLAB数值计算案例分析》源代码
- Js(二)SyntaxError Cannot use import statement outside a module
- 用Excel制作条形码
- darknet cpp weights模型转换成ONNX模型
- 如何拦截烦人的视频广告
- 什么是响应式编程,Java 如何实现