./第7章VisualBasic控件及其應用VB是一種可視化的程序設計語言,即對于圖形界面的設計,不需要編寫大量的代碼,只需選用并為每個對象設置屬性。因此,控件在VB程序設計中扮演這及其重要的角色。VB控件可分為標準控件、ActiveX控件和可插入對象3類,在第3章中已介紹了標簽、文本框和命令按鈕3種控件,本章將進一步介紹其他常用控件。學習目標：單選按鈕、復選按鈕、列表框的設置和使用計時器、圖片框和滾動條的設置和使用。通用對話框的設置和使用。7.1單選按鈕、復選按鈕及框架在實際編程中,有時會遇到一些開關或功能選項要求用戶做出選擇,或要求用戶在一個小圍對某些參數(shù)做出選擇等。為此,VB提供了單選按鈕、復選按鈕及框架來實現(xiàn)上述功能。單選按鈕單選按鈕〔OptionButton控件也稱為選項按鈕,常被成組選用,用于實現(xiàn)多選一的情況。在一組單選按鈕中,僅有一個單選按鈕會被選中〔出現(xiàn)黑點。選中某項后,該組中的其他單選按鈕均處于未選中狀態(tài),這是單選按鈕與復選按鈕的主要區(qū)別,也是單選按鈕名稱的由來。單選按鈕的常用屬性Value屬性Value屬性用于返回或設置單選按鈕是否有效的選中狀態(tài),其取值為True或False。若屬性值為True,則表示該單選按鈕處于被選中狀態(tài)；若為False,則處于未選中狀態(tài)。運行時,可以通過該屬性檢查單選按鈕的選中狀態(tài),還可以通過賦值語句修改Value屬性值,以改變單選按鈕的選中狀態(tài)。Enabled屬性Enabled屬性用于設置單選按鈕是否有效〔可操作。屬性值為True表示有效,為False為無效,單選按鈕禁止使用并顯示為灰色。Style屬性Style屬性用于設置單選按鈕的樣式,其值有0和1兩種。若設置為0,則為標準樣式〔默認值；若設置為1,則為圖形化的單選按鈕,此時可在單選按鈕上同時顯示文字和圖像,這一點類似于圖形化命令按鈕。Picture屬性Picture屬性用于設置單選按鈕要顯示的圖像。該屬性只有在Style屬性值為1時有效。Caption屬性Caption屬性用于設置單選按鈕旁的說明文字。單選按鈕事件和方法單選按鈕能響應的事件有Click、GotFocus、MouseMove、MouseDown、MouseUp、KeyDown、KeyUp和KeyPress。實際編程中最常用的事件是Click事件。單選按鈕支持的方法較少,常用的有SetFocus、Refresh和Move。單選按鈕應用〔例7.1[例7.1]利用單選按鈕控制文本的對齊方式,程序運行界面如圖7-1所示。設計步驟如下：創(chuàng)建新工程,在窗體上添加1個文本框Text1和3個單選按鈕控件Option1~Option3。將Option控件的Caption屬性設置為"左對齊"、"居中對齊"和"右對齊"。將Text1控件的字體〔Font屬性設置為"楷體_GB2312”編寫3個單選按鈕的單擊〔Click事件代碼。如圖7-2所示編寫窗體Form1的裝載〔Load事件。如圖7-2所示。框架 框架〔Frame控件有時也稱為容器控件,在其部的控件可以隨框架一起移動,并且受到框架控件某些屬性〔如Visible和Enabled的控制。 框架常與單選按鈕配合使用,用于給單選按鈕分組。當不使用框架時,窗體上所有單選按鈕將被視為同一組,利用框架可以創(chuàng)建新的按鈕組。使用時應首先添加框架,然后在該框架上繪制單選按鈕,即可形成新的按鈕組?？蚣艿某Ｓ脤傩钥蚣苁且环N輔助性控件,功能較單一,因此屬性較少。常用屬性主要有以下兩種：BorderStyle屬性BorderStyle屬性決定框架是否有邊線,取值為1或0.若該屬性設置為0,則框架無邊線；若設置為1〔默認值,則有凹陷的單邊線。Caption屬性Caption屬性用于設置框架上顯示的標題。若將該屬性設置為空,則框架呈現(xiàn)封閉矩形?？蚣艿膽谩怖?.2[例7.2]設計一個程序,用戶界面上有兩組單選按鈕。一組用來改變文本框字體,一組用來改變文本框的字體大小。用戶界面設計如圖7-3所示。圖7-3使用框架產生兩組單選按鈕設計步驟如下：創(chuàng)建新工程,在窗體上添加1個文本框Text1,2個框架控件Frame1和Frame2。在Frame1中繪出單選按鈕Option1~Option4〔用于選擇字體。在Frame2中繪出單選按鈕Option5~Option8〔用于選擇字號。設置控件屬性值。如圖7-3所示。編寫程序代碼：如圖7-4所示。圖7-4程序代碼復選框 復選框〔CheckBox控件相當于一個開關,用來表明選定〔On或者未選定〔Off兩種狀態(tài)。當復選框被選定時,復選框出現(xiàn)個對號"√"。單選按鈕只能在多項選擇中選取其中的一項,若遇到需要同時選擇多項的情況,可以采用復選框控件。復選框的常用屬性Value屬性：用于返回或設置復選框控件的狀態(tài)。給屬性在設計和運行時均可設置。,在程序過該屬性可獲得復選框的狀態(tài),其值為以下3種之一。0-Unchecked：復選框未被選中。1-Checked：復選框被選中。2-Grayed：復選框處于半選狀態(tài)。Caption屬性：用于設置出現(xiàn)在復選框旁邊的文字。Style屬性和Picture屬性：與單選按鈕功能相同。復選框的事件和方法復選框能響應的事件主要有Click、GotFocus、LostFocus、MouseMove、MouseDown、MouseUp、KeyDown、KeyUp和KeyPress。實際編程中最常用的事件是Click事件。復選框的應用〔例7.3一般情況下,復選框總是成組出現(xiàn),用戶可以從中選擇一個或多個選項。[例7.3]設計一個個人資料輸入程序,使用單選按鈕組選擇性別與民族,使用復選框選擇個人愛好,用戶單擊"確定"按鈕后,在信息對話框中顯示個人資料信息。程序運行界面如圖7-5所示。圖7-5復選框的使用編寫程序代碼如圖7-6所示：圖7-6程序代碼7.2列表框與組合框列表框〔ListBox控件和組合框〔ComboBox控件是Windows應用程序常用的控件,主要用于提供一些可供選擇的列表項目。在列表框中,任何時候都能看到多個選項,而在組合框中,通常只能看到一個選項,用鼠標單擊其右側的下拉按鈕才能看到多項列表。列表框采用工具箱中的工具繪制,組合框采用工具繪制。列表框列表框常用來顯示一個項目的列表,用戶可從中選擇一個選項或多個選項。如果項目總數(shù)超過了列表框的可顯示區(qū)域,列表框會自動出現(xiàn)滾動條,如圖7-所示,這樣方便用戶以滾動的方式來選擇列表項。圖7-7列表框示意圖列表框的常用屬性Columnsshux屬性：指定列表框中的課件列數(shù),默認值為0,這時列表框中不允許顯示多列,當該屬性值大于或等于1時,列表框中能顯示多列。List屬性：該屬性是字符串數(shù)組。每個數(shù)組元素都是列表框中的一個列表項。使用該屬性能夠方便地訪問列表框中的項目,例如,有如下語句：Rec1=ListBox1.List<2>該語句表示把列表框ListBox1的第3個元素的容賦給字符串變量Rec1。List屬性既可以在屬性欄中設定,也可以由程序語句設置。ListIndex屬性：程序運行時,可以使用ListIndex屬性判斷列表框中哪個項目被選中。ListIndex屬性用于設置和返回被選中的選項在List數(shù)組中的下標序號。例如,在列表框List1中選中第2項,即List1.List數(shù)組的第2項,其ListIndex=1〔列表框中的項目下標從0開始。如果用戶沒有從列表框中選擇項目,則ListIndex=-1。ListCount屬性：該屬性經(jīng)常與List屬性一起使用,表示列表框中有多少個列表項。Text屬性：該屬性用于返回被選中列表項的容。該屬性既可以在屬性欄中設定,也可以由程序語句設置。Selected屬性：該屬性用于返回和設置列表框列表項的選擇狀態(tài),其屬性值為True或False。表示響應的列表項是否被用戶選中,該屬性只能在程序中設置。其語句格式為：列表框名.Selected<列表項序列號>=True|False利用該語句可以選擇指定的列表項或取消已選擇的列表項。MultiSelect屬性：該屬性確定列表框中是否允許選擇多項。其值為0時,表示一次只能選擇一項,不能選擇多項。其值為1時,表示允許選擇列表框中多個項目,每用鼠標單擊一個項目,則該項目被選中。其值為2時,表示可以選擇列表框中否個圍的的項目,及可以用在按住[Shift]鍵的同時單擊鼠標選擇一組連續(xù)排列的項目,或按住[Ctrl]鍵的同時單擊鼠標選擇一組不連續(xù)排列的項目。列表框的事件和方法〔1列表框常用事件：DblClickClick〔2列表框常用方法：AddItem、RemoveItem、ClearAddItem方法：該方法用于在運行期間向列表框增加一個列表項,其語法格式如下：列表框名.AddItem要增加的列表項[,列表索引號]其中,"列表索引號"是從0開始的順序號,標明新增列表項添加到列表框中的位置。若省略該參數(shù),則新增的列表項放在列表框的末尾。列表項索引號對應于列表框的ListIndex屬性,可以通過列表框的ListIndex屬性確定所選擇的項目。例如,若要在列表框中第2項位置插入以新列表項,容為"服裝部",語句應為：List1.AddItem"服裝部",1裝入列表項容的語句通?？煞旁诖绑w的Load事件過程中完成。RemoveItem方法：該方法用于刪除列表框中指定的列表項,其語法格式如下：列表框名.RemoveItem列表項索引號例如,刪除列表框List1中的第3項的語句為：List1.RemoveItem2Clear方法：該方法用于清除列表框中所有的列表項。其語法格式如下：列表框名.Clear列表框的應用〔例7.4[例7.4]設計一個程序,運行時的窗體如圖7-8所示。窗體中包含兩個列表框。左側列表框中列出若干省市的名稱。當雙擊其中的某個省市名稱時,這個省市從左側的列表框中消失,同時出現(xiàn)在右側的列表框中。其中,左側列表框中的省市名稱是在程序開始運行時添加到列表框中的。圖7-8[解答]窗體及控件的屬性設置如下表所示：對象屬性設置窗體Name〔名稱Form1列表框1Name〔名稱List1列表框2Name〔名稱List2命令按鈕Name〔名稱Command1Caption退出標簽1Name〔名稱Label1Caption全部省市標簽2Name〔名稱Label2Caption選中的省市Form_Load事件過程的代碼如下：以上過程利用窗體的Load事件實現(xiàn)列表框的初始化。過程中用Additem方法將過程中的8個省市名稱添加到列表框1〔List1中,使得列表框中列出全部省市的名稱。列表框1〔List1的雙擊事件過程代碼：過程開始定義了兩個變量ind和city分別為整型變量和字符串變量。語句Ind=List1.ListIndex將List1列表框中被選中的下標號賦給ind變量,例如,選中"",ind為1〔下標序號從0開始,""位于第2項。語句city=List1.Text將列表框中被選中的容〔省市的名稱存放到變量city中。第5條語句是將ind所對應的列表項從List1中刪除,第6條語句是將city中的容添加到列表框2〔List2中。組合框組合框〔ComboBox控件兼有文本框和列表框兩者的功能,既可以在控件的文本狂部分輸入信息,也可以在控件的列表框部分選擇一項。1.組合框的常用屬性組合框〔ComboBox控件的屬性與列表框基本相同,另外增加了一些與文本框相關的屬性。Style屬性：該屬性用于設置組合框的外觀風格,其取值如下表所示：值描述0〔默認值下拉組合框,用戶可以單擊向下按鈕在列表框中選擇項目,還可以在文本框中輸入新項目。1簡單組合框〔列表框不能被收起和拉下,用戶可以在列表中選擇項目,還可以在文本框中輸入新項目。2下拉列表,僅允許從下拉列表中選擇項目。Text屬性：該屬性用于存放用戶選中的列表項容或通過鍵盤輸入的容。該屬性在設計時無效,在運行時只讀。由于組合框是列表框和文本框的組合。因此,組合框支持列表框的屬性,同時也支持部分文本框的屬性,當祝賀狂的Locked屬性設置為True時,則祝賀狂將失去鍵盤輸入的能力,同時也不能對組合框的列表項進行選擇操作。組合框的事件和方法組合框的事件組合框能響應的事件有Change、Click、DblClick等組合框的方法組合框支持的方法與列表框相同,用法也一樣。組合框的應用〔例7.5[例7.5]設計一個程序,要求程序運行后,在組合框中顯示若干城市的名稱。選中某個城市后,將其名稱顯示在對應于"選中的城市"的標簽中。在程序運行中,可以項組合框中添加新的城市,也可以刪除選中的城市。程序運行后,窗體外觀如圖7-9所示。 圖7-9窗體及控件的屬性見下表。[例7.5]的對象屬性設置表對象屬性設置窗體〔名稱NameForm1組合框〔名稱NameCombo1Style1標簽1〔名稱NameLabel1Caption所有城市標簽1〔名稱NameLabel2Caption選中的城市標簽1〔名稱NameLabel3Caption置空BorderStyle1命令按鈕1〔名稱NameCommand1Caption添加命令按鈕2〔名稱NameCommand2Caption刪除命令按鈕3〔名稱NameCommand3Caption退出首先在Form1_Load中把一些城市添加到組合框中,程序代碼如下：當選擇組合框中的某個城市時,觸發(fā)組合框的單擊事件,將組合框中當前所選擇的城市〔即Combo1.Text顯示在標簽中,相應的程序代碼如下：如果要在組合框中添加新的城市名稱,需要先在組合框中輸入一個新的城市名,再單擊"添加"按鈕,執(zhí)行如下事件過程,把新的城