十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Private Sub Form_Load()
创新互联公司专注于中大型企业的成都网站设计、成都做网站、外贸网站建设和网站改版、网站营销服务,追求商业策划与数据分析、创意艺术与技术开发的融合,累计客户超过千家,服务满意度达97%。帮助广大客户顺利对接上互联网浪潮,准确优选出符合自己需要的互联网运用,我们将一直专注品牌网站建设和互联网程序开发,在前进的路上,与客户一起成长!
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub Timer1_Timer()
For i = 0 To 3
Label1(i).Caption = Label1(i).Caption - 1
If Label1(i).Caption = -1 Then Label1(i).Caption = 60
Next
End Sub
Private Sub Timer2_Timer()
If Label1(1).Caption 3 Then
Shape1.FillColor = vbGreen
Shape3.FillColor = vbGreen
Else
Shape1.FillColor = H80FF
Shape3.FillColor = H80FF
End If
Shape2.FillColor = vbRed
Shape4.FillColor = vbRed
If Label1(0).Caption = 0 Then Timer3.Enabled = True: Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
If Label1(0).Caption 3 Then
Shape2.FillColor = vbGreen
Shape4.FillColor = vbGreen
Else
Shape2.FillColor = H80FF
Shape4.FillColor = H80FF
End If
Shape1.FillColor = vbRed
Shape3.FillColor = vbRed
If Label1(0).Caption = 0 Then Timer2.Enabled = True: Timer3.Enabled = False
End Sub
给你思路把:当汽车运动时,他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围,就停止汽车运动的那个计时器,并将另一个计时器的时间设为延时秒数并开启,里面的代码是打开骑车运动的计时器。
1、 在桌面上,鼠标左键双击,打开VB编程软件,在左边工具栏上单击Image按钮,在Form1窗口上,绘制出图框,然后在Image属性面板的Picture属性上,单击【加载图片】按钮。
2、 接着,在弹出选取图片对话框,选择合适的红绿灯素材来体现效果,这里先选取了一张红灯的图片。
3、在Image属性面板的名称属性上,将其改名为red,标识后就不会与其他图混淆。
4、在VB编程的界面中也可以直接复制控件,如将red这个Image控件复制两个出来,不加入控件组,并将后两个依次改名为yellow、green。
5、 然后,将yellow图形控件与red控件重叠,并右键单击,在弹出的菜单中选择【移至底层】,放好后,green 图形控件放在最底层。三个图形控件依红、黄、绿的顺序叠加重合了。
6、接着,鼠标左键双击red图形控件,弹出输入代码窗口,在其上输入如下代码段。