單選按鈕復選框和框架 完整版課件

1、第6章 命令按鈕、復選框、單選按鈕和框架6.1 命令按鈕6.2 復選框6.3 單選按鈕6.4 框架6.5 控件數(shù)組命令按鈕大多數(shù)應用程序中都有命令按鈕CommandButton控件，用戶可以單擊按鈕執(zhí)行某項操作。命令按鈕控件CommandButton使用CommandButton控件創(chuàng)建，可以有不同的外觀：Caption屬性：該屬性設定按鈕顯示的文字。Style屬性：控制按鈕的顯示類型，共有兩種取值：標準類型和圖形類型。Picture屬性：指定按鈕中顯示的圖片。BackColor屬性：指定按鈕的背景顏色。Tooltiptex屬性：指定按鈕提示信息命令按鈕的快捷訪問鍵訪問鍵為按鈕的選中提供了一種

2、快捷方式，即同時按下ALT鍵和訪問鍵等同于鼠標單擊該按鈕。熱鍵可以提高鍵盤操作的速度。方法：使用按鈕的Caption屬性賦予按鈕一個訪問鍵。在標題中，在想要指定為訪問鍵的字符前加一個“&”符號，該字符就會帶有一個下劃線。比如：&Next，&Last命令按鈕的響應使用CommandButton控件創(chuàng)建，只要用戶單擊按鈕，就會調(diào)用Click事件過程程序執(zhí)行有以下方法選中命令按鈕：鼠標單擊按鈕用Tab鍵把焦點移到按鈕上，按空格或回車鍵使用按鈕的快捷鍵（Alt+有下劃線的字母）Caption屬性的快捷字符前插入符號“&”在程序代碼中設置按鈕的Value屬性為True在代碼中直接調(diào)用按鈕的Click事件

3、命令按鈕示例1【例】點擊一個按鈕，發(fā)出鈴聲界面元素組成：一個命令按鈕控件：Command1編寫Click事件過程(雙擊按鈕即可進入代碼窗口)Private Sub Command1_Click() BeepEnd Sub命令按鈕示例2【例】在窗體上添加一個按鈕，實現(xiàn)窗口的最大化和還原。 命令按鈕示例2設計一個命令按鈕，命名為cmdSize （窗體的MaxButton和MinButton屬性均設置為False） ：在窗口第一次顯示時，按鈕標題為“最大化(&L)” 。點擊按鈕后將窗口最大化，并且標題變成“還原(&B)”。再點擊設置窗口還原，標題又恢復為“最大化(&L)” 。Private Sub

4、cmdSize_Click() If cmdSize.Caption = 最大化(&L) Then Me.WindowState = 2 cmdSize.Caption = 還原(&B) Else Me.WindowState = 0 cmdSize.Caption = 最大化(&L) End IfEnd Sub6.1.1 使用Enabled屬性使命令按鈕可用或不可用Visual Basic提供的Enabled（可用）屬性用來控制對象是否可用。當Enabled的屬性值為True（-1）時，表示對象可用，為False(0)時，使對象“不可用”（即暫時失效）?？梢栽谠O計階段設置Enabled屬性的

5、值，也可以在程序運行階段改變Enabled屬性的值。如用戶未指定它的值，系統(tǒng)指定的隱含值為True(-1)，即“可用”。【例6.1】設計一個程序，擬在窗體上裝入一個圖片，在圖片上畫3個標簽。窗體還有三個命令按鈕，各控件的位置如圖6.1所示。程序進入運行狀態(tài)后如圖6.2所示。當單擊“顯示文本1”命令按鈕后，在圖片上顯示出一些文字，同時此命令按鈕變成淺灰色，表示“失效”。若單擊“顯示文本2”命令按鈕，則圖片上換成另一段文字，此時“顯示文本2”按鈕失去作用，而“顯示文本1”按鈕恢復原狀，可以使用。圖6.1圖6.2屬性設置如表6.1（見書112頁）所示。根據(jù)題目要求，在程序運行后，若單擊“顯示文本1”

