VB控件教程大全(詳細)

1、第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.1 3.1 標簽與文本框標簽與文本框 3.1.1 標簽標簽 1. 標簽的屬性、事件和方法標簽的屬性、事件和方法 屬性功能 Name返回對象名稱Width返回/設置對象寬度Height返回/設置對象高度Top返回/設置對象上邊緣的位置Left返回/設置對象左邊緣的位置Visible返回/設置對象是否可見FontName返回/設置對象中顯示的字體名FontSize返回/設置對象中顯示的字體尺寸FontBolder返回/設置對象中顯示的字體是否粗體FontItalic返回/設置對象中顯示的字體是否斜體第三章第三章 VB 6.0VB 6.

2、0的常用控件的常用控件 標簽所具有的其它屬性：標簽所具有的其它屬性： （1）AlignmentAlignment屬性屬性用來返回用來返回/ /設置標簽中設置標簽中標題的放置方式標題的放置方式?？梢栽O置的值為?？梢栽O置的值為0(0(左左) ) 、1(1(右右) )或或2(2(居中居中) )（2 2）AutosizeAutosize屬性屬性用來確定標簽能否用來確定標簽能否自動調(diào)整大小自動調(diào)整大小以便顯示所有內(nèi)容?？梢栽O置的值為以便顯示所有內(nèi)容?？梢栽O置的值為truetrue和和falsefalse。（3 3）BorderstyleBorderstyle屬性屬性Border styleBorder

3、style屬性用來返回屬性用來返回/ /設置標簽的設置標簽的邊框樣式邊框樣式?？梢栽O置的值為?？梢栽O置的值為0 0、1 1兩種兩種 （4 4）CaptionCaption屬性屬性用來返回用來返回/ /設定標簽中顯示的文本。是標簽的所有屬性中設定標簽中顯示的文本。是標簽的所有屬性中最重要最重要的屬性的屬性 （5 5）EnabledEnabled屬性屬性 返回返回/ /設置一個值，用來確定一個對象是否能夠?qū)τ脩舢a(chǎn)生設置一個值，用來確定一個對象是否能夠?qū)τ脩舢a(chǎn)生的事件的事件作出反應作出反應 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.1.2 文本框文本框1.文本框的屬性文本框的屬

4、性（6 6）BackStyleBackStyle屬性屬性Back StyleBack Style屬性用來指出標簽的屬性用來指出標簽的背景背景樣式是否樣式是否透明透明。該屬性可以設置值為。該屬性可以設置值為0 0或或1 1。 （7 7）Word WrapWord Wrap屬性屬性適用于標簽，用來決定標簽適用于標簽，用來決定標簽是否擴大是否擴大來顯示標題文字?？梢栽O置值為來顯示標題文字。可以設置值為TrueTrue或或FalseFalse。標簽可觸發(fā)標簽可觸發(fā)ClickClick和和DblClickDblClick事件。但是在實際的使用中，用戶往往是僅僅設置標簽事件。但是在實際的使用中，用戶往往是

5、僅僅設置標簽標題屬性標題屬性(Caption屬性屬性)來利用標簽顯示文字，而很少使用到它的事件來利用標簽顯示文字，而很少使用到它的事件 2.Click和和DblClick事件事件前面介紹標簽以及窗體的一些屬性也可以用于文本框，這些屬性包括：前面介紹標簽以及窗體的一些屬性也可以用于文本框，這些屬性包括：BorderstyleBorderstyle、EnabledEnabled、FontBoldFontBold、FontItalicFontItalic、FontNameFontName、FontsizeFontsize、FontUnderlineFontUnderline、HeightHeight

6、、NameName、LeftLeft、TopTop、VisibleVisible、WidthWidth 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例題例題1：標簽控件：標簽控件 Private Sub Form_Click()Label2.BorderStyle = 0Label2.Caption = 你單擊窗體你單擊窗體!End SubPrivate Sub Form_DblClick()Label2.BorderStyle = 1Label2.Caption = 你雙擊窗體你雙擊窗體!End Sub標簽標簽1：“請您單擊或雙擊窗體請您單擊或雙擊窗體”屬性：窗體：標簽的使用

7、屬性：窗體：標簽的使用FONTSIZE=14標簽標簽2：AUTOSIZE=“TRUE”CAPTION：置空：置空FONTSIZE=14第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 此外文本框還具有下列屬性：此外文本框還具有下列屬性：（1 1）Max LengthMax Length屬性屬性Max LengthMax Length屬性用來返回屬性用來返回/ /設置允許在文本框中輸入的設置允許在文本框中輸入的最大字符數(shù)最大字符數(shù) （2 2）Multi LineMulti Line屬性：屬性：返回返回/ /設置一個值決定文本框是否可以接受設置一個值決定文本框是否可以接受多行文本多行文本

