1樓:
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、單擊「啟動倒計時」命令按鈕,文字框顯示倒計時時間,並時刻變動,至此實現了倒計時功能。
2樓:天天過節
用到三個控制元件:文字框(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
3樓:弒神者是我
事先要在秒錶**調 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
4樓:匿名使用者
設定倒計時 開始時間t
for ,step -1
顯示 t-1s
next
VB的計時器怎樣能搞小動畫,VB的計時器怎樣能搞一個小動畫。
秋色烽火 dim vy 自增量 private sub command1 click timer1.enabled not timer1.enabled end sub private sub form load vy 60 自增量 timer1.interval 100end sub privat...
vb中怎樣傳送十六進位制資料,VB 傳送十六進位制串列埠資料
如下 private sub form load mscomm1.settings 9600,n,8,1 設定通訊口引數 mscomm1.inbuffersize 40 設定mscomm1接收緩衝區為40位元組 mscomm1.outbuffersize 2 設定mscomm1傳送緩衝區為2位元組 ...
如何在中製作個人簡歷,怎樣在Word中製作個人簡歷
雙木阿林 word如何製作簡歷?很簡單,讓我來教會你!如何在word中製作個人簡歷 word如何製作簡歷?很簡單,讓我來教會你!怎樣用word製作個人簡歷 逗比耶魯 操作方法如下 1.基本資訊。一份個人簡歷,首先需要寫明這個簡歷是誰的,因此姓名 性別 籍貫 政治面貌 畢業院校 專業 是否有工作經驗 ...