6、命令按鈕，應顯示出一些文字，并使該命令按鈕失效。據(jù)此寫出cmdShow1_Click事件過程（cmdShow1是命令按鈕1的名字）。Private Sub cmdShow1_Click() cmdShow1.Enabled = False cmdShow2.Enabled = True lbl1.Caption = 歡迎你 lbl2.Caption = 使用 lbl3.Caption = End Sub在執(zhí)行cmdShow1_Click()事件過程后，“顯示文本1”命令按鈕已變成灰色（如圖6.3所示）。編寫出cmdShow2_Click事件過程如下：圖6.3Private Sub cmdSho

7、w2_Click() cmdShow1.Enabled = True cmdShow2.Enabled = False lbl1.Caption = lbl2.Caption = lbl3.Caption = Visual BasicEnd Sub在單擊“顯示文本2”命令按鈕后，屏幕顯示如圖6.4所示。圖6.46.1.2 用Visible屬性使命令按鈕“不可見”上述的Enabled屬性是使命令按鈕“不可用”，在屏幕上改為淺灰色，但仍然看得見。有時希望在屏幕上使它變成“不可見”。Visual Basic提供的Visible(可見)屬性就是用來控制命令按鈕在屏幕上是否能被看得見。當Visible屬

8、性值為True（-1）時，命令按鈕可以看得見；若為False(0)，則命令按鈕被“隱藏”起來，在屏幕上不顯示。應該說明，該命令按鈕依然存在，其他各屬性仍然起作用，只是在屏幕上不顯示而已。Visible屬性的值既可以在設計階段直接設置，也可以在運行時通過程序來改變。如果用戶不指定該屬性的值，Visual Basic自動將它的初始值定為True，即“可見”。有時需要清理屏幕時，只希望屏幕上顯示用戶所需要的信息而不希望顯示某些控件時，可以用Visible屬性。在例6.2中，讀者將會看到Visible屬性的使用。其實Enabled和Visible屬性不僅可用于命令按鈕，也可用于窗體。默認的命令按鈕設置

9、按鈕的Default屬性為True, 直接使用Enter鍵即可選中設置按鈕的Cancel屬性為True, 用Esc鍵選中6.1.3 Default屬性和Cancel屬性用Default屬性使命令按鈕為默認的“活動按鈕”，用Cancel屬性使命令按鈕為“取消”按鈕。許多用過Windows程序的讀者會發(fā)現(xiàn)，有的對話框中有兩個命令按鈕，一個上面的文字為Ok（或“確定”），另一個為Cancel（或“取消”）。如果想選擇Ok（或“確定”），既可以用鼠標單擊該命令按鈕，也可以在鍵盤上按Enter鍵，表示選中它。這個可以用Enter鍵代替的命令按鈕就稱為默認的“活動按鈕”。在Visual Basic中可以用

10、Default屬性將一個命令按鈕設置為默認的“活動按鈕”。當一個命令按鈕的Default屬性值被設為True時，該按鈕就被確定為默認的“活動按鈕”，當為False時，不是默認的“活動按鈕”，不能用Enter鍵代替單擊該按鈕來選擇它。在一個窗體中，只能有一個命令按鈕的Default屬性值為True。此外，人們還常常希望用按鍵盤上的Esc鍵來代替單擊“取消”按鈕，這符合人們的操作習慣。Visual Basic提供的Cancel屬性可以用來指定一個命令按鈕為“取消”按鈕， 在運行時可以用Esc鍵代替單擊該命令按鈕。當Cancel屬性值為True時，該按鈕被指定為“取消”按鈕，當為False時，則不是

11、“取消”按鈕，在運行中不能用Esc鍵代替單擊該命令按鈕。在一個窗體中，只能有一個命令按鈕的Cancel屬性值被設置為True?！纠?.2】設計一個程序，窗體中有2個命令按鈕和3個標簽，如圖6.5所示。程序運行后若單擊“確定（Ok）”按鈕，則2個命令按鈕和最上面一個標簽成為不可見，同時在另外兩個標簽上顯示出當前日期和時間，單擊“取消（Esc）”命令按鈕結束程序運行。屬性設置見表6.2（見書116頁）。圖6.5根據(jù)題目要求，在單擊“確定（Ok）”命令按鈕時，應顯示出當前日期和時間。編寫出以下程序代碼：Private Sub cmdOk_Click() cmdOk.Visible = False l

