VB程序设计常用标准控件(一)
VB程序设计常用标准控件（一）
5.1 标签控件
标签控件(Label)和文本控件(TextBox)是用于显示和输入文本的。应用程序在窗体中显示文本时使用标签控件(Label)，允许用户输入文本时用文本控件(TextBox)。
5.1.1 标签控件(Label)
标签控件常用于输出文本信息，但输出的信息不能进行编辑修改。
(1) Alignment属性，
(2) Appearance属性，
(3) Autosize属性，
(4) BackColor属性，
(5) BackStyle属性，
(6) Enabled属性，
(7) Index属性，
(8) ToolTipText属性，
标签可触发Click和DblClickg事件。
5.1.2文本框(TextBox)
文本框控件称为编辑字段或者编辑控件，用于文本编辑，用户可以在该控件区域内输入、编辑、修改和显示文本内容。
5.2图形控件
Visual Basic 6．0包含四个图形控件：PictureBox控件、Image控件、Shape控件和Line控件。
5.2.1图片框（PictureBox）、图像框（Image）的属性、事件和方法
图片框和图像框可以显示的图像文件格式有位图文件、图标文件、图元文件、JPEG格式文件和GIF格式文件。
1．图片框的常用属性、事件与方法
(1)PictureBox控件属性
①Picture属性
②AutoSize属性
③ScaleLeft，ScaleTop，ScaleWidth，ScaleHeight和ScaleMode属性
④ PictureBox控件作为容器
(2)图片框的常用事件
图片框的常用事件有Click，DBClick，Change，鼠标事件和键盘事件等，使用方法与TextBox控件相似。
其中Chage事件当改变图片框的Picture属性时发生。
(3) PictureBox控件的常用方法
① Line方法
在对象上画直线和矩形。语法：
Object.Line[Step](x1,y1)［Step](x2,y2),[color],[B][F]
其中，object为PictureBox控件对象；(x1，y1)为线段的起
点坐标或矩形的左上角坐标；(x2，y2)为线段的终点坐标或矩形的右下角坐标；Step指定相对于线的起点的终点坐标；B表示画矩形；F表示用画矩形的颜色来填充矩形，F必须与B一起使用。若只用B而不用F，则矩形的填充由FillColor 和FillStyle属性决定。
② Circle方法
在对象上画圆、椭圆或弧。语法：
Object.Circle[Step](x，y)，radius，[color,start，end，aspect] 其中，object为PictureBox控件对象；(x，y)为Single类型，是圆、椭圆或弧的中心坐标；step表示采取当前作图位置的相对值；start、end分别表示起始角度、终止角度，取值为0～2π时，画圆弧，取值为负值时，画扇形，负号表示画圆心到圆弧的径向线；aspect指定长短轴比率，默认值为1，画圆，大于或小于1时，画椭圆。
③Cls方法
清除运行时PictureBox所生成的图形和文本。语法：
Object.Cls
④ Point与PSet方法
Point方法用于返回图形框上指定点的RGB颜色，若指定点在对象外面，则返回值为-1，该方法对图像上控件无效。PSet方法用于在图形框指定位置上画点。其语法如下：object.Point(x，y)
object.PSet[Step](x，y)，[color]
其中，(x，y)为所画点的坐标，Step表示当前作图的相对值。
PSet方法采用背景颜色可清除某个位置上的点。
⑤ Print方法
利用PictureBox控件的Print方法，可以在控件中打印文本、图像、动画。
2．图像框的常用属性、事件与方法
(1)Image控件属性
Image控件也使用Picture属性来确定控件显示的内容。
Image控件没有AutoSize属性，它使用Stretch属性来指定一个图形是否要调整大小，当Stretch值为True时，图形调整大小以与控件相适合；当值为False时，控件调整大小以与图形相适应。
Image控件也不能设置对象的坐标系统，它没有ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight和ScaleMode属性。
(2)Image控件事件
Image控件具有Click事件、DbClick事件、鼠标事件、键盘事件，但没有Change事件。
(3)Image控件方法
Image控件只具有Move、Refresh、ZOrder等方法，
不支持PietureBox控件的图形方法。
5.2.2 图形文件的装入
将图形载入到PictureBox控件或Image控件，可利用函数LoadPicture设置控件的Picture属性。语法为：LoadPicture([filename]，[size]，［colordepth]，［x，y])
其中，filename指定图片文件名。如果filename是光标或图标文件，size指定图像大小，colordepth指定颜色深度，(x，y)指定光标或图标的宽度与高度。
运行时，若要从PictureBox或Image控件中删除一个图形，可使用不指定文件名的LoadPicture函数。例如：Imagel.Picture=LoadPicture
5.3选择控件―复选框与单选按钮
复选框也称检查框。单击检查框可以使“选”和“不选”交替起作用。可同时选择一项或多项；其默认名称分别为CheckX（其中X为1，2，3 …）。
1．复选框的属性
（1）Caption属性
（2）Alignment属性
（3）Value属性
该属性表示检查框的状态。
① 选0-UnClick（默认）值，表示检查框没有被选中；
② 选1-UnClick值，表示检查框被选中；
③ 选2-Grayed值，表示检查框被禁止选择，此时检查框变成灰色
（4）Style属性
2．复选框的事件
复选框控件最基本的事件也是Click事件。同样，用户无须为检查框编写Click事件过程，因为当用户单击检查框时，它会自动改变状态。
3．复选框的方法
复选框也可使用SetFocus方法来改变其Value属性值，其用法与要求同单选按钮一样。每调用一次SetFocus方法就触发一次Click事件。
【例5.2】CheckBox控件示例。设计一个窗体，如图5-3
所示，用检查框控制文本输入是否加“下划线”和“斜体显示”。操作步骤如下。
（1）设计窗体外观
本例需要在窗体上添加3个控件，即一个文本框，两个检查框。在文本框中显示文本，由两个检查框决定显示的文本是否加下划线或用斜体显示。
（2）编写事件代码
“Form1”窗体控件的“Load”事件过程代码如下：
Private Sub Form_Load()
TextDisplay.FontSize = 15
End Sub
“TextDisplay”文本框控件的“Change”事件过程代码如下：Private Sub TextDisplay_Change()
If CheckUnderLine.Value=1 Then
TextDisplay.FontUnderline=True
End if
If CheckItalic.Value=1 then
TextDisplay. FontItalic =True
End If
End Sub
“CheckUnderLine”检查框控件的“Click”事件过程代码如下：Private Sub CheckUnderLine_Click()
If CheckUnderLine.Value=1 Then
TextDisplay.FontUnderline=True
Else
TextDisplay.FontUnderline=False
End If
End Sub
“CheckItalic”检查框控件的“Click”事件过程代码如下：Private Sub CheckItalic_Click()
If CheckItalic.Value=1 Then
TextDisplay.FontItalic=True
Else
TextDisplay.FontItalic=False
End If
End Sub
（3）执行程序
5.3.2 单选按钮（OptionButton）
单选按钮主要用于在多种功能中选择一种功能的情况。
单选按钮必须成组出现，在一组单选按钮中必须选择一项，且只能选择一项；
其默认名称分别为OptionX（其中X为1，2，3…）。
1．单选按钮的属性
（1）Caption属性
（2）Alignment属性
（3）Value属性
该属性表示单选按钮的状态，它是一个逻辑值。
① 取True值，表示它被选中，按钮的中心有一个圆点。
② 取False（默认）值，表示单选按钮没被选中，按钮的中心是一个圆圈。
（4）Style属性
2．单选按钮的事件
单选按钮最基本的事件是Click事件，但一般不须要编写
Click事件过程。因为当用户单击单选按
钮时，它会自动改变状态。
3．单选按钮的方法
SetFocus方法是单选按钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。使用该方法之前，必须要保证单选按钮当前处于可见和可用状态（即Visible
与Enabled属性值均为True）。
【例5.3】OptionButton控件示例。设计一个如图5-3所示的窗体程序，实现用单选按钮在文本框中显示不同的字体。操作步骤如下。
（1）外观设计
在窗体上添加4个控件，即一个文本框，3个单选按钮，进行其主要属性设置。
（2）事件过程代码编写
3个单选按钮编写事件过程代码分别如下：
Private Sub courier_Click()
TextDisplay.FontSize=18
TextDisplay.FontName="courier"
End Sub
Private Sub modern_Click()
TextDisplay.FontSize=20
TextDisplay.FontName="modern"
End Sub
Private Sub roman_Click()
TextDisplay.FontSize=24
TextDisplay.FontName="times new roman"
End Sub
5.4选择控件―列表框与组合框
列表框（ListBox）主要是用于显示列表性的数据，用户可以从此列表框内选择适当的列表数据。组合框（ComboBox）是一种把文本框（TextBox）和列表框（ListBox）特性组合为单个控制窗口。利用组合框可以在文本框部分输入字符串，或者在列表框直接选取某项目。
5.4.1 列表框（ListBox）
列表框用来以选项列表形式显示一系列选项，用户可从中选择一项或多项。
列表框最主要的特点是只能从中选择，不能直接写入或修改其内容。其默认名称分别为ListBox X（其中X为1，2，3…）。1．列表框的常用属性
列表框所支持的标准属性包括：Enabled，FontBold，FontName，FontUnderline，Height，Left，Name，Top，Visible，Width。此外，列表框还具有以下特殊属性。
（1）Columns属性
该属性用来确定列表框的列数。
（2）List属性
该属性是一个字符型数组，每一个列表项都是这个数组中的一个元素，通过下标访问数组中的值，List数组的下标是从0开始的。其格式为
列表框名.List(下标)
（3）ListCount属性
它表示列表框中列表项的数量，其值为整数。第一个列表项序号为0，最后一个列表项序号为ListCount-1值。该属性只能在程序中设置或引用
（4）ListIndex属性
它表示执行时选中的列表项序号，其值为整数。
（5）Style
（6）NewIndex属性
（7）Selected属性
该属性实际上是一个数组，各个元素的值为True或False，每个元素与列表框中的一项相对应。当元素的值为True时，表明选择了该项；如为False，则表示未选择。
列表框名.Selected（索引值）
“索引值”从0开始，它实际上是数组的下标。上面的语句返回一个逻辑值（True或False）。用下面的语句可以选择指
定的表项或取消已选择的表项：
列表框名.Selected（索引值）=True | False
（8）Stored属性
（9）Text属性
它的值是被选中列表项的文本内容。List（ListIndex）等于Text。
（10）MultiSelect属性
2．列表框事件
（1）Click事件
（2）DblClick事件
3．列表框方法
（1）AddItem方法
格式：列表框名.AddItem 项目字符串[，索引值]
（2）Clear方法
格式：列表框名.Clear
（3）RemoveItem方法
格式：列表框名.RemoveItem 索引值
【例5.4】ListBox控件示例。设计一个如图5-8所示的窗体应用程序。在文本框中输入数据，按“增加(A)”按钮，所输入的数据将增加到列表框中。选中列表框中的某项，按删除“按钮(D)”，将该项从列表框中删除；按“清除(C)”按钮，将清除列表框中所有项目；按“退出(X)”按钮，将结束程序运行。
操作步骤如下。
（1）窗体外观设计
（2）事件过程代码设计
“Form1”窗体控件的“Load”事件过程代码如下：Private Sub Form_Load()
Text1.Text = ""
List1.Clear
End Sub
“cmdAdd”命令按钮控件的“Click”事件过程代码如下：Private Sub Command1_Click()
List1.AddItem Text1.Text
Label2.Caption = "列表项目总数为：" &
List1.ListCount
Text1.Text = ""
Text1.SetFocus
End Sub
“cmdDel”命令按钮控件的“Click”事件过程代码如下：Private Sub Command2_Click()
Dim intSelected As Integer
intSelected = List1.ListIndex
If intSelected >= 0 Then
List1.RemoveItem intSelected
Label2.Caption = "列表项目总数为：" &
List1.ListCount
Else
MsgBox "请先在列表框中选择要删除的项目。"
Beep
End If
End Sub
“cmdClear”命令按钮控件的“Click”事件过程代码如下：Private Sub Command3_Click()
List1.Clear
Label2.Caption = "列表项目总数为：" &
List1.ListCount
End Sub
“cmdExit”命令按钮控件的“Click”事件过程代码如下：Private Sub Command4_Click()
End
End Sub
（3）运行调式程序
5.4.2 组合框（ComboBox）
组合框是组合了文本框和列表框的特性而形成的一种控件。组合框在列表框中列出可供用户选择的选项，另外还有一个文本框。
组合框有三种不同的风格：下拉式组合框、简单组合框和下拉式列表框，由Style属性值来确定。
1．组合框属性
（1）Style属性
① 当Style属性被设置为0时，组合框称为“下拉式组合框”
② Style属性值为1的组合框称为“简单组合框”（Simple Combo），它由可输入文本的编辑区和一个标准列表框组成。
③ Style属性值2的组合框称为“下拉式列表框”（Dropdown List Box）。
（2）Text属性
该属性值是用户所选择的项目的文本或直接从编辑区输入
的文本。
2．组合框事件
（1）Click事件
（2）DblClick事件
（3）Change事件
3．组合框方法
（1）AddItem方法
格式：组合框名.AddItem String[,number]
功能：它把String选项加入到指定的组合框中。
（2）Clear方法
格式：组合框名.Clear
功能：删除组合框中的所有内容。
（3）RemoveItem方法
格式：组合框名.RemoveItem(index)[=number]
功能：从组合框中删除一个指定的选项。
小结：
控件是Ｖisual Basic中预先定义好的、程序中能够直接使用的对象。每种控件都有自己的属性、事件和方法，每种控件都可以完成一种特定的任务。这些控件对象都以形象的图标形式出现在工具箱中，以便于编程时使用。本讲系统和深入地介绍了标签、文本框、复选框、单选按钮、列表框和组合框这些常用标准控件的属性、方法及事件及其在程序设计中的具体应用。
作业：
1、单选按钮和复选框在使用上有什么区别？
2、列表框和组合框在使用上有什么区别？
3、熟悉各种控件的属性、事件和方法。