写个VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 11:55:06
我想让一个图片一闪一闪的（就是一会出现，一会消失），
就把Timer的interval设成500
然后写入：
Private Sub Timer1_Timer()
If Image1.Visible = True Then Image1.Visible = False
If Image1.Visible = False Then Image1.Visible = True

End Sub

可是运行时没有反应
我到底哪写错了，vb高手来解决一下
是True阿，如果一开始把image的visible设成false，那它只会在运行的开始0.5秒从消失变成出现，然后就不变了，这是怎么回事啊？

本人vb菜鸟，想找个人教教我，想教我的告诉我Q，验证“请教vb”。
谢谢

哈哈 应该这样写，
Private Sub Timer1_Timer()
Image1.Visible = Not Image1.Visible
End Sub

楼主逆反逻辑错误了
If Image1.Visible = True Then Image1.Visible = False
'这里没错
If Image1.Visible = False Then Image1.Visible = True
'但是如果这里的条件为真的话，那么肯定执行上面的语句了，所以你的图片总会显示
End Sub

timer有没有开启，enable是不是 true

Private Sub Timer1_Timer()
Image1.Visible = NOT Image1.Visible
End Sub

再不行的话把图片控件换成PictureBox

Private Sub Form_Load()

Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Enabled = True
Timer2.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Image1.Visible = False

End Sub

Private Sub Timer2_Timer()
Image1.Visible = True
End Sub
已经测试，能实现一闪一闪的效果