|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
 |
|
|
主題工具 | 顯示模式 |
|
|
2009-05-31, 10:32 AM
|
#1 (permalink) |
|
管理版主
 
|
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 |
|
送花文章: 2055,
|
|
|
|
|
相似的主題
|
||||
| 主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
| 疑問 - 想請問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 |
混合模式
