1樓:心隨心潮
在窗體上畫一個timer控制元件、一個按鈕,一個progressbar控制元件(需要新增部件microsoft windows
common controls 6.0),用下面的**,單擊按鈕開始10秒倒計時。
private sub command1_click()
timer1.enabled = true
progressbar1.value = progressbar1.max
end sub
private sub form_load()
timer1.enabled = false
timer1.interval = 1000
progressbar1.value = progressbar1.max
end sub
private sub timer1_timer()
progressbar1.value = progressbar1.value - 10
if progressbar1.value <= 0 then
timer1.enabled = false
msgbox "10秒倒計時結束!"
end if
end sub
2樓:
可以用 beep 語句讓計算機喇叭發出一個「滴」聲,這條語句極其簡單,沒有任何引數。例如:
private sub command1_click()beep
end sub
按一下按鈕就會滴一聲
關於vb問題 做一個倒計時器,要求最後10秒有提示音 15
3樓:匿名使用者
正在給你做,晚上給你。
4樓:匿名使用者
使用timer控制元件 聲音的使用beep
急需可全屏顯示時間的倒計時軟體,倒數30秒和倒數10秒分別可以有提示音,跪求
VB倒計時器問題 為什麼不能倒計時,一執行,一直顯示1分39秒,沒有倒計時
dim num as integer private sub form load num 100 timer1.enabled trueend sub private sub label2 click end sub private sub timer1 timer num num 1 label1...
電腦顯示錯誤倒計時關機,電腦怎麼倒計時關機
系統不會出這樣的倒計時關機的,是病毒之類的破壞性程式。電腦怎麼倒計時關機 在 開始 執行 裡 輸 cmd,然後在 黑色的控制檯裡輸命令 shutdown s t 1000,其中1000表示倒計的時長,單位是秒,即 1000 秒後關機。具體操作步驟如下 1 回到 電腦桌 面,找到電腦左下角的電腦選單,...
VB中怎樣製作計時器?能夠設定倒計時的時間,並進行倒計時
1 開啟vb6.0,新建一個工程,在窗體中新增三個命令按鈕,caption分別改為 設定倒計時 啟動倒計時 繼續 將窗體form1的caption屬性改為 倒計時 新增一個計時器控制元件,新增一個文字框。2 將文字框的text屬性清空,將字型font屬性調整為小四,便於觀察,將背景色屬性backco...