8、。TrueTrue或或FalseFalse。（3 3）Password CharPassword Char屬性屬性可用于設定在進行可用于設定在進行口令輸入口令輸入時對用戶輸入字符的掩碼，也就是說在用戶輸入時是時對用戶輸入字符的掩碼，也就是說在用戶輸入時是顯示用戶輸入的字符還是顯示掩碼屏蔽掉用戶的輸入顯示用戶輸入的字符還是顯示掩碼屏蔽掉用戶的輸入（4 4）ScrollBarsScrollBars屬性屬性用來返回用來返回/ /設置一個值，來確定文本框是否有垂直和水平設置一個值，來確定文本框是否有垂直和水平滾動條滾動條?？梢匀∷膫€值，?？梢匀∷膫€值，它們分別是它們分別是0(0(沒有沒有 ) )、1(

9、1(水平水平 ) )、2(2(垂直垂直 ) )、3(3(水平和垂直水平和垂直 ).). （5 5）TextText屬性：屬性：TextText屬性用來返回屬性用來返回/ /設置文本框中包含的文本設置文本框中包含的文本 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 該屬性既可以在設計時使用屬性窗口設定，也可以在運行時使用代碼動態(tài)的修改。該屬性既可以在設計時使用屬性窗口設定，也可以在運行時使用代碼動態(tài)的修改。例如在代碼中有如下語句：例如在代碼中有如下語句：Text1.Text=Welcome to china! Text1.Text=Welcome to china! 那么將在文本框

