1樓：匿名使用者
樓上幾位的怎麼要這麼麻煩？
private sub timer1_timer()command1.value = trueend sub
三行**就行了。
2樓：匿名使用者
dim i as integer
private sub command1_click()text1 = "時間到！"
end sub
private sub timer1_timer()i = i + 1
dim j as integer
j = 3 - i
command1.caption = "還剩" & j & "秒"
if j = 0 then
command1.setfocus
sendkeys "" 』張志晨：一定要用上這個才行！！！！！！
timer1.enabled = falseend if
end sub
3樓：匿名使用者
點選**的按鈕？
是自己的程式還是別的程式？如果是別的程式的話要獲得那個程式的那個按鈕的控制代碼，然後才能用sendmessage函式來傳送訊息控制按下按鈕。
4樓：匿名使用者
ho i『m sorry 我不知道
vb設計倒計時，除開始按鈕外，第二個按鈕讓倒計時暫停或停止。
5樓：匿名使用者
思路：比如說按鈕2名稱為："暫停"
點選一次後，變成繼續
單擊按鈕的事件**為：
if button2.text="暫停" thentimer1.enbled = falsebutton2.text="繼續"
else
timer1.enbled = true
button2.text="暫停"
end if
6樓：匿名使用者
private sub command2_click()
timer1.enbled = false
end sub
關於vb 定時器的問題 設計一個倒計時的程式，command1按鈕開始倒計時，label3標籤顯示時間。
7樓：匿名使用者
1.你說的「在文字框無法輸入數值了」是不是因為你把「command1"的enabled屬性設為false了，書上要求的是不是把「timer1」的enabled屬性設為false？
之所以 label3會顯示-1分-1秒。。-1分-2秒。。是因為t 值小於0了，也就是說你可能在文字框輸入0或什麼都沒輸入。你可以把**改成這樣：
sub command1_click()
if (val(text1.text) = 0) then
msgbox ("時間到！")
timer1.enabled = false
else
t = 60 * val(text1.text)
timer1.enabled = true
end if
end sub
也可以把 「if (t = 0) then」 改為 "if (t = 0) or (t < 0) then"
2.sub timer1_timer()
dim m, s as integer
t = t - 1 』當**跑到這裡，t值會減去 1
m = int(t / 60) 』這段**把t值轉換成分鐘（t值的單位是「秒」）
s = t mod 60 』這段**把t值 除以 60後把整數部分去掉，剩下餘數，就是秒鐘
也就是說如果你在文字框裡輸入了10 ，就是600秒 m=10；s=0，當你按下command1 ,過了一秒 m=9,s=59;過了兩秒m=9；s=58;過了一分鐘m=9，s=0...
8樓：匿名使用者
這是一個利用timer控制元件做的定時器，你在初始狀態應將定時器enabled屬性設定為false。然後利用按鈕啟動定時器timer（即**中timer1.enabled = true），關於出現負值的問題，你可以將"if (t = 0) then"改為"if (t <= 0) then",這樣出現負值就直接停計時器了。
出現這種情況的原因是：如果文字框為空則val（text1.text）=0即t的初值為0，但啟動定時器後沒有進行判斷直接就減一，所以出現了負值。
最簡單的辦法是先判斷，滿足停止計時條件（t <= 0）則退出計時，不滿足則繼續。
vb編寫一個倒計時的程式 20
9樓：匿名使用者
我試了試在 xp上 問題
這樣改一下
dim i as long
private sub command1_click()i = 20
timer1.enabled = truelabel1.caption = i
end sub
private sub form_load()timer1.enabled = falsetimer1.interval = 1000end sub
private sub timer1_timer()label1.caption = i
if i > 0 then
i = i - 1
else
timer1.enabled = falsemsgbox "時間到!!"
end if
end sub
10樓：楊奔騰子
你把**複製一下，看看。**看不清。
肯定是**有問題。
這個程式很簡單的
11樓：匿名使用者
完全滿足你的要求，需要原始檔給地址。
vb中怎樣製作一個計時器？ 能夠設定倒計時的時間，並進行倒計時
12樓：
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、單擊「啟動倒計時」命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
13樓：天天過節
用到三個控制元件：文字框（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
14樓：弒神者是我
事先要在秒錶**調 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
15樓：匿名使用者
設定倒計時 開始時間t
for ，step -1
顯示 t-1s
next
vb中如何設計一個類似60秒倒計時的程式
16樓：
建立一個timer控制元件：timer1
設定timer1的interval屬性為1000建立一個顯示倒計時的lable：lbltime**：dim i as long
private sub form_load()i=60
endsub
private sub timer1_timer()i=i-1
lbltime.caption="倒計時" & iif i<=0 then
msgbox "倒計時結束，退出"
endendif
end sub
17樓：otz進進
新增timer控制元件，新增label控制元件，label的caption屬性為60，將interval屬性設為1000（每一秒執行一次）然後在timer的time中新增
dim i as integer '定義迴圈變數
private sub timer1_timer()
i=60 '定義變數值迴圈，60次
i = i - 1 '每次迴圈i的值減去一
label.caption="還有"& i & "秒" '輸出i的值，即實現倒計時顯示
if i <= 0 then '判斷i的值是否為零，即迴圈是否到達60次
**塊 '是的話執行**塊中的內容，就是你想要實現的功能，如："msgbox 「遊戲結束」"
timer1.enabled = false '最後關閉timer，不再迴圈
end if '退出if語句
end sub
18樓：匿名使用者
dim flag as boolean '定義布林型變數,用於判斷倒計時間是否已到.若倒計時到,則停止遊戲
private sub form_load()label1.caption = 60
timer1.interval = 1000end sub
private sub timer1_timer()label1.caption = label1.caption - 1
if label1.caption = 0 thenlabel1.caption = "遊戲結束"
flag = true '此時倒計時時間到,設定flag為true(flag系統預設初值為false),用以作為結束程式標誌
timer1.enabled = falseend if
end sub
上面就是倒計時的程式
你可以執行遊戲的**處進行如下判斷
....
if flag =true then
exit sub
else
....你的遊戲**
19樓：蘇州老三石
在窗體中加個timer,然後用如下**
dim i as integer
private sub form_load()i = 60
timer1.interval = 1000end sub
private sub timer1_timer()i = i - 1
form1.cls
print i
if i = 0 then
timer1.enabled = falsemsgbox ("time over!")end if
end sub
我有愛情上的問題！疑難雜症，我有一個愛情上的問題！疑難雜症！
人最大的恐懼和好奇都是來自於未知，她給你這樣的感覺也不奇怪，畢竟你自己有認識網路的和其他的女孩子，不管動機是什麼，有了女朋友有了這種感覺也許是件好事，她應該很安靜吧，女孩子比男子要成熟的快，很多東西你還懵懂的時候她已經知道了，懂愛是件好事，也許你們都不懂，所以這種事還是自己去體味，萬般滋味，自己體會...
您好，看到您很專業的回答，我有個問題想問您
你可以到當地的民政部門諮詢，關於低保的問題，他們會給你一個享受低保待遇的具體要求是什麼，至於你懷孕公司不批假的問題，最好還是先好好的和公司商量，實在不行你可以到勞動就業部位去諮詢，你要是那裡的正式員工的話，就算不是只要有合同，我想勞動部門也會找他們協商的。您好，我在上看到你回答疫苗方面的問題很專業，...
手機耳麥上的按鈕有什麼功能，手機耳機上的一個按鍵有什麼功能？
耳機上的按鈕可以用來接 同時還可以控制 暫停和切換至下一首 同時按兩下 您可以試試哦，希望可以幫到您。常見的耳麥帶有撥打及掛機功能按鈕一個及音量 音量 按鈕名一個。如果耳麥跟手機匹配不對的話，音量 按鈕有可能成為上下曲按鈕。如果手機支援的話耳麥按鈕功能還可以另行設定。接 的，來 的時候按一下就等於接...