问VB中让图片一闪一闪

来源：百度知道 编辑：UC知道 时间：2024/06/11 05:42:38
用VB，通过计时器让图片一闪一闪
Timer事件发生一次，就让图片的Visible取反，可我不知道怎么得到Timer事件发生了？
请高手帮帮我！！5555555

时间自己定就可以了

Private Sub Timer1_Timer()
Picture1.Visible = Not Picture1.Visible
End Sub

新建工程,1个timer,1个Picture1, 1个按钮
这个是让它闪100次.. 计数器i, 单数和双数时,pic显示或隐藏,实现一闪一闪..

全部代码:

Dim i%

Private Sub Command1_Click()
i = 0
Timer1.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
Command1.Caption = "开始闪烁"
End Sub

Private Sub Timer1_Timer()
If i Mod 2 = 0 Then
Picture1.Visible = False
Else
Picture1.Visible = True
End If
i = i + 1
If i = 100 Then
Timer1.Enabled = False
Command1.Enabled = True
End If
End Sub

同样控件,如果不需要计数的话,可以修改成为下面的,这样就可以一直闪,直到按钮结束.

Private Sub Command1_Click()
If Command1.Caption = "开始闪烁" Then
Timer1.Enabled = True
Command1.Caption = "停止闪烁"
Else
Command1.Caption =