10、那么將在文本框Text1Text1中顯示字符串中顯示字符串“Welcome to china!”Welcome to china!”。（6 6）SelLengthSelLength屬性：屬性：SelLengthSelLength屬性返回屬性返回/ /設置文本框中用戶選中的設置文本框中用戶選中的字符數(shù)字符數(shù) (7 (7）SelStartSelStart屬性：屬性：SelStartSelStart屬性返回屬性返回/ /設置選定文本的設置選定文本的起始位置起始位置（插入點）（插入點） （8 8）SelTextSelText屬性屬性SelTextSelText屬性返回屬性返回/ /設置包含有當前所選擇

11、的設置包含有當前所選擇的文本的字符串文本的字符串 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 控件屬性值窗體CaptionTextbox測試1NameForm1文本框TextWelcome to china!NameText1設定設定form1form1的的clickclick事件如下：事件如下：Private Sub Form_Click()Private Sub Form_Click()Debug.PrintDebug.Print Select start= & Text1.SelStart & ;Selectlength= & Select sta

12、rt= & Text1.SelStart & ;Selectlength= & Text1.SelLength_ & ;Selecttext= & Text1.SelTextText1.SelLength_ & ;Selecttext= & Text1.SelTextText1.SelText = welcome.Text1.SelText = welcome.Debug.Print Selectstart= & Text1.SelStart & ;Selectlength= & Debug.Print Selec

13、tstart= & Text1.SelStart & ;Selectlength= & Text1.SelLength_ & ;Selecttext= & Text1.SelTextText1.SelLength_ & ;Selecttext= & Text1.SelTextEnd SubEnd Sub第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 用戶選擇了用戶選擇了text1text1中的字符串中的中的字符串中的“！”在窗體上單擊鼠標后的結(jié)果在窗體上單擊鼠標后的結(jié)果 同時在同時在“立即立即”窗口中顯示如下：窗口中顯示如下：

14、Selectstart=17;Selectlength=2;Selecttext=!Selectstart=17;Selectlength=2;Selecttext=!Selectstart=27;Selectlength=0;Selecttext=Selectstart=27;Selectlength=0;Selecttext=通過這個示例可以發(fā)現(xiàn)，對于通過這個示例可以發(fā)現(xiàn)，對于SelLengthSelLength和和SelectstartSelectstart屬性的值將屬性的值將隨著修改隨著修改SelecttextSelecttext的值而改變。的值而改變。第三章第三章 VB 6.0VB

15、6.0的常用控件的常用控件 （9 9）LockedLocked屬性屬性LockedLocked屬性用來指定文本框是否可屬性用來指定文本框是否可被編輯被編輯。可以設定的值為?？梢栽O定的值為TrueTrue和和FlseFlse。 TrueTrue 某個文框在運行時某個文框在運行時不允許不允許用戶修改其中文字內(nèi)容只允許選擇文本。用戶修改其中文字內(nèi)容只允許選擇文本。 FalseFalse 某個文框在運行時某個文框在運行時允許允許用戶修改其中文字內(nèi)容。用戶修改其中文字內(nèi)容。FalseFalse為默認值為默認值2.文本框事件和方法文本框事件和方法文本框同標簽一樣支持文本框同標簽一樣支持ClickClick

16、、DblClickDblClick等鼠標事件，同時文本框支持等鼠標事件，同時文本框支持ChangeChange、GotFocusGotFocus、LostFocusLostFocus等事件，文本框還有等事件，文本框還有SetFocusSetFocus方法方法 （1 1）ChangeChange事件事件當文本框中的內(nèi)容當文本框中的內(nèi)容發(fā)生改變發(fā)生改變時就發(fā)生時就發(fā)生ChangeChange事件事件 （2 2）Got FocusGot Focus事件事件當文本框當文本框接受接受了焦點（處于活動狀態(tài)）時就會產(chǎn)生了焦點（處于活動狀態(tài)）時就會產(chǎn)生GotFocusGotFocus事件事件 （3 3）Los

17、tFocusLostFocus事件事件當文本框當文本框失去失去了焦點（處于非活動狀態(tài)）時就會產(chǎn)生了焦點（處于非活動狀態(tài)）時就會產(chǎn)生LostFocusLostFocus事件事件 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 SetFocusSetFocus方法可以用于將焦點方法可以用于將焦點移動移動到指定的對象到指定的對象, ,是文本框較常用的是文本框較常用的. .格式：格式：（4 4）SetFocusSetFocus方法方法3.1.3 應用舉例應用舉例 例例3.1： 利用利用LostFocusLostFocus事件事件改變文本框中的內(nèi)容。改變文本框中的內(nèi)容。在窗體在窗體form1

18、form1上建立兩個文上建立兩個文本框分別是本框分別是Text1Text1、Text2Text2，下面在下面在form1form1的的loadload事件過事件過程中作如下設置：程中作如下設置：Private Sub Private Sub Form_Load()Form_Load()Form1.Text1.Text=Form1.Text1.Text=Form1.Text2.Text=Form1.Text2.Text=Form1.Text1.Font=Form1.Text1.Font=宋體宋體 Form1.Text2.Font=Form1.Text2.Font=宋體宋體 Form1.Text1

19、.FontSize=14Form1.Text1.FontSize=14Form1.Text2.FontSize=14Form1.Text2.FontSize=14Form1.Text1.BackColor=vbBlackForm1.Text1.BackColor=vbBlackForm1.Text1.ForeColor=vbWhiteForm1.Text1.ForeColor=vbWhiteForm1.Text2.ForeColor=vbBlueForm1.Text2.ForeColor=vbBlueForm1.Text2.BackColor=vbRedForm1.Text2.BackColo

20、r=vbRedForm1.Form1.ShowShowForm1.Text1.SetFocusForm1.Text1.SetFocusEnd SubEnd Sub 對象對象.SetFocus .SetFocus 該方法可以把光標移到指定的文本框中該方法可以把光標移到指定的文本框中第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 如果在如果在text1text1的的LostFocusLostFocus事件過程中作如下設定：事件過程中作如下設定：Private Sub Text1_LostFocus()Private Sub Text1_LostFocus()Form1.Text2.Te

21、xt=UCase(Form1.Text1.Text)Form1.Text2.Text=UCase(Form1.Text1.Text)End SubEnd Sub3.2 3.2 圖片框和圖像框圖片框和圖像框 與圖形有關的標準控件有與圖形有關的標準控件有4 4種，即圖片框、圖像框、直線和形狀種，即圖片框、圖像框、直線和形狀 3.2.1 圖片框和圖像框圖片框和圖像框 圖片框比圖像框更靈活，且適用于動態(tài)環(huán)境，圖片框比圖像框更靈活，且適用于動態(tài)環(huán)境，而圖像框適用于靜態(tài)情況而圖像框適用于靜態(tài)情況 默認名稱分別為默認名稱分別為Picture1Picture1，Picture2Picture2和和Imagex

22、1Imagex1，Imagex2Imagex2 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 1. 與窗體屬性相同的屬性與窗體屬性相同的屬性 第第2 2章中介紹的部分窗體屬性，包括章中介紹的部分窗體屬性，包括EnabledEnabled、NameName、VisibleVisible、FontBoldFontBold、FontItalicFontItalic、FontNameFontName、FantasizeFantasize、FontUnderlineFontUnderline等，完全適用于圖片框和圖等，完全適用于圖片框和圖像框，其用法也相同。但在使用時應注意，對象名不能省略

23、，必須是具體的像框，其用法也相同。但在使用時應注意，對象名不能省略，必須是具體的圖片框或圖像框名。圖片框或圖像框名。2.Current X和和Current Y屬性屬性 用來設置下一個輸出的水平（用來設置下一個輸出的水平（Current XCurrent X）或垂直（）或垂直（Current YCurrent Y）坐標。這）坐標。這兩個屬性只能在運行期間使用。兩個屬性只能在運行期間使用。格式如下：格式如下： 對象對象.Current X=x.Current X=x 對象對象.Current Y=y .Current Y=y 其中其中“對象對象”可以是窗體、圖片框和打印機可以是窗體、圖片框和打印

24、機 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 Private Sub Form_ClickPrivate Sub Form_Click()Picture1.Print Tab(10);picture1 tab10testPicture1.Print Tab(10);picture1 tab10testPrint Tab(20);Form Tab 20Print Tab(20);Form Tab 20Picture1.CurrentX = 800Picture1.CurrentX = 800Picture1.CurrentY = 600Picture1.CurrentY = 6

25、00CurrentX = 800CurrentX = 800CurrentY = 600CurrentY = 600Print Form CurrentX,CurrentY TestPrint Form CurrentX,CurrentY TestPicture1.Print Picture1CurrentX,currentY Picture1.Print Picture1CurrentX,currentY Print Tab(15);CurrentX, CurrentYPrint Tab(15);CurrentX, CurrentYPicture1.Print Tab(15);Current

26、X, CurrentYPicture1.Print Tab(15);CurrentX, CurrentYEnd Sub End Sub 例例3.3：在窗體上建立一個圖片框，然后分別在窗體和圖片框中顯示一些信息。在窗體上建立一個圖片框，然后分別在窗體和圖片框中顯示一些信息。第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3. Picture屬性屬性 用于窗體、圖片框和圖像框，可通過屬性窗口設置，用來把圖形放入這些對象中用于窗體、圖片框和圖像框，可通過屬性窗口設置，用來把圖形放入這些對象中支持以下格式的圖形文件支持以下格式的圖形文件 （1 1） BitmapBitmap（位圖）：也稱（

27、位圖）：也稱“繪圖類型繪圖類型”擴展名為擴展名為.BMP.BMP或或 .DIB.DIB。（2 2） Icon Icon （圖標）：是一種特殊類型的位圖，擴展名為（圖標）：是一種特殊類型的位圖，擴展名為.ICO.ICO或或.OUR.OUR（3 3） MetafileMetafile（圖元文件）：也稱為（圖元文件）：也稱為 繪圖類型繪圖類型 圖形，它將圖形定義為圖形，它將圖形定義為編碼的線段和圖形。普通圖元文件的擴展名為編碼的線段和圖形。普通圖元文件的擴展名為.WMF.WMF，增強型圖元文件的擴，增強型圖元文件的擴展名為展名為.EMF.EMF。（4 4） JPEGJPEG （Joint Photo

28、graphics Expert GroupJoint Photographics Expert Group）：是一種支持）：是一種支持8 8位和位和2424位顏色的壓縮位圖格式，其文件擴展名為位顏色的壓縮位圖格式，其文件擴展名為.JPG.JPG。（5 5） GIFGIF （Graphics Interchange FormatGraphics Interchange Format）：是一種壓縮位圖格式，支）：是一種壓縮位圖格式，支持持256256種顏色，其擴展名為種顏色，其擴展名為.GIF.GIF。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 4. Stretch屬性屬性 用于

29、圖像框，用來用于圖像框，用來自動調(diào)整自動調(diào)整圖像框中圖形內(nèi)容的大小。它既可通過屬性窗口設置，圖像框中圖形內(nèi)容的大小。它既可通過屬性窗口設置，也可通過程序代碼設置。該屬性的值可設為也可通過程序代碼設置。該屬性的值可設為True(True(不顯不顯 ) )或或FalseFalse (自動自動 )3.2.2 圖形文件的裝入圖形文件的裝入 1. 圖片框與圖像框的區(qū)別圖片框與圖像框的區(qū)別 （1 1）圖片框是）圖片框是“容器容器”控件，可以作為控件，可以作為父控件父控件，而圖像框不能作為父控，而圖像框不能作為父控件件 （2 2）圖片框可以通過）圖片框可以通過PrintPrint方法接收文本，并可接收由像素

30、組成的圖形，而圖方法接收文本，并可接收由像素組成的圖形，而圖像框不能接收，也不能用繪圖方法在圖像框上繪制圖形像框不能接收，也不能用繪圖方法在圖像框上繪制圖形 （3 3）圖像框比圖片框占用的內(nèi)存少，顯示速度快。）圖像框比圖片框占用的內(nèi)存少，顯示速度快。 圖片框是一個圖片框是一個“容器容器”，可以把其他控件放在該控件上。，可以把其他控件放在該控件上。 2. 在設計階段裝入圖形文件在設計階段裝入圖形文件 （1 1）用屬性窗口中的）用屬性窗口中的PicturePicture屬性裝入屬性裝入 步驟如下：建立步驟如下：建立 、屬性屬性 、加載圖片、加載圖片、目錄中選擇、打開目錄中選擇、打開如下頁圖如下頁圖

31、 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.在運行期間裝入圖形文件在運行期間裝入圖形文件 （2 2）利用剪貼板把圖形粘貼（）利用剪貼板把圖形粘貼（PastePaste）到窗體、圖片框或圖像框中）到窗體、圖片框或圖像框中 步驟步驟 ：繪圖軟件繪圖軟件 、啟動啟動VBVB 、粘貼粘貼 格式：格式： 對象對象.Picture=LoadPicture.Picture=LoadPicture（ 文件名文件名 ） Private Sub Command1_Click()Picture1.Picture = LoadPictureEnd Sub Private Sub Command2

32、_Click() Picture1.Picture = LoadPicture(“e:kk.gif)End Sub例題例題2：加載圖片加載圖片第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 窗體：加載圖片窗體：加載圖片圖片框：圖片框： 按紐按紐1（清除）、（清除）、 按紐按紐2（恢復）（恢復）屬性屬性 ：第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.2.3 應用舉例應用舉例 例例3.4：編寫程序，交換兩個圖片框中的圖形編寫程序，交換兩個圖片框中的圖形 三個圖片框：三個圖片框：Private Sub Form_Click()Private Sub Form_Clic

33、k()Form1.Picture3.Picture = Form1.Picture1.PictureForm1.Picture3.Picture = Form1.Picture1.PictureForm1.Picture1.Picture = Form1.Picture2.PictureForm1.Picture1.Picture = Form1.Picture2.PictureForm1.Picture2.Picture = Form1.Picture3.Picture Form1.Picture2.Picture = Form1.Picture3.Picture End SubEnd Su

34、bPrivate Sub Form_Load()Private Sub Form_Load()Form1.Picture3.Visible = FalseForm1.Picture3.Visible = FalseForm1.Picture1.Picture = LoadPicture(F:bmpZW_015.GIF)Form1.Picture1.Picture = LoadPicture(F:bmpZW_015.GIF)Form1.Picture2.Picture = LoadPicture(F:bmpZW_016.GIF)Form1.Picture2.Picture = LoadPictu

35、re(F:bmpZW_016.GIF)End SubEnd Sub第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.3 3.3 按鈕控件按鈕控件 命令按鈕：命令按鈕：CaptionCaption、EnabledEnabled、FontBoldFontBold、FontItalicFontItalic、FontNameFontName、FontsizeFontsize、FontUnderlineFontUnderline、HeightHeight、LeftLeft、NameName、TopTop、VisibleVisible、WidthWidth。 用于指出命令按鈕是否為窗體的用于

36、指出命令按鈕是否為窗體的“取消取消”按鈕按鈕 1.Cancel屬性屬性2. Default屬性屬性是用于決定窗體的是用于決定窗體的缺省缺省命令按鈕命令按鈕 3.Style3.Style屬性屬性 設置或返回一個值，這個值用來指定控件的設置或返回一個值，這個值用來指定控件的顯示類型和操作顯示類型和操作。 4.Picture屬性屬性 用于返回用于返回/ /設置設置CommandButton,OptionButtonCommandButton,OptionButton或或CheckBox CheckBox 控件中要顯示的圖形?？丶幸@示的圖形。 5.Downpicture屬性屬性 用于返回用于返回/

37、 /設置按鈕按下狀態(tài)時顯示的圖形。設置按鈕按下狀態(tài)時顯示的圖形。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 6.Disablepicture屬性屬性 用于返回用于返回/ /設置按鈕無效時顯示的圖形。設置按鈕無效時顯示的圖形。 注意：命令按鈕最常用的事件是單擊命令按鈕時觸發(fā)的單擊事件（注意：命令按鈕最常用的事件是單擊命令按鈕時觸發(fā)的單擊事件（ClickClick事件）。事件）。這里特別指出的是，命令按鈕不支持雙擊事件（這里特別指出的是，命令按鈕不支持雙擊事件（DblclickDblclick事件）。事件）。 3.3.2 應用舉例應用舉例 例例3.5：驗證按鈕的屬性驗證按鈕的屬性

38、 對象對象屬性屬性值值按鈕按鈕1 1namenameCommtop1按鈕按鈕2 2namenameCommtop2Private Sub Form_Click()Private Sub Form_Click() Commtop1.Caption = 示例示例1 Commtop1.FontName = 黑體黑體 Commtop1.FontSize = 20 Commtop1.FontBold = True Commtop1.FontItalic = True Commtop1.FontUnderline = True Commtop2.Caption = 示例示例2 Commtop2.FontN

39、ame = 宋體宋體 Commtop2.FontSize = 22 Commtop2.FontBold = True Commtop2.FontItalic = False Commtop1.Enabled = False Commtop2.Enabled = TrueEnd SubEnd Sub第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例題3：命令按紐的使用Private Sub Command1_Click()Label1.Caption = 你單擊命令按紐一你單擊命令按紐一End SubPrivate Sub Command2_Click()Label1.Caption

40、 = 你單擊命令按紐二你單擊命令按紐二End Sub屬性：屬性：FONTNAME 宋體宋體PICTURE F:bmpE_-34 標簽：空標簽：空 命令命令1：CAPTION 命令按紐一命令按紐一FONTSIZE 14命令命令2: PICTURE F:bmpE_-40(其它同上其它同上)將三個控件加上顏色將三個控件加上顏色Style=1第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.4 復選框和單選框復選框和單選框 復選框按鈕復選框按鈕,可以同時選擇多個可以同時選擇多個,默認名稱默認名稱 Check1單選按鈕中，只能選擇其中的一個單選按鈕中，只能選擇其中的一個,默認名稱默認名稱

41、Option2 3.4.1 復選框和單選框的屬性與事件復選框和單選框的屬性與事件大多數(shù)屬性都可用于復選框和單選按鈕，包括大多數(shù)屬性都可用于復選框和單選按鈕，包括Caption、Enabled、FontBolder、FontItalic、FontName、Fontsize、FontUnderline、Height、Left、Name、Top、Visible、Width。也可以使用也可以使用Picture、DownPicture和和DisabledPicture屬性屬性 1. Value屬性屬性表示復選框或單選按鈕的狀態(tài)。對于單選按鈕，可設為表示復選框或單選按鈕的狀態(tài)。對于單選按鈕，可設為True

42、(打開打開 )或或False(關閉關閉 )。對于復選框來說，對于復選框來說，Value屬性可以設置值為屬性可以設置值為0(沒有沒有 )、1(選中選中 )或或2(被禁止被禁止 )。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 2. Alignment屬性屬性 用于返回用于返回/設置復選框或選項按鈕、或一個控件的文本的對齊設置復選框或選項按鈕、或一個控件的文本的對齊 格式：對象格式：對象.Alignment=值值 對象為復選框或單選按鈕時對象為復選框或單選按鈕時 ,0(居左居左 ),1(居右居右 ),也可以是標簽和文本框也可以是標簽和文本框 3. Style屬性屬性 用于指定復選框

43、或單選按鈕的顯示方式，改善視覺效果用于指定復選框或單選按鈕的顯示方式，改善視覺效果,0(標準方式標準方式 ),1(圖形方式圖形方式 ) 注意以下幾點：注意以下幾點： 當當Style屬性被設置為屬性被設置為1時，可以用時，可以用Picture、DownPicture和和DisabledPicture屬性屬性Style是只讀屬性，只能在設計時使用。是只讀屬性，只能在設計時使用。分別設置不同的圖標或位圖分別設置不同的圖標或位圖 Style屬性被設置為不同的值（屬性被設置為不同的值（0或或1）時，其外觀也不一樣）時，其外觀也不一樣 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.4.2

44、 應用舉例應用舉例 控件屬性設置復選框NameCheck1Caption下劃線復選框NameCheck2Caption傾斜單選框NameOption1Caption宋體單選框NameOption1Caption黑體文本框NameTest1Caption單選框和復選框程序示例第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 編寫如下事件過程：編寫如下事件過程： Option ExplicitOption ExplicitPrivate Sub check1_Click()Private Sub check1_Click() test1.Font.Underline = Not test

45、1.Font.Underline test1.Font.Underline = Not test1.Font.UnderlineEnd SubEnd SubPrivate Sub check2_Click()Private Sub check2_Click() test1.Font.Italic = Not test1.Font.Italic test1.Font.Italic = Not test1.Font.Italic End SubEnd SubPrivate Sub option1_Click()Private Sub option1_Click() test1.FontName =

46、 test1.FontName = 黑體黑體 End SubEnd SubPrivate Sub option2_Click()Private Sub option2_Click() test1.FontName = test1.FontName = 宋體宋體 End SubEnd Sub第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.5 3.5 列表框和組合框列表框和組合框 列表框可以選擇所需要的項目列表框可以選擇所需要的項目組合框可以把一個文本框和列表框組合為單個控制窗口組合框可以把一個文本框和列表框組合為單個控制窗口3.5.1 列表框列表框 1. 屬性屬性 列表框支持的標

47、準屬性包括列表框支持的標準屬性包括HeightHeight、LeftLeft、TopTop、VisibleVisible、WidthWidth、EnabledEnabled、FontBoldFontBold、FontItalicFontItalic、FontNameFontName、FontUnderlineFontUnderline、HeightHeight。 （1 1）ColumnsColumns屬性屬性 設置一個值，決定列表框為是在一列中垂直滾動設置一個值，決定列表框為是在一列中垂直滾動, ,還是多個列中水平滾動還是多個列中水平滾動 0 0 單列顯示，有垂直滾動條單列顯示，有垂直滾動條;

48、 ;1 1 多行單列顯示只有水平滾動條多行單列顯示只有水平滾動條, ,N N 是大于是大于1 1的數(shù)，多行多列顯示。的數(shù)，多行多列顯示。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 ColumnsColumns屬性值分別為屬性值分別為0 0，1 1，4 4時時 （2 2）ListList屬性屬性 ListList屬性用來列出表項的內(nèi)容屬性用來列出表項的內(nèi)容 a)a)格式：格式：s$=s$=列表框列表框.List.List（下標）（下標）例如：例如：s$=List1.lists$=List1.list(8 8) 將列出列表框?qū)⒘谐隽斜砜騆istlListl第九項的內(nèi)容。第九項的內(nèi)

