選擇結(jié)構(gòu)程序設(shè)計(2)-資料下載頁
2025-01-07 01:38本頁面
【正文】 按下時的相應(yīng) Click事件處理程序中，根據(jù)復(fù)選框的被選狀態(tài)，進行不同的處理。所以，復(fù)選框通常也是為其他命令的 Click事件處理程序提供選擇條件 【 例 】 ：利用單選按鈕和復(fù)選框控件字體的屬性。 設(shè)計步驟： 建立用戶界面并設(shè)置相應(yīng)的屬性： 在窗體上添加一個標(biāo)簽控件 Label1， Caption屬性設(shè)置為： Visual Basic程序設(shè)計。繪制兩個框架 Frame Frame2和四個復(fù)選框 CheckCheck Check Check4。在框架 Frame1中，添加一組單選按鈕Option1 、 Option2 、 Option Option4。在框架 Frame2 中，添加另一組單選按鈕， Option5 、 Option Option7 、 Option8。并設(shè)置上述控件相應(yīng)的 Caption屬性 47 設(shè)置好的界面如圖 ： 48 ： 是否加刪除線的復(fù)選框 Check1的 Click事件代碼： Private Sub Check1_Click() If = 1 Then = True Else = False End If End Sub 是否加下劃線的復(fù)選框 Check2的 Click事件代碼： Private Sub Check2_Click() If = 1 Then = True Else = False End If End Sub 49 是否為粗體的復(fù)選框 Check3的 Click事件代碼： Private Sub Check3_Click() If = 1 Then = True Else = False End If End Sub 是否為斜體的復(fù)選框 Check4的 Click事件代碼： Private Sub Check4_Click() If = 1 Then 39。是否為斜體 = True Else = False End If End Sub 50 將字體改為宋體的單選按鈕 Option1的 Click事件代碼如下： Private Sub Option1_Click() = 宋體 End Sub 將字體改為隸書的單選按鈕 Option2的 Click事件代碼如下： Private Sub Option2_Click() = 隸書 End Sub 將字體改為黑體的單選按鈕 Option3的 Click事件代碼如下： Private Sub Option3_Click() = 黑體 End Sub 將字體改為楷體的單選按鈕 Option4的 Click事件代碼如下： Private Sub Option4_Click() = 楷體 _Gb2312 End Sub 51 將字號改為 12號字的單選按鈕 Option5的 Click事件代碼如下： Private Sub Option5_Click() = 12 End Sub 將字號改為 16號字的單選按鈕 Option6的 Click事件代碼如下： Private Sub Option6_Click() = 16 End Sub 將字號改為 20號字的單選按鈕 Option7的 Click事件代碼如下： Private Sub Option7_Click() = 20 End Sub 將字號改為 24號字的單選按鈕 Option8的 Click事件代碼如下： Private Sub Option8_Click() = 24 End Sub 52 程序運行的效果如圖 ： 53 計時器控件 計時器控件（ Timer）能按照指定的時間間隔周期性地觸發(fā)計時器（ Timer）事件，并執(zhí)行事件處理代碼。它的缺省名稱為 Timer Timer … 。 計時器控件在設(shè)計時的圖標(biāo)是，但在運行時隱藏，它沒有 Visible屬性。它的大小不可改變，也沒有 Width和Height屬性。雖然它有 Left和 Top屬性，但是由于它運行時不可見，所以這兩個屬性并不重要。在計時器控件中，比較重要的屬性是 Interval和 Enabled 54 1． Interval屬性 Interval屬性返回或設(shè)置計時器控件的 Timer事件響應(yīng)所需間隔的毫秒數(shù)。 Interval屬性的取值范圍為 1～ 65535。當(dāng)Interval屬性值為 0時（缺省值），計時器不起作用；當(dāng)Interval屬性為 1000時，時間間隔是 1秒。 2． Enabled屬性 Enabled屬性決定計時器控件是否有效。當(dāng) Enabled屬性值為True（缺省值）時，激活計時器開始計時；當(dāng) Enabled屬性值為 False時，計時器處于休眠狀態(tài)、不計時。 計時器控件只有一個事件 Timer，當(dāng)達到 Interval屬性所規(guī)定的時間間隔時， Timer事件被觸發(fā)、執(zhí)行事件處理代碼。 55 【 例 4． 9】 利用計時器控件制作一個電子時鐘，并實現(xiàn)整點報時。 分析：在窗體上添加一個計時器控件和一個標(biāo)簽控件，將計時器控件的 Interval屬性設(shè)為 1000，即每隔 1秒鐘刷新 1次標(biāo)簽的Caption屬性，實現(xiàn)電子時鐘的功能。同時檢測系統(tǒng)時間是否為整點，如是整點，則發(fā)出提示聲音和整點報時信息。為使提示信息停留時間稍長一些，把小于 5秒以內(nèi)，都認(rèn)可為整點。 要得到系統(tǒng)時間的分鐘和秒，可以用 Minute和 Second函數(shù)。 要使計算機發(fā)出提示信息，可以內(nèi)部過程 Beep。 56 設(shè)計步驟如下： 建立用戶界面與設(shè)置對象屬性。如圖 ： 57 編寫事件代碼： 為使程序在開始運行時就上出現(xiàn)系統(tǒng)時間，應(yīng)在窗體 Form的Load事件內(nèi)編寫如下代碼： Private Sub Form_Load() = Time 39。刷新時間 End Sub 在計時器 Timer1的 Timer的事件代碼如下： Private Sub Timer1_Timer() = Time If Minute(Time) = 0 And Second(Time) = 0 Then Beep 39。整點時發(fā)出提示聲音 If Minute(Time) = 0 And Second(Time) 5 Then = 現(xiàn)在是 amp。 Hour(Time) amp。 點整 39。提示信息停留 5秒 End If End Sub 58 程序運行效果如圖 ：
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1