Question

急！！！！vb 中如何使用timer控件实现图片闪现？（每隔半秒显示一次，图片是放在picturebox控件里的)

图片已存入Debug子文件夹

Answer 1

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500 '500毫秒等于半秒
End Sub

Private Sub Timer1_Timer()
Static a As Long
a = a + 1
If Int(a / 2) * 2 = a Then '判断是否偶数
Picture1.Picture = LoadPicture("01.jpg") '图片名称
Else
Picture1.Picture = LoadPicture("")
End If
End Sub

Answer 2

timer中写： x as long x=随机生存一个数字，'把图片名改成数字 picture1.picture文件路径"\&"x"&.bmp"

Answer 3

‘试一下
Private Sub Form_Load()
Picture1.Picture = LoadPicture("d:\Debug\01.jpg")
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Picture1.Visible = Not Picture1.Visible
End Sub