第6章-常用標(biāo)準(zhǔn)控件

第6章常用標(biāo)準(zhǔn)控件本章要點文本控件（標(biāo)簽、文本框）圖形控件（圖片框、圖像框、直線和形狀）按鈕控件（命令按鈕）選擇控件(復(fù)選框、單選按鈕、列表框、組合框)滾動條計時器和框架焦點與Tab順序6.1概述工具箱控件圖指示器標(biāo)簽框架復(fù)選框組合框水平滾動條時鐘目錄列表框形狀圖象框OLE圖片框文本框命令按鈕單選按鈕列表框垂直滾動條驅(qū)動器列表文件列表直線Data控件是VB中預(yù)先定義好了的、程序中能夠直接使用的對象，每個控件都有自己的屬性、事件和方法。VB有三種控件：標(biāo)準(zhǔn)控件：存在于工具欄中，不可刪除。被封裝在VB的.exe文件中，不可以刪除。ActiveX控件：由第三方制造的，以獨立文件存在，擴展名為.ocx,使用前必須添加到工具欄中?？刹迦氲膶ο螅喝鏓xecl,Word等能添加到工具欄中，所以也是控件。6.1概述向工具箱中添加控件的方法如果想使用標(biāo)準(zhǔn)工具箱中沒有的控件，則必須將該控件添加到工具箱中。添加過程如下：工程-部件-控件工程-部件-可插入對象6.1文本控件標(biāo)簽：只能顯示文本，不能進行編輯。文本框：既可顯示文本，又可輸入文本。默認(rèn)名稱(name):Labelx和Textx(x為1,2…)6.1.1標(biāo)簽標(biāo)簽：用來顯示文本信息，它所顯示的信息只能通過Caption屬性設(shè)置或修改，不能直接編輯?？梢詾槠渌丶砑用枋鲂孕畔?文本框、列表框、組合框等)標(biāo)簽的屬性屬性值說明0(默認(rèn)值)從左邊開始顯示標(biāo)題，即左對齊1從右邊開始顯示標(biāo)題，即右對齊2從中間開始顯示標(biāo)題，即居中對齊Alignment：設(shè)置標(biāo)簽中文本的對齊方式。AutoSize：設(shè)置標(biāo)簽是否能夠自動調(diào)整大小以顯示所有的內(nèi)容。其中：屬性值為False(默認(rèn)值)表示顯示控件的原始大小，屬性值為True表示根據(jù)控件中的內(nèi)容自動調(diào)整控件大小。Appearance：設(shè)置標(biāo)簽的外觀是否以3D效果顯示。1為3D效果顯示，0為平面效果顯示。BackStyle：設(shè)置標(biāo)簽的背景樣式。語法格式：對象.Backstyle[=0或1]

其中：屬性值為1(默認(rèn)值)表示背景是不透明的；屬性值為0表示背景是透明的。BorderStyle：設(shè)置標(biāo)簽的邊框樣式。其中：屬性值為0(默認(rèn)值)表示無邊框；屬性值為1表示單線邊框。Caption：設(shè)置標(biāo)簽的文本內(nèi)容。標(biāo)簽中的文本只能通過Caption屬性顯示。Enabled：激活屬性（該屬性用來確定一個窗體或控件是否能夠?qū)τ脩舢a(chǎn)生的事件做出反應(yīng)）其中：屬性值為True時，允許對象對事件作出反應(yīng)；False時，禁止對事件做出反應(yīng)，在這種情況下，對象變?yōu)榛疑?運行后才能看到效果)。WordWrap:該屬性用來決定標(biāo)簽標(biāo)題的顯示方式。為了是WordWrap起作用，應(yīng)把Autosize屬性設(shè)置為True。標(biāo)簽的事件和方法標(biāo)簽具有Click(單擊)，DbClick(雙擊)等事件，但一般不需要編寫代碼。標(biāo)簽的方法中常用的只有Move，其基本語法如下：

