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返回/设置对象中显示的字体是否斜体 第三章第三章 V

2、B 6.0VB 6.0的常用控件的常用控件 标签所具有的其它属性：标签所具有的其它属性： （1）AlignmentAlignment属性属性 用来返回用来返回/ /设置标签中设置标签中标题的放置方式标题的放置方式。可以设置的值为。可以设置的值为0(0(左左) ) 、1(1(右右) )或或2(2(居中居中) ) （2 2）AutosizeAutosize属性属性 用来确定标签能否用来确定标签能否自动调整大小自动调整大小以便显示所有内容。可以设置的值为以便显示所有内容。可以设置的值为truetrue和和 falsefalse。 （3 3）BorderstyleBorderstyle属性属性 Bor

3、der styleBorder style属性用来返回属性用来返回/ /设置标签的设置标签的边框样式边框样式。可以设置的值为。可以设置的值为0 0、1 1两种两种 （4 4）CaptionCaption属性属性 用来返回用来返回/ /设定标签中显示的文本。是标签的所有属性中设定标签中显示的文本。是标签的所有属性中最重要最重要的属性的属性 （5 5）EnabledEnabled属性属性 返回返回/ /设置一个值，用来确定一个对象是否能够对用户产生设置一个值，用来确定一个对象是否能够对用户产生 的事件的事件作出反应作出反应 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.1.2 文

4、本框文本框 1.文本框的属性文本框的属性 （6 6）BackStyleBackStyle属性属性 Back StyleBack Style属性用来指出标签的属性用来指出标签的背景背景样式是否样式是否透明透明。该属性可以设置值为。该属性可以设置值为0 0或或1 1。 （7 7）Word WrapWord Wrap属性属性 适用于标签，用来决定标签适用于标签，用来决定标签是否扩大是否扩大来显示标题文字。可以设置值为来显示标题文字。可以设置值为TrueTrue或或FalseFalse。 标签可触发标签可触发ClickClick和和DblClickDblClick事件。但是在实际的使用中，用户往往是仅

5、仅设置标签事件。但是在实际的使用中，用户往往是仅仅设置标签 标题属性标题属性(Caption属性属性)来利用标签显示文字，而很少使用到它的事件来利用标签显示文字，而很少使用到它的事件 2.Click和和DblClick事件事件 前面介绍标签以及窗体的一些属性也可以用于文本框，这些属性包括：前面介绍标签以及窗体的一些属性也可以用于文本框，这些属性包括： BorderstyleBorderstyle、EnabledEnabled、FontBoldFontBold、FontItalicFontItalic、FontNameFontName、FontsizeFontsize、 FontUnderlin

6、eFontUnderline、HeightHeight、NameName、LeftLeft、TopTop、VisibleVisible、WidthWidth 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例题例题1：标签控件：标签控件 Private Sub Form_Click() Label2.BorderStyle = 0 Label2.Caption = 你单击窗体你单击窗体! End Sub Private Sub Form_DblClick() Label2.BorderStyle = 1 Label2.Caption = 你双击窗体你双击窗体! End Sub 标签

7、标签1：“请您单击或双击窗体请您单击或双击窗体” 属性：窗体：标签的使用属性：窗体：标签的使用 FONTSIZE=14 标签标签2：AUTOSIZE=“TRUE” CAPTION：置空：置空 FONTSIZE=14 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 此外文本框还具有下列属性：此外文本框还具有下列属性： （1 1）Max LengthMax Length属性属性 Max LengthMax Length属性用来返回属性用来返回/ /设置允许在文本框中输入的设置允许在文本框中输入的最大字符数最大字符数 （2 2）Multi LineMulti Line属性：属性： 返回返

