LabTime.Caption=Time
For i=1 To 60
Beep
Next
End Sub
我們將計(jì)時(shí)器控件Interval屬性的值設(shè)置為l000. Enabled屬性設(shè)置為True在程序運(yùn)行后,每隔一秒就觸發(fā)一次Timerl_Timer事件,該事件中的代碼就運(yùn)行一次。因此,每隔一秒,第二個(gè)標(biāo)簽控件的Caption屬性就被刷新一次,這樣,看上去就像一個(gè)跳動(dòng)著的電子表。
Beep方法用來發(fā)出蜂鳴聲,由于一次蜂鳴聲的時(shí)間很短,難以聽到,因此采用For循環(huán)語句,來執(zhí)行多次Beep方法。
雙擊按鈕控拌,再將下列代碼添加到Timerl_Timer事件過程中:
Private Sub Commandl_Click()
If Commandl_Caption=“停 止”Then
Timer1.Enabled=False
Command1.Caption=“開 始”
Else
Timers.Enabled=Ture
Commandl.Caption==“停 止”
End If
End Sub
該段程序采用了If語句來判斷按鈕當(dāng)前的Caption屬性的值,如果是"停止",則將計(jì)時(shí)器控件Enabled屬性的值置為False,即暫停計(jì)時(shí)器的操作,并將按鈕的Caption屬性設(shè)置為"開始",如果Caption屬性的值為開始,則情況正好相反。可見,通過該按鈕可暫停或開啟計(jì)時(shí)器。
運(yùn)行該程序,則在窗體中出現(xiàn)一個(gè)與系統(tǒng)時(shí)間一起跳動(dòng)的電子表,如圖5.50所示。并且每跳動(dòng)一次,系統(tǒng)發(fā)出一聲蜂鳴。單擊【停止】按鈕,則電子表停止跳動(dòng),單擊【開始】按鈕,則電子表從當(dāng)前時(shí)間開始恢復(fù)跳動(dòng)。
2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |