杭州交通信息网结实耐用帆布工具袋:请教一个vb问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 00:29:34
要让image1,image2,image3轮流依次显示,显示时间之比为2:1:3
怎么实现这种效果?
麻烦写一下过程,谢谢
在窗体上加上3个image控件，和一个timer控件，粘贴以下代码：
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Delay(intTime As Double) '延时程序，intTime为延时的毫秒数
Dim tmp As Double
tmp = GetTickCount
Do
DoEvents
Loop While GetTickCount - tmp < intTime
End Sub
Sub Display()
Dim STD_Time As Double '这里的STD_TIME可以声明为全局变量,在程序的其他过程也可以修改延时 的时间
STD_Time = 5000 '基准延时5秒;5000毫秒=5秒
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Delay (STD_Time * 2) '2倍基准延时
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Delay (STD_Time) '1倍的基准延时
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Delay (STD_Time * 3) '3倍基准延时
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
End Sub
Private Sub Timer1_Timer()'interval的值 要设定
Display
End Sub
用Timer控制就行了
利用Timer控件来实现,如果只图简单可以设置三个timer控件,每个timer控件控制其他timer控件的状态是否执行