耶稣为啥被钉在十字架:请教一个vb问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/08 15:43:00
有三个image控件:image1,image2,image3
要让image1,image2,image3轮流依次显示,显示时间之比为2:1:3
怎么实现这种效果?最好写一下过程,谢谢

使用3个Timer控件,其属性Interval值比为2:1:3 ,例1000:500:1500

Private Sub Timer1_Timer()
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Image2.Visible = True
Image1.Visible = False
Image3.Visible = False
Timer2.Enabled = False
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
Image3.Visible = True
Image2.Visible = False
Image1.Visible = False
Timer3.Enabled = False
Timer1.Enabled = True
End Sub