係vb入面點樣用一個picture box 分別show 8張圖出黎?

Create a Timer control, A PictureBox control and two Radio Buttons
1 個 timer, 不需要 For Loop

' declare variables at module level
Private Picture_Array
Private counter As Integer

Private Sub Form_Load()
' 8 張圖要 8 個 file name, full path
Picture_Array = Array("c:\picture1.jpg", "c:\picture2.jpg", "c:\picture3.jpg")
End Sub

Private Sub Option1_Click()
' 一秒換一張
Timer1.Interval = 1000
End Sub

Private Sub Option2_Click()
' 半秒換一張
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Picture1.Picture = LoadPicture(Picture_Array(counter))
counter = counter + 1
If counter = 3 Then ' 8 張圖 counter 就改為 8
counter = 0
End If
End Sub

不如你將d圖 顯示個度set false 然後用timer 計時 將佢地變返 true / false
好耐冇用 唔太記得 求奇比個辦法你=_=