VB控件教程大全(詳細(xì))

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

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

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

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

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

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

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

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

9、1(水平水平 ) )、2(2(垂直垂直 ) )、3(3(水平和垂直水平和垂直 ).). （5 5）TextText屬性：屬性：TextText屬性用來返回屬性用來返回/ /設(shè)置文本框中包含的文本設(shè)置文本框中包含的文本 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 該屬性既可以在設(shè)計(jì)時使用屬性窗口設(shè)定，也可以在運(yùn)行時使用代碼動態(tài)的修改。該屬性既可以在設(shè)計(jì)時使用屬性窗口設(shè)定，也可以在運(yùn)行時使用代碼動態(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è)置文本框中用戶選中的字符數(shù)字符數(shù) (7 (7）SelStartSelStart屬性：屬性：SelStartSelStart屬性返回屬性返回/ /設(shè)置選定文本的設(shè)置選定文本的起始位置起始位置（插入點(diǎn)）（插入點(diǎn)） （8 8）SelTextSelText屬性屬性SelTextSelText屬性返回屬性返回/ /設(shè)置包含有當(dāng)前所選擇

11、的設(shè)置包含有當(dāng)前所選擇的文本的字符串文本的字符串 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 控件屬性值窗體CaptionTextbox測試1NameForm1文本框TextWelcome to china!NameText1設(shè)定設(shè)定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中的字符串中的中的字符串中的“！”在窗體上單擊鼠標(biāo)后的結(jié)果在窗體上單擊鼠標(biāo)后的結(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屬性用來指定文本框是否可屬性用來指定文本框是否可被編輯被編輯。可以設(shè)定的值為。可以設(shè)定的值為TrueTrue和和FlseFlse。 TrueTrue 某個文框在運(yùn)行時某個文框在運(yùn)行時不允許不允許用戶修改其中文字內(nèi)容只允許選擇文本。用戶修改其中文字內(nèi)容只允許選擇文本。 FalseFalse 某個文框在運(yùn)行時某個文框在運(yùn)行時允許允許用戶修改其中文字內(nèi)容。用戶修改其中文字內(nèi)容。FalseFalse為默認(rèn)值為默認(rèn)值2.文本框事件和方法文本框事件和方法文本框同標(biāo)簽一樣支持文本框同標(biāo)簽一樣支持ClickClick

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

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

18、form1上建立兩個文上建立兩個文本框分別是本框分別是Text1Text1、Text2Text2，下面在下面在form1form1的的loadload事件過事件過程中作如下設(shè)置：程中作如下設(shè)置：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 該方法可以把光標(biāo)移到指定的文本框中該方法可以把光標(biāo)移到指定的文本框中第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 如果在如果在text1text1的的LostFocusLostFocus事件過程中作如下設(shè)定：事件過程中作如下設(shè)定：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 圖片框和圖像框圖片框和圖像框 與圖形有關(guān)的標(biāo)準(zhǔn)控件有與圖形有關(guān)的標(biāo)準(zhǔn)控件有4 4種，即圖片框、圖像框、直線和形狀種，即圖片框、圖像框、直線和形狀 3.2.1 圖片框和圖像框圖片框和圖像框 圖片框比圖像框更靈活，且適用于動態(tài)環(huán)境，圖片框比圖像框更靈活，且適用于動態(tài)環(huán)境，而圖像框適用于靜態(tài)情況而圖像框適用于靜態(tài)情況 默認(rèn)名稱分別為默認(rèn)名稱分別為Picture1Picture1，Picture2Picture2和和Imagex

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

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

24、機(jī) 第三章第三章 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屬性屬性 用于窗體、圖片框和圖像框，可通過屬性窗口設(shè)置，用來把圖形放入這些對象中用于窗體、圖片框和圖像框，可通過屬性窗口設(shè)置，用來把圖形放入這些對象中支持以下格式的圖形文件支持以下格式的圖形文件 （1 1） BitmapBitmap（位圖）：也稱（

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

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

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

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

31、 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.在運(yùn)行期間裝入圖形文件在運(yùn)行期間裝入圖形文件 （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（恢復(fù)）（恢復(fù)）屬性屬性 ：第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.2.3 應(yīng)用舉例應(yīng)用舉例 例例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屬性屬性 設(shè)置或返回一個值，這個值用來指定控件的設(shè)置或返回一個值，這個值用來指定控件的顯示類型和操作顯示類型和操作。 4.Picture屬性屬性 用于返回用于返回/ /設(shè)置設(shè)置CommandButton,OptionButtonCommandButton,OptionButton或或CheckBox CheckBox 控件中要顯示的圖形?？丶幸@示的圖形。 5.Downpicture屬性屬性 用于返回用于返回/

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

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 標(biāo)簽：空標(biāo)簽：空 命令命令1：CAPTION 命令按紐一命令按紐一FONTSIZE 14命令命令2: PICTURE F:bmpE_-40(其它同上其它同上)將三個控件加上顏色將三個控件加上顏色Style=1第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.4 復(fù)選框和單選框復(fù)選框和單選框 復(fù)選框按鈕復(fù)選框按鈕,可以同時選擇多個可以同時選擇多個,默認(rèn)名稱默認(rèn)名稱 Check1單選按鈕中，只能選擇其中的一個單選按鈕中，只能選擇其中的一個,默認(rèn)名稱默認(rèn)名稱

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

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

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

44、 應(yīng)用舉例應(yīng)用舉例 控件屬性設(shè)置復(fù)選框NameCheck1Caption下劃線復(fù)選框NameCheck2Caption傾斜單選框NameOption1Caption宋體單選框NameOption1Caption黑體文本框NameTest1Caption單選框和復(fù)選框程序示例第三章第三章 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 列表框和組合框列表框和組合框 列表框可以選擇所需要的項(xiàng)目列表框可以選擇所需要的項(xiàng)目組合框可以把一個文本框和列表框組合為單個控制窗口組合框可以把一個文本框和列表框組合為單個控制窗口3.5.1 列表框列表框 1. 屬性屬性 列表框支持的標(biāo)

47、準(zhǔn)屬性包括列表框支持的標(biāo)準(zhǔn)屬性包括HeightHeight、LeftLeft、TopTop、VisibleVisible、WidthWidth、EnabledEnabled、FontBoldFontBold、FontItalicFontItalic、FontNameFontName、FontUnderlineFontUnderline、HeightHeight。 （1 1）ColumnsColumns屬性屬性 設(shè)置一個值，決定列表框?yàn)槭窃谝涣兄写怪睗L動設(shè)置一個值，決定列表框?yàn)槭窃谝涣兄写怪睗L動, ,還是多個列中水平滾動還是多個列中水平滾動 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屬性用來列出表項(xiàng)的內(nèi)容屬性用來列出表項(xiàng)的內(nèi)容 a)a)格式：格式：s$=s$=列表框列表框.List.List（下標(biāo)）（下標(biāo)）例如：例如：s$=List1.lists$=List1.list(8 8) 將列出列表框?qū)⒘谐隽斜砜騆istlListl第九項(xiàng)的內(nèi)容。第九項(xiàng)的內(nèi)

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

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

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

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