12、blTitle.Visible = False lblDate.Caption = 日期: + Date$ lblTime.Caption = 時間: + Time$End Sub執(zhí)行此事件過程后，用戶看到的窗口如圖6.6所示。圖6.6命令按鈕的一般形式是長方形、有文字說明。為使用戶界面更加生動，可以使用帶圖案的命令按鈕。具體做法如下：（1） 添加一個按鈕；（2） 設置該按鈕的Style 屬性為1；（3） 選擇按鈕的Picture 屬性，單擊右側有“”的按鈕，在“加載圖片”對話框中選擇一個圖片文件，則將該圖片放到命令按鈕上。6.2 復選框有時，希望在應用程序的用戶界面上，提供一些項目讓用戶從兩

13、種方案中選其一（如“是否要輸出結果”，“是否使用大寫字母”，“是否選擇這個文件”，等等）。Visual Basic提供一種稱為“復選框”（Check box）的控件，又稱“檢查框”。它有兩種狀態(tài)可以選擇： （1） 選中（或稱“打開”，復選框中出現(xiàn)一個“”標志）； （2） 不選（或稱“關閉”，“”標志消失）?！纠?.3】設計一個程序，用戶界面設計如圖6.7所示，由一個標簽、一個文本框、四個復選框組成。程序開始運行后，用戶在文本框中輸入一段文字，然后按需要單擊各復選框，用以改變文本的字體、字形、顏色以及大小。屬性設置見表6.3（見書119頁）。圖6.7先對第1個復選框（Name屬性為chkFont

14、）的單擊事件編寫單擊事件過程：Private Sub chkFont_Click() If chkFont.Value = 1 Then txtPassage.FontName = 宋體 Else txtPassage.FontName= 幼圓 End IfEnd Sub與此類似，編寫出第2個復選框（斜體）的如下事件過程：Private Sub chkItalic_Click() If chkItalic.Value = 1 Then txtPassage.FontItalic = -1 Else txtPassage.FontItalic = 0 End IfEnd Sub接著編寫第3個復選

15、框的單擊事件過程。Private Sub chkSize_Click() If chkSize.Value = 1 Then txtPassage.FontSize = 16 Else txtPassage.FontSize = 8 End IfEnd Sub最后編寫第4個復選框的單擊事件過程：Private Sub chkCol_Click() If chkCol.Value = 1 Then txtPassage.ForeColor = QBColor(13) Else txtPassage.ForeColor = QBColor(0) End IfEnd Sub在運行程序時，用戶可以任意

16、設定這四個復選框的狀態(tài)，例如對4個框都選中，這時就使文本框的文字為宋體，字形為斜體，字的大小為16點，顏色為紫色。可以選擇其中幾個，圖6.8表示的是選中了宋體、大小為16點、顏色為紫色的運行結果。圖6.8復選框的其他屬性有下述兩種。（1） Alignment屬性：用來設置復選框在文字標題的左側（0），還是右側（1）。（2） Style屬性：用來設置復選框的外觀。這是Visual Basic 6.0中新增加的屬性。Style=0，是標準復選框的外觀，即在一個方框旁邊顯示提示信息。Style=1，其控件的外觀類似于命令按鈕。當單擊該按鈕時，按鈕處于被按下、且尚未彈起的狀態(tài)，再次單擊，按鈕外觀恢復原

17、狀。例如，在窗體上添加一個復選框Check1，Caption屬性值為“復選框按鈕”，Style屬性值為1，再為復選框的單擊事件編寫如下的事件過程：Private Sub Check1_Click() If Check1.Value = 1 ThenMsgBox 復選框1被按下 ElseMsgBox 復選框1被釋放 End IfEnd Sub當單擊”復選框按鈕”時，表示該選項被選中，復選框的Value屬性為1，出現(xiàn)一個提示框，如圖6.9所示。再次單擊“復選框按鈕”，按鈕彈起來，恢復原來的形狀。圖6.96.3 單選按鈕有時，應用程序卻要求在一組（幾個）方案中只能選擇其中之一，這就要用“單選按鈕”控