49、容。b)b)格式：格式： 列表框列表框.List.List（下標）（下標）=s$=s$例如：例如：List1.listList1.list(4 4)=“kkkkk” =“kkkkk” 將把列表框?qū)蚜斜砜騆istlListl第五項的內(nèi)容第五項的內(nèi)容設置為設置為kkkkkkkkkk。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 （3 3）ListCountListCount屬性屬性 用來返回列表部分的項目數(shù)，即該屬性列出列表框用來返回列表部分的項目數(shù)，即該屬性列出列表框中表項的數(shù)量中表項的數(shù)量 （4 4）ListIndexListIndex屬性屬性 用來返回用來返回/ /設置列表

50、中當前設置列表中當前選定選定項目的索引項目的索引, ,返回值是己選中的表項的位置。返回值是己選中的表項的位置。 （5 5）MultiSelectMultiSelect屬性屬性 用來返回用來返回/ /設置一個值，決定用戶是否可以在列表中做多重選擇設置一個值，決定用戶是否可以在列表中做多重選擇 （6 6）SelectedSelected屬性屬性 用來返回用來返回/ /設置列表中項目的選定狀態(tài)。設置列表中項目的選定狀態(tài)。 （7 7）SelCountSelCount屬性屬性 用來返回列表框控件選定的項目數(shù)用來返回列表框控件選定的項目數(shù) （8 8）SortedSorted屬性屬性 用來確定列表框中的項目

