重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
实在不难,就是不知道你写了代码没有?
网站建设哪家好,找创新互联公司!专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了安多免费建站欢迎大家使用!
答案补充:
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
添加三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所以没测试过.
给你思路把:当汽车运动时,他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围,就停止汽车运动的那个计时器,并将另一个计时器的时间设为延时秒数并开启,里面的代码是打开骑车运动的计时器。