vb点虐 绘制绿灯 vb指示灯怎么画
用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://6mz.cn/article/ddsepis.html