1樓：匿名使用者
10ms產生一次timer事件是不行的
因為vb的timer是有一個精度的，精度大約在55ms，所以interval再小就不起作用了，api gettickcount的精度大約也是在55ms，要想獲得更高的精度，可以用api timegettime，其精度大約在1-10ms，如果這個仍然滿足不了你的要求，windows內部還有一個更高的定時器，精度在微秒級, 但不同的系統這個定時器的頻率不同, 這個頻率與硬體和作業系統都可能有關。利用 api 函式 queryperformancefrequency 可以得到這個定時器的頻率。利用 api 函式 queryperformancecounter 可以得到定時器的當前值。
根據要延時的時間和定時器的頻率, 可以算出要延時的時間定時器經過的週期數。在迴圈裡用 queryperformancecounter 不停的讀出定時器值, 一直到經過了指定週期數再結束迴圈, 就達到了高精度延時的目的。這是目前可以得到的最高精度了。
2樓：
private sub command1_click()text1.text = 0
timer1.interval = 10
timer1.enabled = trueend sub
private sub command2_click()timer1.enabled = falseend sub
private sub timer1_timer()text1.text = text1.text + 0.1end sub
vb中怎樣製作一個計時器？ 能夠設定倒計時的時間，並進行倒計時
3樓：
1、開啟vb6.0，新建一個工程，在窗體中新增三個命令按鈕，caption分別改為“設定倒計時”、“啟動倒計時”、“繼續”，將窗體form1的caption屬性改為“倒計時”，新增一個計時器控制元件，新增一個文字框。
2、將文字框的text屬性清空，將字型font屬性調整為小四，便於觀察，將背景色屬性backcolor調為淺黃色。
3、雙擊“設定倒計時”命令按鈕，進入**編輯視窗。
4、雙擊“啟動倒計時”命令按鈕，進入**編輯視窗。
5、雙擊“計時器”控制元件，進入**編輯視窗。
6、在**編輯視窗的通用段進行變數定義：dim h as integer, m as integer, s as integer '分別儲存時分秒dim a as integer。
8、關閉**視窗，按下f5執行程式，單擊“設定倒計時”命令按鈕，彈出輸入對話方塊，此時輸入分鐘數為1，確定。
9、單擊“啟動倒計時”命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
4樓：天天過節
用到三個控制元件：文字框（text1）、按鈕（command1）、計時器（timer1）
private sub command1_click()timer1.interval = 1000end sub
private sub timer1_timer()text1.text = val(text1.text) - 1if text1.
text < 1 thenmsgbox "時間到"
unload me
end if
end sub
5樓：弒神者是我
事先要在秒錶**調 enable屬性為false，interval屬性為1000
private sub command1_click()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = val(text1.text) - 1if text1.
text < 1 thenmsgbox "時間到"
unload me
end if
end sub
6樓：匿名使用者
設定倒計時 開始時間t
for ，step -1
顯示 t-1s
next
VB組合框，vb組合框設計時怎麼新增列表？
private sub combo1 keypress keyascii as integer 只能輸入數字 select case keyascii case 48 to 57,13 0 9數字和回車鍵為合法資料 if keyascii 13 then 如果回車則新增一筆 combo1.addit...
急求VB倒計時器求各位哥哥姐姐咯！VB我只會一點點！盡
要用timer 就行 求 vb 10秒倒計時 dim test as long private sub form load timer1.interval 1000test 10 text1.text timer1.enabled trueend sub private sub timer1 tim...
設計一個VB程式設計題目， 50，VB程式設計練習題？
private sub command1 click dim a as integer,b as integer,c as integer dim y as integer y val if y 1 then a 1000 b val y 2 then a 1500 b val y 3 then a...