其中：left，top，width，height分別表示移動目的位置的坐標(biāo)和大小。left為必要參數(shù)，其他三個為可選參數(shù)。一般情況下標(biāo)簽不使用其他方法。對象名.Moveleft,top,width,height例題：設(shè)計一個界面說明標(biāo)簽的基本屬性的使用

界面設(shè)計屬性設(shè)置對象名屬性名屬性值Label1Caption默認(rèn)值Label2Caption學(xué)習(xí)VBAutoSizeTrueBackStyle0(透明)BorderStyle1(單線邊框)運行結(jié)果6.1.2文本框文本框是一個文本編輯區(qū)域，主要用于接收用戶的輸入、輸出、修改等信息，可以輸入單行文本，也可以輸入多行文本，在程序運行過程中具有良好的交互性。文本框的屬性Name：設(shè)置文本框的名稱。Text：設(shè)置文本框中顯示的文本內(nèi)容。語法格式：對象名.Text=字符串Locked：設(shè)置文本框是否可以被編輯。語法格式：

其中：屬性值為False（默認(rèn)值）表示文本內(nèi)容可以編輯；屬性值為True表示文本內(nèi)容只能讀但不能修改。MaxLength：設(shè)置文本框中輸入的字符串最大長度。其中：屬性值為0（默認(rèn)值）表示文本框中字符串的長度為任意值，只受操作系統(tǒng)內(nèi)存的限制；屬性值為大于0的整數(shù)，該整數(shù)表示能夠輸入的最大字符數(shù)目。對象名.Locked={True|False}MultiLine：設(shè)置文本框是否可以輸入多行文本。語法格式：其中：屬性值為False（默認(rèn)值）表示只能單行顯示，不能顯示多行；屬性值設(shè)置為True，表示可以多行顯示文本，若文本行數(shù)超過文本框?qū)挾龋到y(tǒng)會自動為文本框添加滾動條。按Ctrl+Enter鍵可以插入一個空行。

對象名.MultiLine={True|False}PasswordChar：設(shè)置是否在文本框中顯示用戶所輸入的字符串。語法格式為：其中：該屬性如被設(shè)置為某一字符，如“*”，則無論在Text屬性值中輸入什么，在文本框中都只顯示“*”。使用該屬性可以設(shè)置密碼。對象名.PasswordChar=

"*"注意：該屬性有效的前提是MultiLine屬性必須設(shè)置為False。ScrollBars：設(shè)置文本框滾動條的模式。語法格式：

對象名.ScrollBars={0|1|2|3}屬性值說明0（默認(rèn)值）表示沒有滾動條1表示只有水平滾動條2表示只有垂直滾動條3表示既有水平滾動條又有垂直滾動條注意：只用當(dāng)MultiLine屬性被設(shè)置為True時，才能用ScrollBars屬性在文本框中設(shè)置滾動條。SelLength、SelStart和SelText：控制文本框中的插入點和文本選定操作，這些屬性僅能在運行時使用。語法格式：對象名.SelLength=數(shù)值對象名.SelStart=數(shù)值對象名.SelText=字符串其中：SelLength設(shè)置選定文本的長度，只能在代碼中使用，若值為0，表示未選中任何內(nèi)容。SelStart設(shè)置選定文本的起始點，只能在代碼中使用，第一個字符位置是0。SelText設(shè)置當(dāng)前選定文本的內(nèi)容，如果沒有選擇文本，則該屬性含有一個空字符串。只能在代碼中使用。文本框事件Change：當(dāng)用戶改變文本框的內(nèi)容時，該文本框的Change事件被觸發(fā)，該事件對應(yīng)的代碼結(jié)構(gòu)如下：

PrivateSubText1_Change()…EndSub例：程序運行時，通過用戶輸入，同步設(shè)置窗體的標(biāo)題，即用戶輸入什么，窗體標(biāo)題就同步顯示什么。PrivateSubText1_Change()