8、回/ /设置一个值决定文本框是否可以接受设置一个值决定文本框是否可以接受多行文本多行文本。TrueTrue或或FalseFalse。 （3 3）Password CharPassword Char属性属性 可用于设定在进行可用于设定在进行口令输入口令输入时对用户输入字符的掩码，也就是说在用户输入时是时对用户输入字符的掩码，也就是说在用户输入时是 显示用户输入的字符还是显示掩码屏蔽掉用户的输入显示用户输入的字符还是显示掩码屏蔽掉用户的输入 （4 4）ScrollBarsScrollBars属性属性 用来返回用来返回/ /设置一个值，来确定文本框是否有垂直和水平设置一个值，来确定文本框是否有垂直和

9、水平滚动条滚动条。可以取四个值，。可以取四个值， 它们分别是它们分别是0(0(没有没有 ) )、1(1(水平水平 ) )、2(2(垂直垂直 ) )、3(3(水平和垂直水平和垂直 ).). （5 5）TextText属性：属性： TextText属性用来返回属性用来返回/ /设置文本框中包含的文本设置文本框中包含的文本 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 该属性既可以在设计时使用属性窗口设定，也可以在运行时使用代码动态的修改。该属性既可以在设计时使用属性窗口设定，也可以在运行时使用代码动态的修改。 例如在代码中有如下语句：例如在代码中有如下语句： Text1.Text=W

