用VB点虐 模拟十字路口红绿灯交通信号的切换

实在不难，就是不知道你写了代码没有？

网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了安多免费建站欢迎大家使用！

答案补充：

Dim xuhao As Integer

Const wenjianjia = "" '自己写好了

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

xuhao = xuhao + 1

If xuhao = 4 Then xuhao = 1

Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")

End Sub

怎么用VB做三色交通灯..要求黄灯亮4秒..红灯亮8秒..绿灯亮10秒

添加三PictureBox控件

A的name:yellow

B:red

C:green

先声明sleep和doevents语句,API查询的到,具体怎么声明我忘记了,.NET下是这样的: System.Threading.Thread.Sleep()和 System.Windows.Forms.Application.DoEvents()

假设声明过了sleep和Doevents,然后:

public IfStop as boolen=false

Function XunHuan(yellowTime as integer,redTime as integer,greenTime as integer)as boolen

On error Goto k

IfStop=true

While IfStop

yellow.backcolor=黄色

red.backcolor=透明

green.backcolor=透明

sleep(yellowTime)

doevents()

yellow.backcolor=透明

red.backcolor=红色

green.backcolor=透明

sleep(redTime)

doevents()

yellow.backcolor=透明

red.backcolor=透明

green.backcolor=绿色

sleep(greenTime)

doevents()

End While

k:

Return false

end function

加一个Button,在CLICK事件里这样写:

Sub Button_Click

dim x as boolen=XunHuan(4000,8000,10000)

if x=false then

msgbox "出错了!"

yellow.backcolor=透明

red.backcolor=透明

green.backcolor=透明

exit sub

end if

End Sub

如需要停只需要将IfStop=True可以了,其他细致方面自己修改,我这没装VB所以没测试过.

用VB.NET编写红绿灯程序

给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。

文章题目：vb点虐 绘制绿灯 vb指示灯怎么画
本文来源：http://ybzwz.com/article/ddsepis.html