1樓：匿名使用者
工程見附件：
在窗體上新增一個標籤：label1和一個timer1控制元件。
完整**如下：
public class form1
private thistime as date '宣告一個日期/時間變數
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.
load
timer1.enabled = false '設定timer1控制元件不能用
thistime = thistime.addminutes(2) '2分鐘倒計時
label1.text = thistime '在標籤裡顯示該時間
timer1.interval = 1000 '設定timer1控制元件每秒觸發一次
timer1.enabled = true '設定timer1控制元件能用
end sub
private sub timer1_tick(byval sender as system.object, byval e as system.eventargs) handles timer1.
tick
thistime = thistime.addseconds(-1) '設定變數減一秒鐘
label1.text = thistime '在標籤裡顯示該時間
if thistime = #12:00:00 am# then '如果變數為0，就結束倒計時，並提示！
timer1.enabled = false
msgbox("ok!")
end if
end sub
end class
2樓：山水阿銳
您好，private sub form_load()label1.caption = 10
timer1.interval = 1000end sub
private sub timer1_timer()dim a
label1.caption = label1.caption - 1
if label1.caption = 0 thenmsgbox "時間到！"
unload me
end if
end sub
怎麼用vb編寫倒計時的程式
3樓：匿名使用者
用vb6.0寫的，執行時單擊「設定」按鈕，彈出inputbox輸入框供使用者輸入倒計時的時間（以分鐘為單位）。單擊「開始」按鈕則在文字框內顯示剩餘的時間數（以時：
分：秒的格式），同時滾動條上的滾動塊同步隨時間自左向右移動。dim shi as long
dim fen as long
dim miao as long
private sub form_load()
fen=val(0)
miao=val(0)
shi=val(0)
end sub
private sub command2_click()
fen=inputbox("時間","輸入","")
if fen>=val(60) then shi=val(shi)+val(1)
end sub
private sub command1_click()
timer1.enabled=true
end sub
private sub timer1_timer()
if miao<>val(0) then
miao=miao-1
end if
if miao=val(0) and fen <>val(0) then
fen=fen-1
miao=60-1
end if
if miao=val(0) and fen =val(0) and shi <>val(0) then
shi=shi-1
fen=60-1
miao=60-1
end if
if miao=val(0) and fen =val(0) and shi =val(0) then
msgbox("時間用盡了!")
timer1.enabled=false
end if
text1.text="還剩" & shi & "時" & fen & "分" & miao & "秒"
end sub
4樓：夷炎金項明
可以不使用控制元件。
你直接獲取當前系統的年月日（分，鈔這些都一個道理，我就不說了。只說個大概），然後把年轉為月，月轉為日，然後進行比較，相差多少，直接顯示出來就行了。
哦，說錯了，寫到這裡的話，看來還是需要一個timer控制元件才行，不然時間不會走。
思路給你寫出來了，你自己看著辦吧。
vb中怎樣製作一個計時器？ 能夠設定倒計時的時間，並進行倒計時
5樓：
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、單擊「啟動倒計時」命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
6樓：天天過節
用到三個控制元件：文字框（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
7樓：弒神者是我
事先要在秒錶**調 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
8樓：匿名使用者
設定倒計時 開始時間t
for ，step -1
顯示 t-1s
next
vb2019如何對access資料庫進行操作新增新欄位
不管什麼語言對資料庫的操作都是通過資料庫引擎的.例如 通過adodb.connection呼叫access資料庫引擎.在網上查adodb.connection,很多,很多是用於vbscript的,但照抄進vb,一樣可以使用.dategridview,請檢視其具體屬性和方法. 1 增加欄位 cstri...
vb和sql2019怎麼連線，vb和sql2000怎麼連線？
用ado 連線字串如下 provider sqloledb.1 user password 資料庫使用者口令 initial catalog 連線的資料庫 data source sql資料庫伺服器名 我給你讓發個例子吧，你看了就會，會簡單的 vb怎麼連線sql？ day忘不掉的痛 一 配置odbc...
vb怎樣編寫快速關機，vb怎樣編寫一個快速關機
shutdown主要是xp系統的一個程式，可以用於關閉系統等操作在vb中 shell shutdown l 是shutdown 的一個引數 意思是登出使用者 shell shutdown r t 0 是重啟 等待時間為0秒 shell shutdown s t 0 是關閉系統 private dec...