10、elcome to china! Text1.Text=Welcome to china! 那么将在文本框那么将在文本框Text1Text1中显示字符串中显示字符串“Welcome to china!”Welcome to china!”。 （6 6）SelLengthSelLength属性：属性： SelLengthSelLength属性返回属性返回/ /设置文本框中用户选中的设置文本框中用户选中的字符数字符数 (7 (7）SelStartSelStart属性：属性： SelStartSelStart属性返回属性返回/ /设置选定文本的设置选定文本的起始位置起始位置（插入点）（插入点） （8

11、 8）SelTextSelText属性属性 SelTextSelText属性返回属性返回/ /设置包含有当前所选择的设置包含有当前所选择的文本的字符串文本的字符串 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 控件属性值 窗体CaptionTextbox测试1 NameForm1 文本框TextWelcome to china! NameText1 设定设定form1form1的的clickclick事件如下：事件如下： Private Sub Form_Click()Private Sub Form_Click() Debug.PrintDebug.Print Select s

12、tart= Selectlength= Selectlength= Selecttext= Selecttext= Selectlength= Selectlength= Selecttext= Selecttext= Selectlength=2;Selecttext=!Selectstart=17;Selectlength=2;Selecttext=! Selectstart=27;Selectlength=0;Selecttext=Selectstart=27;Selectlength=0;Selecttext= 通过这个示例可以发现，对于通过这个示例可以发现，对于SelLengthSe

13、lLength和和SelectstartSelectstart属性的值将属性的值将 随着修改随着修改SelecttextSelecttext的值而改变。的值而改变。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 （9 9）LockedLocked属性属性 LockedLocked属性用来指定文本框是否可属性用来指定文本框是否可被编辑被编辑。可以设定的值为。可以设定的值为TrueTrue和和FlseFlse。 TrueTrue 某个文框在运行时某个文框在运行时不允许不允许用户修改其中文字内容只允许选择文本。用户修改其中文字内容只允许选择文本。 FalseFalse 某个文框在运行时

14、某个文框在运行时允许允许用户修改其中文字内容。用户修改其中文字内容。FalseFalse为默认值为默认值 2.文本框事件和方法文本框事件和方法 文本框同标签一样支持文本框同标签一样支持ClickClick、DblClickDblClick等鼠标事件，同时文本框支持等鼠标事件，同时文本框支持ChangeChange、 GotFocusGotFocus、LostFocusLostFocus等事件，文本框还有等事件，文本框还有SetFocusSetFocus方法方法 （1 1）ChangeChange事件事件 当文本框中的内容当文本框中的内容发生改变发生改变时就发生时就发生ChangeChange事

15、件事件 （2 2）Got FocusGot Focus事件事件 当文本框当文本框接受接受了焦点（处于活动状态）时就会产生了焦点（处于活动状态）时就会产生GotFocusGotFocus事件事件 （3 3）LostFocusLostFocus事件事件 当文本框当文本框失去失去了焦点（处于非活动状态）时就会产生了焦点（处于非活动状态）时就会产生LostFocusLostFocus事件事件 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 SetFocusSetFocus方法可以用于将焦点方法可以用于将焦点移动移动到指定的对象到指定的对象, ,是文本框较常用的是文本框较常用的. . 格式：

16、格式： （4 4）SetFocusSetFocus方法方法 3.1.3 应用举例应用举例 例例3.1： 利用利用LostFocusLostFocus事件事件 改变文本框中的内容。改变文本框中的内容。 在窗体在窗体form1form1上建立两个文上建立两个文 本框分别是本框分别是Text1Text1、Text2Text2， 下面在下面在form1form1的的loadload事件过事件过 程中作如下设置：程中作如下设置： Private Sub Private Sub Form_Load()Form_Load() Form1.Text1.Text=Form1.Text1.Text= Form1.

17、Text2.Text=Form1.Text2.Text= Form1.Text1.Font=Form1.Text1.Font=宋体宋体 Form1.Text2.Font=Form1.Text2.Font=宋体宋体 Form1.Text1.FontSize=14Form1.Text1.FontSize=14 Form1.Text2.FontSize=14Form1.Text2.FontSize=14 Form1.Text1.BackColor=vbBlackForm1.Text1.BackColor=vbBlack Form1.Text1.ForeColor=vbWhiteForm1.Text1

18、.ForeColor=vbWhite Form1.Text2.ForeColor=vbBlueForm1.Text2.ForeColor=vbBlue Form1.Text2.BackColor=vbRedForm1.Text2.BackColor=vbRed Form1.Form1.ShowShow Form1.Text1.SetFocusForm1.Text1.SetFocus End SubEnd Sub 对象对象.SetFocus .SetFocus 该方法可以把光标移到指定的文本框中该方法可以把光标移到指定的文本框中 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 如果在

19、如果在text1text1的的LostFocusLostFocus事件过程中作如下设定：事件过程中作如下设定： Private Sub Text1_LostFocus()Private Sub Text1_LostFocus() Form1.Text2.Text=UCase(Form1.Text1.Text)Form1.Text2.Text=UCase(Form1.Text1.Text) End SubEnd Sub 3.2 3.2 图片框和图像框图片框和图像框 与图形有关的标准控件有与图形有关的标准控件有4 4种，即图片框、图像框、直线和形状种，即图片框、图像框、直线和形状 3.2.1 图片

20、框和图像框图片框和图像框 图片框比图像框更灵活，且适用于动态环境，图片框比图像框更灵活，且适用于动态环境， 而图像框适用于静态情况而图像框适用于静态情况 默认名称分别为默认名称分别为Picture1Picture1， Picture2Picture2和和Imagex1Imagex1， Imagex2Imagex2 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 1. 与窗体属性相同的属性与窗体属性相同的属性 第第2 2章中介绍的部分窗体属性，包括章中介绍的部分窗体属性，包括EnabledEnabled、NameName、VisibleVisible、FontBoldFontBold

21、、 FontItalicFontItalic、FontNameFontName、FantasizeFantasize、FontUnderlineFontUnderline等，完全适用于图片框和图等，完全适用于图片框和图 像框，其用法也相同。但在使用时应注意，对象名不能省略，必须是具体的像框，其用法也相同。但在使用时应注意，对象名不能省略，必须是具体的 图片框或图像框名。图片框或图像框名。 2.Current X和和Current Y属性属性 用来设置下一个输出的水平（用来设置下一个输出的水平（Current XCurrent X）或垂直（）或垂直（Current YCurrent Y）坐标。这

22、）坐标。这 两个属性只能在运行期间使用。两个属性只能在运行期间使用。 格式如下：格式如下： 对象对象.Current X=x.Current X=x 对象对象.Current Y=y .Current Y=y 其中其中“对象对象”可以是窗体、图片框和打印机可以是窗体、图片框和打印机 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 Private Sub Form_ClickPrivate Sub Form_Click() Picture1.Print Tab(10);picture1 tab10testPicture1.Print Tab(10);picture1 tab10tes

23、t Print Tab(20);Form Tab 20Print Tab(20);Form Tab 20 Picture1.CurrentX = 800Picture1.CurrentX = 800 Picture1.CurrentY = 600Picture1.CurrentY = 600 CurrentX = 800CurrentX = 800 CurrentY = 600CurrentY = 600 Print Form CurrentX,CurrentY TestPrint Form CurrentX,CurrentY Test Picture1.Print Picture1Curre

24、ntX,currentY Picture1.Print Picture1CurrentX,currentY Print Tab(15);CurrentX, CurrentYPrint Tab(15);CurrentX, CurrentY Picture1.Print Tab(15);CurrentX, CurrentYPicture1.Print Tab(15);CurrentX, CurrentY End Sub End Sub 例例3.3：在窗体上建立一个图片框，然后分别在窗体和图片框中显示一些信息。在窗体上建立一个图片框，然后分别在窗体和图片框中显示一些信息。 第三章第三章 VB 6.0

25、VB 6.0的常用控件的常用控件 3. Picture属性属性 用于窗体、图片框和图像框，可通过属性窗口设置，用来把图形放入这些对象中用于窗体、图片框和图像框，可通过属性窗口设置，用来把图形放入这些对象中 支持以下格式的图形文件支持以下格式的图形文件 （1 1） BitmapBitmap（位图）：也称（位图）：也称“绘图类型绘图类型”扩展名为扩展名为.BMP.BMP或或 .DIB.DIB。 （2 2） Icon Icon （图标）：是一种特殊类型的位图，扩展名为（图标）：是一种特殊类型的位图，扩展名为.ICO.ICO或或.OUR.OUR （3 3） MetafileMetafile（图元文件）

26、：也称为（图元文件）：也称为 绘图类型绘图类型 图形，它将图形定义为图形，它将图形定义为 编码的线段和图形。普通图元文件的扩展名为编码的线段和图形。普通图元文件的扩展名为.WMF.WMF，增强型图元文件的扩，增强型图元文件的扩 展名为展名为.EMF.EMF。 （4 4） JPEGJPEG （Joint Photographics Expert GroupJoint Photographics Expert Group）：是一种支持）：是一种支持8 8位和位和 2424位颜色的压缩位图格式，其文件扩展名为位颜色的压缩位图格式，其文件扩展名为.JPG.JPG。 （5 5） GIFGIF （Grap

27、hics Interchange FormatGraphics Interchange Format）：是一种压缩位图格式，支）：是一种压缩位图格式，支 持持256256种颜色，其扩展名为种颜色，其扩展名为.GIF.GIF。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 4. Stretch属性属性 用于图像框，用来用于图像框，用来自动调整自动调整图像框中图形内容的大小。它既可通过属性窗口设置，图像框中图形内容的大小。它既可通过属性窗口设置， 也可通过程序代码设置。该属性的值可设为也可通过程序代码设置。该属性的值可设为True(True(不显不显 ) )或或FalseFalse

28、(自动自动 ) 3.2.2 图形文件的装入图形文件的装入 1. 图片框与图像框的区别图片框与图像框的区别 （1 1）图片框是）图片框是“容器容器”控件，可以作为控件，可以作为父控件父控件，而图像框不能作为父控，而图像框不能作为父控 件件 （2 2）图片框可以通过）图片框可以通过PrintPrint方法接收文本，并可接收由像素组成的图形，而图方法接收文本，并可接收由像素组成的图形，而图 像框不能接收，也不能用绘图方法在图像框上绘制图形像框不能接收，也不能用绘图方法在图像框上绘制图形 （3 3）图像框比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。 图片框是一个图片框是

29、一个“容器容器”，可以把其他控件放在该控件上。，可以把其他控件放在该控件上。 2. 在设计阶段装入图形文件在设计阶段装入图形文件 （1 1）用属性窗口中的）用属性窗口中的PicturePicture属性装入属性装入 步骤如下：建立步骤如下：建立 、属性属性 、加载图片、加载图片、目录中选择、打开目录中选择、打开 如下页图如下页图 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.在运行期间装入图形文件在运行期间装入图形文件 （2 2）利用剪贴板把图形粘贴（）利用剪贴板把图形粘贴（PastePaste）到窗体、图片框或图像框中）到窗体、图片框或图像框中 步骤步骤 ：绘图软件绘图软件

30、 、启动启动VBVB 、粘贴粘贴 格式：格式： 对象对象.Picture=LoadPicture.Picture=LoadPicture（ 文件名文件名 ） Private Sub Command1_Click() Picture1.Picture = LoadPicture End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture(“e:kk.gif) End Sub 例题例题2：加载图片加载图片 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 窗体：加载图片窗体：加载图片 图片框：图片框： 按纽按纽1

31、（清除）、（清除）、 按纽按纽2（恢复）（恢复） 属性属性 ： 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.2.3 应用举例应用举例 例例3.4：编写程序，交换两个图片框中的图形编写程序，交换两个图片框中的图形 三个图片框：三个图片框： Private Sub Form_Click()Private Sub Form_Click() Form1.Picture3.Picture = Form1.Picture1.PictureForm1.Picture3.Picture = Form1.Picture1.Picture Form1.Picture1.Picture = Fo

32、rm1.Picture2.PictureForm1.Picture1.Picture = Form1.Picture2.Picture Form1.Picture2.Picture = Form1.Picture3.Picture Form1.Picture2.Picture = Form1.Picture3.Picture End SubEnd Sub Private Sub Form_Load()Private Sub Form_Load() Form1.Picture3.Visible = FalseForm1.Picture3.Visible = False Form1.Picture

33、1.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 = LoadPicture(F:bmpZW_016.GIF) End SubEnd Sub 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.3 3.3 按钮控件按钮控件 命令按钮：命令按钮：CaptionCaption、EnabledEnabl

34、ed、FontBoldFontBold、 FontItalicFontItalic、FontNameFontName、FontsizeFontsize、 FontUnderlineFontUnderline、HeightHeight、LeftLeft、NameName、TopTop、 VisibleVisible、WidthWidth。 用于指出命令按钮是否为窗体的用于指出命令按钮是否为窗体的“取消取消”按钮按钮 1.Cancel属性属性 2. Default属性属性 是用于决定窗体的是用于决定窗体的缺省缺省命令按钮命令按钮 3.Style3.Style属性属性 设置或返回一个值，这个值用来指

35、定控件的设置或返回一个值，这个值用来指定控件的显示类型和操作显示类型和操作。 4.Picture属性属性 用于返回用于返回/ /设置设置CommandButton,OptionButtonCommandButton,OptionButton或或CheckBox CheckBox 控件中要显示的图形。控件中要显示的图形。 5.Downpicture属性属性 用于返回用于返回/ /设置按钮按下状态时显示的图形。设置按钮按下状态时显示的图形。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 6.Disablepicture属性属性 用于返回用于返回/ /设置按钮无效时显示的图形。设置按钮

36、无效时显示的图形。 注意：命令按钮最常用的事件是单击命令按钮时触发的单击事件（注意：命令按钮最常用的事件是单击命令按钮时触发的单击事件（ClickClick事件）。事件）。 这里特别指出的是，命令按钮不支持双击事件（这里特别指出的是，命令按钮不支持双击事件（DblclickDblclick事件）。事件）。 3.3.2 应用举例应用举例 例例3.5：验证按钮的属性验证按钮的属性 对象对象属性属性值值 按钮按钮1 1namenameCommtop1 按钮按钮2 2namenameCommtop2 Private Sub Form_Click()Private Sub Form_Click() Co

37、mmtop1.Caption = 示例示例1 Commtop1.FontName = 黑体黑体 Commtop1.FontSize = 20 Commtop1.FontBold = True Commtop1.FontItalic = True Commtop1.FontUnderline = True Commtop2.Caption = 示例示例2 Commtop2.FontName = 宋体宋体 Commtop2.FontSize = 22 Commtop2.FontBold = True Commtop2.FontItalic = False Commtop1.Enabled = Fa

38、lse Commtop2.Enabled = True End SubEnd Sub 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例题3：命令按纽的使用Private Sub Command1_Click() Label1.Caption = 你单击命令按纽一你单击命令按纽一 End Sub Private Sub Command2_Click() Label1.Caption = 你单击命令按纽二你单击命令按纽二 End Sub 属性：属性： FONTNAME 宋体宋体 PICTURE F:bmpE_-34 标签：空标签：空 命令命令1：CAPTION 命令按纽一命令按纽一

39、FONTSIZE 14 命令命令2: PICTURE F:bmpE_-40 (其它同上其它同上) 将三个控件加上颜色将三个控件加上颜色 Style=1 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.4 复选框和单选框复选框和单选框 复选框按钮复选框按钮,可以同时选择多个可以同时选择多个,默认名称默认名称 Check1 单选按钮中，只能选择其中的一个单选按钮中，只能选择其中的一个,默认名称默认名称 Option2 3.4.1 复选框和单选框的属性与事件复选框和单选框的属性与事件 大多数属性都可用于复选框和单选按钮，包括大多数属性都可用于复选框和单选按钮，包括 Caption、E

40、nabled、FontBolder、FontItalic、 FontName、Fontsize、FontUnderline、Height、 Left、Name、Top、Visible、Width。 也可以使用也可以使用Picture、DownPicture和和DisabledPicture属性属性 1. Value属性属性 表示复选框或单选按钮的状态。对于单选按钮，可设为表示复选框或单选按钮的状态。对于单选按钮，可设为True(打开打开 )或或False(关闭关闭 )。 对于复选框来说，对于复选框来说，Value属性可以设置值为属性可以设置值为0(没有没有 )、1(选中选中 )或或2(被禁止被

41、禁止 )。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 2. Alignment属性属性 用于返回用于返回/设置复选框或选项按钮、或一个控件的文本的对齐设置复选框或选项按钮、或一个控件的文本的对齐 格式：对象格式：对象.Alignment=值值 对象为复选框或单选按钮时对象为复选框或单选按钮时 ,0(居左居左 ),1(居右居右 ),也可以是标签和文本框也可以是标签和文本框 3. Style属性属性 用于指定复选框或单选按钮的显示方式，改善视觉效果用于指定复选框或单选按钮的显示方式，改善视觉效果,0(标准方式标准方式 ),1(图形方式图形方式 ) 注意以下几点：注意以下几点： 当

42、当Style属性被设置为属性被设置为1时，可以用时，可以用Picture、DownPicture和和DisabledPicture属性属性 Style是只读属性，只能在设计时使用。是只读属性，只能在设计时使用。 分别设置不同的图标或位图分别设置不同的图标或位图 Style属性被设置为不同的值（属性被设置为不同的值（0或或1）时，其外观也不一样）时，其外观也不一样 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.4.2 应用举例应用举例 控件属性设置 复选框NameCheck1 Caption下划线 复选框NameCheck2 Caption倾斜 单选框NameOption1 C

43、aption宋体 单选框NameOption1 Caption黑体 文本框NameTest1 Caption单选框和复选框程序示例 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 编写如下事件过程：编写如下事件过程： Option ExplicitOption Explicit Private Sub check1_Click()Private Sub check1_Click() test1.Font.Underline = Not test1.Font.Underline test1.Font.Underline = Not test1.Font.Underline End S

44、ubEnd Sub Private Sub check2_Click()Private Sub check2_Click() test1.Font.Italic = Not test1.Font.Italic test1.Font.Italic = Not test1.Font.Italic End SubEnd Sub Private Sub option1_Click()Private Sub option1_Click() test1.FontName = test1.FontName = 黑体黑体 End SubEnd Sub Private Sub option2_Click()Pr

45、ivate Sub option2_Click() test1.FontName = test1.FontName = 宋体宋体 End SubEnd Sub 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 3.5 3.5 列表框和组合框列表框和组合框 列表框可以选择所需要的项目列表框可以选择所需要的项目 组合框可以把一个文本框和列表框组合为单个控制窗口组合框可以把一个文本框和列表框组合为单个控制窗口 3.5.1 列表框列表框 1. 属性属性 列表框支持的标准属性包括列表框支持的标准属性包括HeightHeight、LeftLeft、TopTop、 VisibleVisible、W

46、idthWidth、EnabledEnabled、FontBoldFontBold、FontItalicFontItalic、 FontNameFontName、FontUnderlineFontUnderline、HeightHeight。 （1 1）ColumnsColumns属性属性 设置一个值，决定列表框为是在一列中垂直滚动设置一个值，决定列表框为是在一列中垂直滚动, ,还是多个列中水平滚动还是多个列中水平滚动 0 0 单列显示，有垂直滚动条单列显示，有垂直滚动条; ; 1 1 多行单列显示只有水平滚动条多行单列显示只有水平滚动条, , N N 是大于是大于1 1的数，多行多列显示。的

47、数，多行多列显示。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 ColumnsColumns属性值分别为属性值分别为0 0，1 1，4 4时时 （2 2）ListList属性属性 ListList属性用来列出表项的内容属性用来列出表项的内容 a)a)格式：格式：s$=s$=列表框列表框.List.List（下标）（下标） 例如：例如：s$=List1.lists$=List1.list(8 8) 将列出列表框将列出列表框ListlListl第九项的内容。第九项的内容。 b)b)格式：格式： 列表框列表框.List.List（下标）（下标）=s$=s$ 例如：例如：List1.l