51、是否按字母、數(shù)字升序用來確定列表框中的項目是否按字母、數(shù)字升序排列排列 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 （9 9）StyleStyle屬性屬性 用來確定列表外觀，只能在設計時確定。用來確定列表外觀，只能在設計時確定。其取值可以設置為其取值可以設置為0 0或或l l。 （1010）TextText屬性屬性 返回返回/ /設置列表中包含的文本設置列表中包含的文本 2.列表框事件列表框事件 列表框接收列表框接收ClickClick和和Db1ClickDb1Click事件，但有時不用編寫事件，但有時不用編寫ClickClick事件過程代碼，事件過程代碼，而是當單擊一個命令按

52、鈕或發(fā)生而是當單擊一個命令按鈕或發(fā)生DblClickDblClick事件時，讀取事件時，讀取TextText屬性。屬性。 可以使用可以使用AddItemAddItem、ClearClear和和RemoveItemRemoveItem等方法，用來在運行期間修改列表框的內(nèi)等方法，用來在運行期間修改列表框的內(nèi)容。容。3.列表框方法列表框方法（1 1）AddItemAddItem :在列表框中添加在列表框中添加文本文本項目項目:（2 2）Clear:Clear:清除列表框中的全部內(nèi)容清除列表框中的全部內(nèi)容 （3 3）RemoveItemRemoveItem: :刪除列表框中指定的項目刪除列表框中指定的

