想請問vb6
 

想請問如何用timer設定播放圖片或影片
之前 我用迴圈寫 但是 跟同學的程式碼組合起來後會相碰
想請問一下 我該怎麼改成用timer的
以下是我用迴圈寫的

Private Sub Command1_Click()
Dim pic(100), listfile As String
Dim n, i, timeintvl As Single

pictime = 0.5
Open App.Path + "\圖檔\清單.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, pic(i)
Loop
Close (1)

timeintvl = pictime * 60 / (i - 1)
n = 0
Do Until n = i
n = n + 1
Picture1.Picture = LoadPicture(App.Path + "\圖檔\" & pic(n) & ".jpg")
Call wait(timeintvl)
Loop

End Sub

Dim n, i, timeintvl As Single
移到外邊成為 Form的全域變數
timeintvl As Single 不需要了，因為由 Timer1.Interval取代

==================

timeintvl = pictime * 60 / (i - 1)
改成
Timer1.Interval = pictime * 60 / (i - 1) * 1000 '因為Timer1.Interval是以 ms為單位 1000等於1秒
Timer1.Enabled = True

==================

再把這幾行稍做搬移修改即可
Do Until n = i
n = n + 1
Picture1.Picture = LoadPicture(App.Path + "\圖檔\" & pic(n) & ".jpg")
Call wait(timeintvl)
Loop

>>>>>>