Form1.Caption=Text1.TextEndSub例：程序運行時，用戶輸入密碼時，在另一個文本框中顯示用戶輸入的密碼。PrivateSubText1_Change()

EndSubText2.Text=Text1.TextGotFocus(獲得焦點事件)GotFocus：當(dāng)文本框具有輸入焦點（即處于活動狀態(tài)時，觸發(fā)該事件）LostFocus(失去焦點事件)LostFocus:當(dāng)文本框失去輸入焦點（即處于非活動狀態(tài)時，觸發(fā)該事件）文本框方法SetFocus：可以設(shè)置焦點，其獲得焦點的顯示效果是焦點（光標(biāo)）在文本框中閃動。語法格式：該方法可以把焦點移動到指定的文本框中。當(dāng)在窗體上建立了多個文本框后，可以用該方法把光標(biāo)置于所需要的文本框。對象名.SetFocus例設(shè)計一個程序可檢查密碼是否正確，密碼為“12345”PrivateSubCommand1_Click()

pass=Text1.TextIfpass="12345"ThenLabel2.Caption=“口令正確！"ElseLabel2.Caption=“口令錯，重新輸入！"EndIfEndSub例計算三角形面積程序。設(shè)計一個窗體，窗體中含有3個標(biāo)簽框和4個文本框，3個標(biāo)簽框用來顯示提示信息，3個文本框用來輸入三角形的邊長，剩下的文本框顯示計算結(jié)果，要求每個三角形的輸入數(shù)據(jù)和計算結(jié)果顯示在一行，能多行顯示。例跟蹤輸入程序設(shè)計一個窗體，窗體中含有2個標(biāo)簽框和1個文本框，運行程序時，在文本框中輸入字母，在兩個標(biāo)簽框中分別用大寫和小寫字母顯示。6.2圖形控件

VB中的圖形控件分為圖片框(PictureBox)、圖像框(Image)、直線（Line）和形狀(Shape)控件。圖形控件的使用能美化界面和增加界面的趣味性。6.2.1圖片框和圖像框圖片框和圖像框是VB中顯示圖形的兩種基本控件。默認(rèn)名稱Picturex和Imagex圖片框圖片框控件可以用來顯示.bmp、.ico、.jpeg、.jpg、.gif等圖片類型的文件，且可以繪制圖形、顯示文本或計算結(jié)果，還可以作為容器放置其它控件。圖片框?qū)傩?.與窗體相同的屬性2.其他屬性3.CurrentX和CurrentY屬性2.其它屬性Align：設(shè)置圖片框在窗體中的顯示方式，語法格式對象名.Align={0|1|2|3|4}屬性值說明0-None默認(rèn)值，表示無特殊顯示1-AlignTop表示圖片框?？吭诖绑w上端并與窗體一樣寬2-AlignBottom表示圖片框停靠在窗體底部并與窗體一樣寬3-AlignLeft表示圖片框?？吭诖绑w左端并與窗體一樣高4-AlignRight表示圖片框?？吭诖绑w右端并與窗體一樣高AutoSize：設(shè)置控件是否能自動調(diào)整大小以適應(yīng)圖片內(nèi)容。語法格式：對象名.AutoSize={True|False}屬性值為False（默認(rèn)值）表示圖片框不能自動改變大小以適應(yīng)其中的圖形，保持原始尺寸，如果圖形比圖片框大，則超出的部分將被剪切掉；屬性值為True表示圖片框可以自動調(diào)整圖片框大小以顯示圖片的全部內(nèi)容。Picture：設(shè)置圖片框控件中顯示的圖片。在界面設(shè)計時，可直接利用屬性窗口中的Picture屬性設(shè)置相應(yīng)圖片的目錄裝入圖片；在程序運行時，可使用LoadPicture函數(shù)裝載圖片，語法格式為：對象名.Picture=LoadPicture("圖形文件名")3.CurrentX和CurrentY屬性用來設(shè)置下一個輸出的水平（CurrentX）或垂直（CurrentY）坐標(biāo)。只能在運行期間使用。格式：[對象.]CurrentX[=X][對象.]CurrentY[=Y]對象可以是窗體、圖片框和打印機。圖片框的事件和方法事件有Click和DbClick方法有Print、Cls、Move和SetFocus。

