admin 管理员组

文章数量: 1184232


2023年12月22日发(作者：squid game在线观看)

VB红绿灯小程序

模拟在十字路口看到的红绿灯，用VB编个小程序来模拟，用鼠标单击使其由红灯变黄灯，再由黄灯变绿灯，最后由绿灯变为红灯依次单击，灯的颜色就不断变换。

1--在桌面上，鼠标左键双击，打开VB编程软件，在左边工具栏上单击Image按钮，在Form1窗口上，绘制出图框，然后在Image属性面板的Picture属性上，单击【加载图片】按钮，如下图所示。

2--在弹出选取图片对话框，选择合适的红绿灯素材来体现效果，这里先选取了一张红灯的图片，在Form1上可看见其图了，如下图所示。

3--在Image属性面板的名称属性上，将其改名为red，标识后就不会与其他图混淆，以免都称为Image，不好区分，如下图所示。

4--在VB编程的界面中也可以直接复制控件，如将red这个Image控件复制两个出来，不加入控件组，并将后两个依次改名为yellow、green，如下图所示。

5--将yellow图形控件与red控件重叠，并右键单击，在弹出的菜单中选择【移至底层】，放好后，green 图形控件放在最底层。三个图形控件依红、黄、绿的顺序叠加重合了，如下图所示。

.

接着，鼠标左键双击red图形控件，弹出输入代码窗口，在其上输入如下代码段：

Private Sub red_Click() ’红灯单击

e = False ’红灯不可见

e = True ’黄灯可见

End Sub

Private Sub yellow_Click() ’黄灯单击

e = False ’黄灯不可见

e = True ’绿灯可见

End Sub

Private Sub green_Click() ’绿灯单击

e = False ’绿灯不可见.

e = True ’红灯可见

End Sub

最后单击运行按钮，在弹出的窗口程序上依次单击，这时红、黄、绿三个灯就不断的变换了。


本文标签： 控件 弹出 图形 按钮

版权声明：本文标题：VB程序设计《红绿灯小程序》 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1703219617a442777.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。