18、件。單選按鈕也在工具箱中。如果有一組（多個）單選按鈕，Visual Basic規(guī)定一次只能選擇其中之一。當選中某一單選按鈕時，該框出現(xiàn)一個黑點（表示選中），同時其他單選按鈕中的黑點消失，表示關閉（不選），這是單選按鈕與復選框的主要區(qū)別，也是單選按鈕名稱的由來。【例6.4】設計一個程序，用戶界面由四個單選按鈕、一個標簽控件和一個命令按鈕組成，程序開始運行后，用戶單擊某個單選按鈕，就可將它對應的內(nèi)容（星期、日期、月份或年份）顯示在標簽中，用戶界面設計如圖6.10所示。屬性設置見表6.4（見書122頁）。標簽Label1設置成有單線的邊框 (BorderStyle屬性的值為1)，4個單選按鈕的標題分

19、別為“星期”、“日期”、“月份”、“年份”。如果用戶單擊“星期”單選按鈕，則會觸發(fā)以下的事件過程：圖6.10Private Sub optweek_Click() w$ = WeekDay(Now) Label1.Caption = 今天是星期 + w$End Sub與此類似，如果單擊“日期”單選按鈕，則執(zhí)行下面過程，在標簽中顯示“今天是xx號”的信息。Day是日期函數(shù)，Day(Now)的值是表示日期的數(shù)字字符串（如18、3等）。Private Sub optDay_Click() d$ = Day(Now) Label1.Caption = 今天是 + d$ + 號End Sub單擊“月份”

20、單選按鈕，則執(zhí)行下面的過程，其中Month是月份函數(shù)。Month(Now)的值是表示月份的數(shù)字字符串。Private Sub optMonth_Click() m$ = Month(Now) Label1.Caption = 這月是 + m$ + 月份End Sub單擊“年份”單選按鈕，則執(zhí)行下面的過程，其中Year是年份函數(shù)。Private Sub OptYear_Click() y$ = Year(Now) Label1.Caption = 今年是 + y$ + 年End Sub如想使程序停止運行，可單擊“結束”命令按鈕，執(zhí)行下面的過程：Private Sub cmdEnd_Click()

21、 EndEnd Sub一個單選按鈕被選中時，其Value屬性值被設置成True（-1），有一黑點出現(xiàn)在單選按鈕中，表示它處于打開狀態(tài)，再單擊一次則黑點消失，Value的屬性值變?yōu)镕alse（0），為關閉狀態(tài)。程序運行結果如圖6.11所示，此時選中“年份”，標簽中顯示出年份信息。圖6.11此外，單選鈕也可以有豐富的圖形外觀。Style屬性：用來指示控件的顯示風格和行為。設計時缺省取值為0-Standard，即標準的，如果設置為1-Graphical，則支持圖形外觀，以下屬性設置將生效。Picture屬性：設置控件中要顯示的圖片，該屬性可以在“屬性窗口”中直接設置，也可以在程序中用LoadPict

22、ure函數(shù)加載。如果Caption屬性有值，則按鈕中同時顯示圖片和文字。DownPicture屬性：設置控件被單擊并處于壓下狀態(tài)時顯示的圖片。DisabledPicture屬性：設置控件在無效時顯示的圖片，也就是控件的Enabled屬性取值為False時控件的外觀圖片。6.4 框架從上例中可以看到，在若干個單選按鈕中只可以選擇一個，但是有時有多組選項，希望在每組選項中各選一項，應該如何實現(xiàn)？可以設法將單選按鈕分成幾組，以每組作為一個單元，這就需要用到框架控件（Frame）?！纠?.5】設計一個程序，用戶界面上部有一個標簽，下部有2個命令按鈕，中間有3個框架和9個單選按鈕。在每個框架中放3個單選

23、按鈕，即將9個單選按鈕分為3組，一組用來改變字體，一組用來改變字體大小，一組用來改變字的顏色。用戶界面設計如圖6.12所示。程序運行后，單擊“顯示”按鈕，文本框中會顯示一行文字，其字體、大小和顏色由程序事先設定。用戶可以在3個框架中分別選擇字體、大小和顏色，然后再單擊“顯示”按鈕，此時文本框中的文字的字體、大小和顏色會發(fā)生變化。屬性設置見表6.5（見書125頁）。圖6.12按照題目要求，程序應設置字體、字號大小和顏色的初始值。設字體為“宋體”，字號大小為“14點”，顏色為“藍色”。這三個屬性的初始值既可以在設計時通過屬性表設置，也可以在Form_Load（）事件過程中設置。今在Form_Loa