圖形文件的裝入方法1.在設(shè)計階段，通過Picture屬性裝入。在設(shè)計階段，利用菜單中的“編輯”→“粘貼”功能，將剪貼板中的圖片粘貼到圖形控件中。方法2.在運行階段，通過LoadPicture函數(shù)裝入。語法格式：[對象.]Picture=LoadPicture(“文件名”)卸載圖片[對象.]Picture=LoadPicture(“”)保存圖片SavePicture函數(shù)的功能是用來保存在圖片框中處理過的圖像。語法格式：

SavePicture對象名.Image,保存文件名例如：SavePicturePicture1.Image,"aa.bmp“SavePicturePicture1.picture,“aa.bmp”

例：設(shè)計一個窗體，通過命令按鈕單擊實現(xiàn)兩個圖片框控件中圖片之間的切換。界面設(shè)計和運行結(jié)果屬性設(shè)置如下表：對象屬性屬性值CommandButtonNameCommand1Caption交換PictureBoxNamePicture1Pictured:\6.jpgPictureBoxNamePicture2Pictured:\7.jpg代碼編寫如下PrivateSubCommand1_Click()

Picture1.Picture=Picture2.PicturePicture2.Picture=LoadPicture("d:\6.jpg")EndSub圖像框圖像框也是用來顯形圖片，如.bmp、.ico、.jpeg、.jpg圖片格式。其裝載顯示圖片的速度較圖片框快。常用屬性Picture：設(shè)置圖像框控件中顯示的圖形。圖像框的Picture屬性與圖片框使用方法相同，既可以通過屬性窗口設(shè)置圖像框的Picture屬性來添加圖片，也可以通過LoadPicture函數(shù)來裝載圖片。Appearance:設(shè)置圖像框在運行時是否以3D效果顯示。

Stretch：設(shè)置是否調(diào)整圖形的大小以適應(yīng)圖像框控件。圖像框沒有Autosize屬性，但可以使用Stretch屬性來拉伸圖像大小，使其適應(yīng)圖像框的大小。其中:屬性值為False（默認(rèn)值）表示當(dāng)圖形載入時，圖像框本身調(diào)整大小，使得圖形可以填滿圖像框；屬性值為True表示當(dāng)圖形載入時，圖形自動按照圖像框的大小來調(diào)整大小，使圖形填滿整個圖像框。圖像框的事件和方法

