1樓：天天過節
dim t, m, s as long
private sub command1_click()
if val(text1.text) < 1 then
msgbox "輸入定時時間"
else
m = text1.text: s = 0: t = m * 60
timer1.interval = 1000
end if
end sub
private sub timer1_timer()
if m > 0 and s < 0 then m = m - 1: s = 59
if s < 10 then
label1.caption = str(m) + ":0" + right(str(s), 1)
else
label1.caption = str(m) + ":" + right(str(s), 2)
end if
s = s - 1
if m = 0 and s < 0 then timer1.interval = 0: msgbox "時間到"
end sub
2樓：匿名使用者
如果僅僅是限於秒的範圍，則可用timer1控制元件，將timer1.interval = 1000
也就是1秒一次動作。
先定義一變數為倒計時的開始時間，例如k＝100 秒然後在private sub timer1_timer()k=k-1
if k<=0 then
timer1.enabled = falsemsgbox "時間到！"
endif
end sub
VB中怎樣設計時間倒計時，要可以在中途停止，從新開始，謝謝
2014年國慶節倒計時程式，可以停止 開始，有天 時 分 秒動態顯示。需要原始檔，給地址。新增一個時鐘控制元件 然後在時鐘控制元件的事件中寫 時鐘控制元件只要一個事件 你別說不知道 倒計時 比如從100開始 在通用部分宣告一個數值型變數 dim sz as integer 記住是通用部分 然後在窗體...
怎麼在VB的標籤裡實現換行,在VB中怎麼怎麼設定label自動換行
有兩種方式復 制1 編寫 實現 換行 bai label1.caption 第一行內容du vbcrlf 第二行內容 vbcrlf就是zhi一個回車符,dao實現換行 2 編輯label的屬性,實現自動換行 將autosize 設定為false,將wordwrap設定為true,此時在caption...
VB控制其他視窗的按鍵，在VB中怎樣控制其它的程式的文字框和按鈕
command1 click 是模組過程，要在form1中呼叫要用全域性過程 在工程視窗上新增一個模組module1，在模組裡把窗體2的command1 click過程寫上去，再在窗體1的command1 click事件中呼叫 例 設form2的command1 click事件為 print a 則...