53、項(xiàng)目 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例例3.8：利用列表框顯示學(xué)生的籍貫，并可以添加列表項(xiàng)。利用列表框顯示學(xué)生的籍貫，并可以添加列表項(xiàng)?？丶丶傩詫傩灾抵盗斜砜蛄斜砜騈amelst list空空標(biāo)簽標(biāo)簽NameLblName Caption學(xué)生姓名學(xué)生姓名標(biāo)簽標(biāo)簽NameLblNative caption學(xué)生籍貫學(xué)生籍貫文本框文本框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事件，姓名標(biāo)簽及文本框隱藏，籍貫

58、處顯示學(xué)生籍貫事件，姓名標(biāo)簽及文本框隱藏，籍貫處顯示學(xué)生籍貫單擊添加按鈕事件單擊添加按鈕事件第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例例3.9：交換兩個列表框中的項(xiàng)目。其中一個列表框中的項(xiàng)目按字母升序排列，交換兩個列表框中的項(xiàng)目。其中一個列表框中的項(xiàng)目按字母升序排列，另一個列表框中的項(xiàng)目按加入的先后順序排列另一個列表框中的項(xiàng)目按加入的先后順序排列。當(dāng)雙擊某個項(xiàng)目時，該項(xiàng)目從本。當(dāng)雙擊某個項(xiàng)目時，該項(xiàng)目從本列表框中消失，并出現(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_