常用的事件有：DbClick、Click、MouseDown、MouseMove、MouseUp。常用的方法有：Move方法。圖片框和圖像框的區(qū)別圖片框可以作為“容器”，可以存放其他控件，圖像框不可以；圖片框可以通過Print方法輸出文本也可以用繪圖方法繪制圖形，圖像框不可以；圖像框比圖片框占用內(nèi)存少，顯示速度快，如只顯示圖片則優(yōu)先使用圖像框；圖片框有Autosize屬性，而圖像框有Stretch屬性;圖片框比圖像框更靈活，適用于動態(tài)環(huán)境，而圖像框適用于靜態(tài)環(huán)境；例：設(shè)計一個窗體，說明圖像框中Stretch屬性的應(yīng)用。界面設(shè)計屬性設(shè)置如下:對象屬性屬性值CommandButtonNameCommand1Caption交換PictureBoxNamePicture1PictureBoxNamePicture2VisibleFalseImageNameImage1StretchTrue代碼編寫如下PrivateSubForm_Load()Picture1.Picture=LoadPicture("C:\JadeVista.jpg")Image1.Picture=LoadPicture("C:\風(fēng)景06.jpg")EndSubPrivateSubCommand1_Click()Picture2.Picture=Picture1.PicturePicture1.Picture=Image1.PictureImage1.Picture=Picture2.PictureEndSub6.2.3直線和形狀直線和形狀的默認(rèn)名稱：Linex和Shapex。屬性BorderColorBorderStyleBorderWidthBackStyleFillColorFillStyleShape6.3按鈕控件命令按鈕（CommandButton）命令按鈕通常用來在單擊時執(zhí)行指定的操作。默認(rèn)名稱Commandx6.3.1屬性CancelDefaultStylePictureDownPictureDisabledPictureTooltiptextCancel：設(shè)置命令按鈕是否為Cancel按鈕，即當(dāng)用戶按Esc鍵時，是否觸發(fā)它的Click事件。語法格式：對象名.Cancel={True|False}注意：在一個窗體內(nèi)，只允許有一個命令按鈕的Cancel屬性被設(shè)置為True,也只允許有一個命令按鈕的Default屬性被設(shè)置為True;Default：設(shè)置命令按鈕是否為默認(rèn)按鈕，即當(dāng)運行程序時，用戶按回車鍵時，就激活它。語法格式：其中，屬性值為False（默認(rèn)值）表示該按鈕不響應(yīng)Default事件；屬性值為True表示該命令響應(yīng)Default事件，即當(dāng)用戶按Enter鍵時，與單擊該按鈕效果相同。對象名.Default={True|False}Style：設(shè)置命令按鈕的類型。語法格式：對象名.Style={0|1}屬性值說明0(默認(rèn)值)表示為標(biāo)準(zhǔn)按鈕，只顯示Caption屬性設(shè)置的文本1表示為圖形風(fēng)格，只顯示由Picture屬性指定的圖片注意：該屬性在運行期間是只讀的。Picture：設(shè)置命令按鈕上顯示的圖形。語法格式：對象名.Picture=LoadPicture("圖形文件名")注意：使用該屬性的前提，必須把Style屬性設(shè)置為1，否則該屬性無效。DownPicture：該屬性設(shè)置當(dāng)控件被單擊并處于“按下”時顯示的圖形。注意：使用該屬性的前提，必須把Style屬性設(shè)置為1，否則該屬性無效。DisabledPicture：設(shè)置被禁止操作時顯示的圖標(biāo)。注意：使用該屬性的前提，必須把Style屬性設(shè)置為1，否則該屬性無效。ToolTipText：設(shè)置當(dāng)鼠標(biāo)在命令按鈕上暫停時顯示的文本。

對象名.ToolTipText=字符串命令按鈕的事件Click、MouseDown、MouseUp：當(dāng)單擊鼠標(biāo)時就會觸發(fā)該三個事件。他們觸發(fā)的順序為MouseDown、Click、MouseUp事件。注意：命令按鈕不支持雙擊DblClick事件。例1：窗體放大程序PrivateSubCommand1_Click()Form1.MoveLeft+500,Top-500,Width+500,Height+500EndSubPrivateSubCommand2_Click()

