Question

在vb中如何利用timer控件使image控件循环不断得载入六张图片

Answer 1

在loadpicture里写入图片路径
Private Sub Form_Load()
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Select Case i
Case Is = 1
Image1.Picture = LoadPicture()
Case Is = 2
Image1.Picture = LoadPicture()
Case Is = 3
Image1.Picture = LoadPicture()
Case Is = 4
Image1.Picture = LoadPicture()
Case Is = 5
Image1.Picture = LoadPicture()
Case Is = 6
Image1.Picture = LoadPicture()
End Select
If i = 6 Then i = 0
End Sub