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的計時器怎樣能搞一個小動畫。
dim vy 自增量 private sub command1 click timer1.enabled not timer1.enabled end sub private sub form load vy 60 自增量 timer1.interval 100end sub private sub...
VB中怎樣設計時間倒計時，要可以在中途停止，從新開始，謝謝
2014年國慶節倒計時程式，可以停止 開始，有天 時 分 秒動態顯示。需要原始檔，給地址。新增一個時鐘控制元件 然後在時鐘控制元件的事件中寫 時鐘控制元件只要一個事件 你別說不知道 倒計時 比如從100開始 在通用部分宣告一個數值型變數 dim sz as integer 記住是通用部分 然後在窗體...
VB設計簡單的計算器急用，VB設計一個簡單的計算器 急用
command1為控制元件陣列 private sub command1 click index as integer 數字鍵text1.text text1.text command1 index captionend subprivate sub command2 click 等號 text1....