24、d（）事件過程中設置，其代碼如下： Private Sub Form_Load() 設置初始值 OptFont1.Value = True（設置字體為宋體） Optsize1.Value = True（設置字體為14磅） OptColor1.Value = True（設置顏色為藍色） 顯示文本 Label1.Caption = 歡迎你使用Visual BasicEnd Sub運行這個程序，與例6.4不同的是，使用不同的動作觸發(fā)事件過程。例6.4中，每次單擊單選按鈕，觸發(fā)相應按鈕的事件過程，改變屬性值。在本例中，要求在單擊“顯示”命令按鈕時，根據(jù)各單選按鈕的狀態(tài)，改變屬性值。也就是說，單擊單選按

25、鈕時，不立即改變標簽中的文字的屬性，改變屬性的操作是由單擊“顯示”命令按鈕觸發(fā)的cmdShow_Click事件過程實現(xiàn)的。過程代碼如下：Private Sub cmdShow_Click() 確定字體 If OptFont1.Value Then Label1.FontName = 宋體 If OptFont2.Value Then Label1.FontName = 隸書 If OptFont3.Value Then Label1.FontName = 幼圓 確定字號大小 If Optsize1.Value Then Label1.FontSize = 14 If OptSize2.Valu

26、e Then Label1.FontSize = 18 If OptSize3.Value Then Label1.FontSize = 22 確定顏色 If OptColor1.Value Then Label1.ForeColor = QBColor(9) If OptColor2.Value Then Label1.ForeColor = QBColor(13) If OptColor3.Value Then Label1.ForeColor = QBColor(10) 顯示文本 Label1.Caption = 歡迎你使用Visual BasicEnd Sub“退出”按鈕的過程如下：P

27、rivate Sub cmdExit_Click() EndEnd Sub程序運行結果如圖6.13所示。圖6.136.5 控件數(shù)組控件數(shù)組是把多個控件作為一個整體來處理。控件數(shù)組中的每個元素都是相同類型的控件，比如Label1（0）、Label1（1）、Label1（2）等，都是標簽控件。控件數(shù)組中的對象具有相同的對象名，例如，Label1，不同的對象通過下標予以區(qū)別?？丶?shù)組中的對象共享相同的事件過程。下面通過例題說明控件數(shù)組的建立和使用方法?！纠?.6】設計如圖6.14所示的窗體, 其中的單選按鈕是控件數(shù)組。要求當單擊某個單選按鈕時，改變文本框中文字的字體。屬性設置見表6.6（見書129頁

28、）。建立控件數(shù)組有下述兩種方法。（1） 第一種方法是，在設計時為相同類型的多個控件設置相同的Name屬性。具體方法如下所述。 在窗體上畫出單選按鈕1時，系統(tǒng)給出默認的Name屬性的值為Option1。 接著畫單選按鈕2，系統(tǒng)給出默認的名字Option2。圖6.14 在屬性表中將Option2的Name屬性值改為Option1。然后用鼠標單擊窗體（表示屬性值設置結束），此時屏幕上會出現(xiàn)一個消息框，顯示兩行文字：“已經(jīng)有一個控件為Option1 。創(chuàng)建一個控件數(shù)組嗎? ”。單擊“是（Y）”按鈕，表示要建立一個名為Option1 的單選按鈕控件數(shù)組。此時，可以看到單選按鈕2的屬性表中的Name屬性是Option1，屬性表上部的對象框中的對象名已由Option2變?yōu)镺ption1(1)了。如果單擊屬性表的對象框右端的下拉箭頭，從其下拉表中可以看到原來的Option2已變成Option1(1)了，即Option1控件數(shù)組中已有兩個元素，即Option1(0)和Option1(1)，如圖6.15所示。圖6.15 按以上方法繼續(xù)畫Option1(2)。這時控件數(shù)組共有3個元素，即Option1(0)Option1(2)。當然也可以不用Option1作為數(shù)組名,而改用用戶自己設定的