48、istList1.list(4 4)=“kkkkk” =“kkkkk” 将把列表框将把列表框ListlListl第五项的内容第五项的内容 设置为设置为kkkkkkkkkk。 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 （3 3）ListCountListCount属性属性 用来返回列表部分的项目数，即该属性列出列表框用来返回列表部分的项目数，即该属性列出列表框中表项的数量中表项的数量 （4 4）ListIndexListIndex属性属性 用来返回用来返回/ /设置列表中当前设置列表中当前选定选定项目的索引项目的索引, ,返回值是己选中的表项的位置。返回值是己选中的表项的位置。

49、 （5 5）MultiSelectMultiSelect属性属性 用来返回用来返回/ /设置一个值，决定用户是否可以在列表中做多重选择设置一个值，决定用户是否可以在列表中做多重选择 （6 6）SelectedSelected属性属性 用来返回用来返回/ /设置列表中项目的选定状态。设置列表中项目的选定状态。 （7 7）SelCountSelCount属性属性 用来返回列表框控件选定的项目数用来返回列表框控件选定的项目数 （8 8）SortedSorted属性属性 用来确定列表框中的项目是否按字母、数字升序用来确定列表框中的项目是否按字母、数字升序排列排列 第三章第三章 VB 6.0VB 6.0

50、的常用控件的常用控件 （9 9）StyleStyle属性属性 用来确定列表外观，只能在设计时确定。用来确定列表外观，只能在设计时确定。其取值可以设置为其取值可以设置为0 0或或l l。 （1010）TextText属性属性 返回返回/ /设置列表中包含的文本设置列表中包含的文本 2.列表框事件列表框事件 列表框接收列表框接收ClickClick和和Db1ClickDb1Click事件，但有时不用编写事件，但有时不用编写ClickClick事件过程代码，事件过程代码， 而是当单击一个命令按钮或发生而是当单击一个命令按钮或发生DblClickDblClick事件时，读取事件时，读取TextText

