vb 倒計時 30分急求
1樓：網友
建立2個文字 2個按鈕 4個timer enabled 全設定成false 新增乙個windows media plyaer 控制項。
dim s as long
private sub command1_click()
m =s = m * 60
true true
trueend sub
private sub command2_click()
false
falsefalse
falseend sub
private sub timer1_timer() 倒計時用 intrtvar設定1000 這樣才能按秒倒計時。
s = s - 1
send sub
private sub timer2_timer() intrtvar設定500
if = then
true false
end if
end sub
private sub timer3_timer()intrtvar 按照報警間隔設定。
end sub
private sub timer4_timer()
if = 0" then
false
falsefalse
falseend if
end sub
vb 倒計時
2樓：網友
在時鐘控制項**內，設定計數器減數就行了。
vb做倒計時
3樓：網友
簡單！初學的吧？記著給分！
放兩個text1和text2控制項，分別輸入數字對應分，秒。
放乙個command1按鈕。
放乙個timer1定時器，設interval=1000，enalbed=false
**：dim m as integer
dim s as integer
public sub command1_click()if "按下繼續" then
按下停止"攜仔圓。
m=val(
s=val(
if m<0 then
msgbox "分鐘數不能為負"
exit sub
end if
if s<0 or s>60 then
msgbox "辯塌秒數不能為負"
exit sub
end if
按下繼續"endifend sub
private sub timer1_timer()s=s-1
if s<=0 and m>0 then
s=60m=m-1
exit sub
end if
if m<=0 and s<=0 thenmsgbox "時戚敬間到"
command1_click
end if
end sub
用vb做倒計時
4樓：網友
用timer控制項進行1秒計時，定義乙個全域性變數t，每一次timer都將t+1，當t=30時，窗體呼叫**。
首先，在form窗體中放置乙個timer控制項，將timer的interval屬性設定為1000。再放置乙個picture控制項，將picture，將**調入到picture屬性中，將visible屬性設定為false。
public t as variant
private sub timer1_timer()t = t + 1
if t >= 5 then
trueprint t & "秒"
t = 0end if
end sub
5樓：星柩星軌
簡單啊 用乙個迴圈就搞定了 我們課程設計的時候就做過啊 具體**自己琢磨吧 我懶的很啊。
vb的30秒倒計時，要可以用vb開啟的
6樓：網友
建個timer
然後load的時候隨時間-1就好了。
vb中怎樣倒計時？
7樓：網友
timer控制項的最長支援時間是65535毫秒即分鐘。
在窗體新增timer控制項，下面是**：
dim s as integer 's必須是過程級變數private sub form_load()= true
1000 '定義檢測間隔為1秒。
s = 100 '這裡設定了100秒的倒計時時間，你可以修改需要的時間，單位是秒。
end sub
private sub timer1_timer()s = s - 1
if s = 0 then
倒計時時間到，需要執行語句。
falseend if
end sub
8樓：無衝
如果你只是為了實現達到某個時間後執行語句。
你可以用time取得系統時間。
然後用if語句來達到某個時間後執行語句。
9樓：網友
如果你不怕佔用資源，就用timer控制項．
10樓：
迴圈中加個sleep 1000(時間間隔) 然後變數(先自定義初值)減一)後面加判斷語句，及跳出語句，迴圈外執行。
請教vb倒計時程式
private sub timer1 timer dim timenow as date timenow 4 00 00 pm time me.cls print 距離下午4點還有 hour timenow 時 minute timenow 分 second timenow 秒 if time 4 ...
還有30天中考了，怎麼提分快，中考倒計時30天如何提高整體分數。
一 有目標，有信心。一個人要做事，必須要有堅定的信心。自信是激勵自己奮發進取 換得昂揚鬥志的靈丹妙藥，自信是贏得挑戰勝利的良方。在這備戰中考的最後30天裡，要把自己的奮鬥目標製作成小卡片張貼在自己的課桌上，隨時提醒自己向目標奮進。有了目標，然後滿懷信心地奮鬥。二 要制訂中考目標，明確中考分數，並制定...
高考倒計時50天如何提分，高考倒計時9天，如何衝刺提分
談論我的經驗，我也是學文科，語文，數學，英語有改進的餘地。只要古詩詞默寫背單詞的語言被髮送到子標題是沒有錯的，是沒有問題的。但是我們可以學習自己的一天，看到一篇文章或詩歌，早讀時間回單位中午吃前半小時聽寫。很少有人能做到互相監督。錯誤的詞語和詩句處罰能趕上寫了幾乘以100天，幾乎只要這個詞是足夠數量...