查看單個文章
舊 2009-07-06, 02:16 PM   #1
chung1206 帥哥
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設 VB6.0如何自動按下command鈕



--------------------
閱讀本主題的最佳解答
--------------------


各位先進們好,請問如何讓按鈕自己每隔一分鐘按一次呢?謝謝。
我是做了一個將twguest內的資料夾名稱顯示到ListBox中,我希
能每隔一分鐘它自己會按下開始偵測鈕,或是每隔一分鐘他會自己
顯示到ListBox裡也可以。

下圖參考:
http://farm3.static.flickr.com/2498/...e41104.jpg?v=0

程式碼參考:
Dim StartDate
Dim StartSecond As Long
Private Sub Form_Load()
StartDate = Date
StartSecond = Timer
Timer1.Enabled = True
End Sub

Private Sub Timer_Timer
Dim NowSecond As Long
NowSecond = (Date - StartDate) * 86400 + Timer
If NowSecond - StartSecond >= 10800 Then
MsgBox "三小時到"
StartDate = Date
StartSecond = Timer
End If
End Sub

此帖於 2009-07-06 02:31 PM 被 chung1206 編輯.
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