Form1.MoveLeft-500,Top+500,Width-500,Height-500EndSubPrivateSubCommand3_Click()EndEndSub例2:變化圖形的按鈕程序設(shè)計一個窗體，在窗體上添加2個圖形按鈕，運行程序時，若用戶鼠標(biāo)移動到按鈕上，顯示提示信息，單擊該按鈕，會改變按鈕上的圖形，同時使該按鈕變?yōu)椴荒懿僮鞯陌粹o，使另一個按鈕變?yōu)榭刹僮鞯陌粹o。PrivateSubCommand1_Click()Print"請單擊結(jié)束按鈕"Command1.Picture=LoadPicture("F:\VB\3.jpg")Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Print"請單擊開始按鈕"Command2.Picture=LoadPicture("F:\VB\1.jpg")Command2.Enabled=FalseCommand1.Enabled=TrueEndSubPrivateSubForm_Load()Command1.Enabled=TrueCommand2.Enabled=FalseEndSub6.4選擇控件復(fù)選框單選按鈕6.4.1屬性ValueAlignmentStyle例1單選按鈕的應(yīng)用例2復(fù)選框的應(yīng)用例3單選按鈕的應(yīng)用在窗體上建立一個單選按鈕數(shù)組Opt1，含4個單選按鈕，標(biāo)題分別為“A”，”B”，“C”，“D”，初始狀態(tài)下，“A”為選中狀態(tài)。要求程序運行時，使得每單擊命令按鈕一次，就選中一個單選按鈕，如果已經(jīng)選中最后一個單選按鈕，再單擊命令按鈕，則選中第1個單選按鈕。PrivateSubCmd1_Click()IfOpt1(0).Value=TrueThenOpt1(0).Value=FalseOpt1(1).Value=TrueElseIfOpt1(1).Value=TrueThenOpt1(1).Value=FalseOpt1(2).Value=TrueElseIfOpt1(2).Value=TrueThenOpt1(2).Value=FalseOpt1(3).Value=TrueElseOpt1(3).Value=FalseOpt1(0).Value=TrueEndIfEndSub6.7計時器計時器是一個非常有用的控件，主要有兩個功能：用于在程序中監(jiān)視和控制時間進程，即每隔一段固定的時間就有規(guī)律地執(zhí)行一次相同的任務(wù)。如定時檢測系統(tǒng)或控件的狀態(tài)、控制控件的移動、設(shè)置時鐘、倒計時、秒表等；進行某種后臺處理。因為計時器控件在設(shè)計時可見，運行時隱藏，所以它在界面上的位置和大小無關(guān)緊要。但在后臺每隔一定的時間，系統(tǒng)就會自動觸發(fā)一次計時器事件。計時器控件的屬性

Enabled（響應(yīng)）屬性功能：設(shè)置計時器控件是否開始計時。語法格式：

其中，屬性值為True（默認(rèn)值）表示啟動計時器開始計時；屬性值為False則表示暫停計時器的使用，待將Enabled屬性設(shè)置為True時繼續(xù)運行計時器。Interval（間隔）屬性功能：設(shè)置兩個計時器事件之間的時間間隔。設(shè)置時以毫秒（ms）為單位，范圍是0～65535ms，系統(tǒng)初始值設(shè)置為0。若希望每秒執(zhí)行n個計時器事件，則將Interval屬性的值設(shè)置為1000/n。當(dāng)Interval屬性的值為0時，則計時器無效。對象名.Enabled={True|False}對象名.Interval=數(shù)值計時器的事件計時器只有Timer事件。Timer事件具有周期性，在每隔Interval指定的時間間隔，就執(zhí)行一次Timer事件過程。在實際運用中，經(jīng)常用Timer事件來實現(xiàn)有規(guī)律的重復(fù)操作和簡單的動畫。注意：計時器事件發(fā)生越頻繁，響應(yīng)事件所使用的處理器事件就越多，這將降低系統(tǒng)綜合性能。因此，除非有必要否則不要設(shè)置過小的時間間隔。例：設(shè)計一個窗體，運行窗體后，圖片會不停地閃動。PrivateSubTimer1_Timer()

Picture1.Visible=Not(Picture1.Visible)EndSub對象屬性屬性值TimerNameTimer1EnabledTrueTimer1100PictureBoxNamePicture1Picture1D:\a003.bmp6.8框架在VB中，可以作為其他對象容器的有窗體、圖片框和框架。框架的主要作用是將窗體上的控件進行分組，讓窗體界面整齊?？蚣艿膶傩?/p>

Caption：設(shè)置框架的標(biāo)題，說明框架的功能。Enabled：設(shè)置框架及框架內(nèi)控件是否可用。屬性值為True（默認(rèn)值