53、項目 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例例3.8：利用列表框顯示學生的籍貫，并可以添加列表項。利用列表框顯示學生的籍貫，并可以添加列表項?？丶丶傩詫傩灾抵盗斜砜蛄斜砜騈amelst list空空標簽標簽NameLblName Caption學生姓名學生姓名標簽標簽NameLblNative caption學生籍貫學生籍貫文本框文本框NameTxtName Text空空文本框文本框NameTxtNative Text空空命令按鈕命令按鈕NameCmdAdd Caption確定確定第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 Private Sub F

54、orm_Load() Lst.AddItem 李億 Lst.AddItem 王曉波Lst.AddItem 萬明”Lst.AddItem 張君Lst.AddItem 馬蕭蕭Lst.AddItem 季林Lst.AddItem 陳奇Lst.AddItem 朱小Lst.AddItem 周和平ReDim NativeArray(0 To 8)NativeArray(0) = 天津NativeArray(1) = 武漢NativeArray(2) = 上海NativeArray(3) = 北京NativeArray(4) = 云南NativeArray(5) = 南京NativeArray(6) = 廣州

55、NativeArray(7) = 大連NativeArray(8) = 河北End SubDim NativeArray() As String 定義籍貫數(shù)組為動態(tài)數(shù)組定義籍貫數(shù)組為動態(tài)數(shù)組第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 Private Sub Lst_Click()Private Sub Lst_Click()CmdAdd.Caption = CmdAdd.Caption = 添加添加 TxtName.Visible = FalseTxtName.Visible = FalseLblName.Visible = FalseLblName.Visible = Fal

