VB程序红绿灯设计

VB程序红绿灯设计,第1张

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

2、 接着,在d出选取图片对话框,选择合适的红绿灯素材来体现效果,这里先选取了一张红灯的图片。

3、在Image属性面板的名称属性上,将其改名为red,标识后就不会与其他图混淆。

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

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

6、接着,鼠标左键双击red图形控件,d出输入代码窗口,在其上输入如下代码段。

1,首先在 通用 部分申明一下state 这个变量为布尔型,以便全局调用。

2,应把if 中的state=false 拿出来。代码如下:

Dim state As Boolean

Private Sub Command1_Click()

If state = False Then

Shape1.FillColor = vbWhite

state = True

Else

Shape1.FillColor = vblack

state = False

End If

End Sub

Private Sub Form_Load()

state = False

End Sub

Timer1_Timer的事件没写什么时候启动呀,如果刚开始加载程序时就启动,时间当然不准了。还有Timer1_Timer的事件里怎么有如下声明

Dim bankai As Date

Dim banguan As Date

Dim quankai As Date

Dim quanguan As Data

这是个局部变量。怎么在按钮事件里使用这些变量。变量会清零的。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12025979.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存