51、属性。属性。 可以使用可以使用AddItemAddItem、ClearClear和和RemoveItemRemoveItem等方法，用来在运行期间修改列表框的内等方法，用来在运行期间修改列表框的内 容。容。 3.列表框方法列表框方法 （1 1）AddItemAddItem :在列表框中添加在列表框中添加文本文本项目项目: （2 2）Clear:Clear:清除列表框中的全部内容清除列表框中的全部内容 （3 3）RemoveItemRemoveItem: :删除列表框中指定的项目删除列表框中指定的项目 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例例3.8：利用列表框显示学生的籍

52、贯，并可以添加列表项。利用列表框显示学生的籍贯，并可以添加列表项。 控件控件属性属性值值 列表框列表框Namelst list空空 标签标签NameLblName Caption学生姓名学生姓名 标签标签NameLblNative caption学生籍贯学生籍贯 文本框文本框NameTxtName Text空空 文本框文本框NameTxtNative Text空空 命令按钮命令按钮NameCmdAdd Caption确定确定 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 Private Sub Form_Load() Lst.AddItem 李亿 Lst.AddItem 王晓波

53、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) = 广州 NativeArray(7) = 大连 Native

54、Array(8) = 河北 End Sub Dim NativeArray() As String 定义籍贯数组为动态数组定义籍贯数组为动态数组 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 Private Sub Lst_Click()Private Sub Lst_Click() CmdAdd.Caption = CmdAdd.Caption = 添加添加 TxtName.Visible = FalseTxtName.Visible = False LblName.Visible = FalseLblName.Visible = False TxtNative.Text =