56、seTxtNative.Text = NativeArray(Lst.ListIndex)TxtNative.Text = NativeArray(Lst.ListIndex)End SubEnd SubPrivate Sub CmdAdd_Click() Private Sub CmdAdd_Click() CmdAdd.Caption = CmdAdd.Caption = 確定確定 TxtName.Visible = TrueTxtName.Visible = TrueLblName.Visible = TrueLblName.Visible = TrueLst.AddItem TxtNa

57、me Lst.AddItem TxtName i = Lst.ListCounti = Lst.ListCountReDim Preserve NativeArray(i)ReDim Preserve NativeArray(i)NativeArray(Lst.ListCount - 1) = TxtNative.TextNativeArray(Lst.ListCount - 1) = TxtNative.TextTxtName = TxtName = TxtNative = TxtNative = End SubEnd Sub 列表框列表框ClickClick事件，姓名標簽及文本框隱藏，籍貫

58、處顯示學生籍貫事件，姓名標簽及文本框隱藏，籍貫處顯示學生籍貫單擊添加按鈕事件單擊添加按鈕事件第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例例3.9：交換兩個列表框中的項目。其中一個列表框中的項目按字母升序排列，交換兩個列表框中的項目。其中一個列表框中的項目按字母升序排列，另一個列表框中的項目按加入的先后順序排列另一個列表框中的項目按加入的先后順序排列。當雙擊某個項目時，該項目從本。當雙擊某個項目時，該項目從本列表框中消失，并出現(xiàn)在另一個列表框中。列表框中消失，并出現(xiàn)在另一個列表框中。Private Sub Form_Load()Private Sub Form_Load()Li

59、st1.FontSize = 14List1.FontSize = 14List2.FontSize = 14List2.FontSize = 14List1.AddItem IBMList1.AddItem IBMList1.AddItem CompaqList1.AddItem CompaqList1.AddItem HPList1.AddItem HPList1.AddItem FUHList1.AddItem FUHList1.AddItem DigiulList1.AddItem DigiulList1.AddItem List1.AddItem 長城長城 List1.AddItem

60、 List1.AddItem 聯(lián)想聯(lián)想 List1.AddItem CmonList1.AddItem CmonList1.AddItem List1.AddItem 四通四通 List1.AddItem Ac List1.AddItem Ac List1.AddItem NecList1.AddItem NecEnd SubEnd SubPrivate Sub List1_DblClick()Private Sub List1_DblClick()List2.AddItem List1.TextList2.AddItem List1.TextList1.RemoveItem List1.ListIndexList1.RemoveItem List1.ListIndexEnd SubEnd Sub Private Sub List2_