主題: 想請問vb6
查看單個文章
舊 2009-05-31, 10:32 AM   #2 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時級別:98 | 在線時長:10165小時 | 升級還需:32小時
註冊日期: 2002-12-07
文章: 13490
精華: 0
現金: 26853 金幣
資產: 3024783 金幣
預設

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
mini 目前離線  
送花文章: 2054, 收花文章: 8068 篇, 收花: 26921 次
回覆時引用此帖
有 3 位會員向 mini 送花:
cwvdavid (2009-06-01),Living (2009-05-31),tpopmac01 (2009-05-31)
感謝您發表一篇好文章