55、NativeArray(Lst.ListIndex)TxtNative.Text = NativeArray(Lst.ListIndex) End SubEnd Sub Private Sub CmdAdd_Click() Private Sub CmdAdd_Click() CmdAdd.Caption = CmdAdd.Caption = 确定确定 TxtName.Visible = TrueTxtName.Visible = True LblName.Visible = TrueLblName.Visible = True Lst.AddItem TxtName Lst.AddItem

56、TxtName i = Lst.ListCounti = Lst.ListCount ReDim Preserve NativeArray(i)ReDim Preserve NativeArray(i) NativeArray(Lst.ListCount - 1) = TxtNative.TextNativeArray(Lst.ListCount - 1) = TxtNative.Text TxtName = TxtName = TxtNative = TxtNative = End SubEnd Sub 列表框列表框ClickClick事件，姓名标签及文本框隐藏，籍贯处显示学生籍贯事件，姓名

57、标签及文本框隐藏，籍贯处显示学生籍贯 单击添加按钮事件 单击添加按钮事件 第三章第三章 VB 6.0VB 6.0的常用控件的常用控件 例例3.9：交换两个列表框中的项目。其中一个列表框中的项目按字母升序排列，交换两个列表框中的项目。其中一个列表框中的项目按字母升序排列， 另一个列表框中的项目按加入的先后顺序排列另一个列表框中的项目按加入的先后顺序排列。当双击某个项目时，该项目从本。当双击某个项目时，该项目从本 列表框中消失，并出现在另一个列表框中。列表框中消失，并出现在另一个列表框中。 Private Sub Form_Load()Private Sub Form_Load() List1.F

58、ontSize = 14List1.FontSize = 14 List2.FontSize = 14List2.FontSize = 14 List1.AddItem IBMList1.AddItem IBM List1.AddItem CompaqList1.AddItem Compaq List1.AddItem HPList1.AddItem HP List1.AddItem FUHList1.AddItem FUH List1.AddItem DigiulList1.AddItem Digiul List1.AddItem List1.AddItem 长城长城 List1.AddIt

59、em List1.AddItem 联想联想 List1.AddItem CmonList1.AddItem Cmon List1.AddItem List1.AddItem 四通四通 List1.AddItem Ac List1.AddItem Ac List1.AddItem NecList1.AddItem Nec End SubEnd Sub Private Sub List1_DblClick()Private Sub List1_DblClick() List2.AddItem List1.TextList2.AddItem List1.Text List1.RemoveItem L

60、ist1.ListIndexList1.RemoveItem List1.ListIndex End SubEnd Sub Private Sub List2_DblClick() Private Sub List2_DblClick() List1.AddItem List2.TextList1.AddItem List2.Text List2.RemoveItem List2.ListIndexList2.RemoveItem List2.ListIndex End SubEnd Sub 属性：属性： List2:sorte=trueList2:sorte=true 第三章第三章 VB 6