疑問 - 想請問vb6

tpopmac01 · 2009-05-28, 02:24 PM

想請問如何用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

mini · 2009-05-31, 10:32 AM

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

>>>>>>

語法:

Private Sub Timer1_Timer()

   n = n + 1
   Picture1.Picture = LoadPicture(App.Path + "\圖檔\" & pic(n) & ".jpg")
   if n = i Then Timer1.Enabled = False

End Sub

2009-05-28, 02:24 PM	#1
tpopmac01 註冊會員榮譽勳章勳章總數 UID - 322990 在線等級: 註冊日期: 2009-04-25 文章: 3 精華: 0 現金: 4 金幣資產: 4 金幣	疑問 - 想請問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 此帖於 2009-05-29 09:33 PM 被 tpopmac01 編輯.

	送花文章: 8, 收花文章: 3 篇, 收花: 6 次

2009-05-31, 10:32 AM	#2 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13461 精華: 0 現金: 26802 金幣資產: 3024722 金幣	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 >>>>>> 語法: Private Sub Timer1_Timer() n = n + 1 Picture1.Picture = LoadPicture(App.Path + "\圖檔\" & pic(n) & ".jpg") if n = i Then Timer1.Enabled = False End Sub

	送花文章: 2042, 收花文章: 8054 篇, 收花: 26894 次

相似的主題
主題	主題作者	討論區	回覆	最後發表
疑問 - 想請問vb6	tpopmac01	程式語言討論區	3	2009-05-02 12:29 AM
我想請問各位高手一個問題...有關還原卡	麻倉葉王	硬體疑難使用問題討論區	1	2003-02-06 04:39 AM
我想請問一下關於現版DOS	Kevin0931	軟體應用問題討論區	1	2002-12-15 09:50 PM

Google 提供的廣告