匿名
|
1樓
匿名 發表於 2012-1-21 13:18:41
|正序瀏覽
Private Sub Delay(ASecond As Integer) '按鈕的延遲效果
Dim before
before = Timer
Do
DoEvents
Loop Until (Int(Timer - before) = ASecond)
End Sub
呼叫的時候使用 Call Delay(1) ,就是延遲1秒,0.5秒的話就寫Delay(0.5)就可以了。
sleep 會造成整體程式延遲 看起來會LAG
Delay 只會造成某動作延遲
|
-
總評分: GP + 1
查看全部評分
|
|
|
|
|
|
- UID
- 240352
- 帖子
- 9
- 主題
- 0
- 精華
- 0
- 積分
- -2
- 楓幣
- -49
- 威望
- -2
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 0
- 閱讀權限
- 0
- 性別
- 保密
- 在線時間
- 1 小時
- 註冊時間
- 2018-7-11
- 最後登入
- 2022-1-31
|
|
|
|
|
|
|
- UID
- 46838
- 帖子
- 784
- 主題
- 33
- 精華
- 0
- 積分
- 524
- 楓幣
- 6360
- 威望
- 512
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 127
- 閱讀權限
- 50
- 性別
- 保密
- 在線時間
- 245 小時
- 註冊時間
- 2014-2-13
- 最後登入
- 2024-12-17
|
|
|
|
|
|
|
- UID
- 90723
- 帖子
- 4
- 主題
- 0
- 精華
- 0
- 積分
- 0
- 楓幣
- 1474
- 威望
- 0
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 0
- 閱讀權限
- 10
- 性別
- 保密
- 在線時間
- 2 小時
- 註冊時間
- 2015-2-1
- 最後登入
- 2024-4-23
|
個人用過並沒有比較好 |
|
|
|
|
|
|
- UID
- 70738
- 帖子
- 461
- 主題
- 37
- 精華
- 0
- 積分
- 483
- 楓幣
- 2587
- 威望
- 118
- 存款
- 1576
- 贊助金額
- 1300
- 推廣
- 0
- GP
- 68
- 閱讀權限
- 150
- 性別
- 男
- 在線時間
- 796 小時
- 註冊時間
- 2014-7-15
- 最後登入
- 2024-12-17
|
sleep久了會顯示沒有回應,游標會一直轉圈圈,通常會搭配危險的Doevents,可解除那狀態 |
|
|
|
|
|
|
- UID
- 83915
- 帖子
- 92
- 主題
- 3
- 精華
- 0
- 積分
- 4
- 楓幣
- 440
- 威望
- 1
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 2
- 閱讀權限
- 10
- 性別
- 保密
- 在線時間
- 63 小時
- 註冊時間
- 2014-11-3
- 最後登入
- 2022-10-4
|
|
|
|
|
|
|
- UID
- 45005
- 帖子
- 144
- 主題
- 5
- 精華
- 0
- 積分
- 8
- 楓幣
- 486
- 威望
- 4
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 3
- 閱讀權限
- 10
- 性別
- 保密
- 在線時間
- 76 小時
- 註冊時間
- 2014-1-27
- 最後登入
- 2024-6-4
|
|
|
|
|
|
|
- UID
- 47471
- 帖子
- 121
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 楓幣
- 0
- 威望
- -1
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 0
- 閱讀權限
- 10
- 性別
- 保密
- 在線時間
- 61 小時
- 註冊時間
- 2014-2-19
- 最後登入
- 2020-4-11
|
|
安安 我是熊熊
|
|
|
|
|
Copyright © 2011-2024 冰楓論壇, All rights reserved
免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。
而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。