VB教程——常用控件.doc

第五章 VB常用控件 1
5.1文本控件 2
5.1.1标签（Label）控件 2
5.1.2 文本框（TextBox） 控件 3
5.2 命令按钮（CommandButton） 10
5.2.1常用属性 10
5.2.2.常用事件 11
5.2.3. 应用举例 11
5.3选择控件 — 复选框和单选按钮 13
5.3.1复选框（CheckBox）控件 13
5.3.2单选按钮（OptionButton）控件 15
5.4 选择控件 — 列表框 17
5.4.1常用属性 17
5.4.2常用事件 19
5.4.3常用方法 20
5.4.4 应用举例 21
55选择控件 —组合框 24
5.5.1常用属性 24
5.5.2组合框常用事件 26
5.6 滚动条（ScrollBar）控件 28
5.6.1滚动条（ScrollBar）控件的属性 29
5.6.2滚动条（ScrollBar）事件 29
5.6.3 滚动条事件举例 30
5.7 框架（Frame） 31
5.7.1在框架内添加控件 31
5.7.2 常用属性 31
5.7.3框架（Frame）控件的响应事件 31
5.8图形控件 33
5.8.1图片框（Picture Box）和图像框（Image Box）控件 33
5.8.2形状（Shape）和直线（Line）控件 36
5.9计时器控件（timer） 39
5.9.1属性 39
5.9.2 事件 40
5.9.4 计时器控件应用举例(举一个红绿灯) 40
5.10 对话框（Dialog Box） 42
5.10.1 预定义对话框 42
5.10.2自定义对话框 47
5.10.3 通用对话框（Common Dialog） 47
5.11进度条（ProgressBar）控件 59
5.12 常用系统对象 61
5.12.1 Clipboard（剪贴板）对象 61
5.12.2 Clipboard常用的方法 61
5.13焦点与Tab次序 62
5.13.1设置焦点 63

5.13.2设置Tab顺序 64
5.14控件数组 65

91

第五章 VB常用控件
[学习目标]
　　1.掌握：标签、文本框、命令按钮、图片框、框架、单选钮和复选框的基本用法；
　　2.理解：组合框、滚动条、记时器的基本用法；
　 3.掌握：两个交互性函数的使用方法；
4.掌握：剪贴板的用法；
5.理解：焦点概念及焦点的设置方法。
[学习要点]
控件概念及其属性、方法、事件的应用；两个交互性函数的使用方法；剪贴板的用法及焦点的设置方法。

在窗体上用于输入、输出信息的图形或文字符号称为控件。控件是构成用户界面的基本元素，为了方便用户开发应用程序，VB提供了三类控件，第一类是标准控件(或称内部控件)， 是windows本身的资源，如工具箱中的标准控件（共20个），不能添加和删除；第二类是ActiveX控件（外部控件），ActiveX控件是一个提供特定功能的二进制对象。程序开发人员可以把ActiveX控件添加到自己编写的程序中。ActiveX控件是扩展名为.Ocx的控件；第三类是可插入控件，可插入对象也是一种ActiveX控件，只是插入的对象本身就是一个应用程序。由于可插入对象也能够添加到工具箱内，因此可插入对象使用与使用工具箱中普通控件一样。
几乎所有用VB编写的应用程序都要用到窗体上的控件。控件是包含在窗体对象中的对象。命令按钮、列表框以及滚动栏都是控件。每种类型的控件都有自己的一组属性、方法和事件，用于相应的特定目的。
VB中的窗体和每一个控件都有很多属性，但窗体和大多数标准控件都具有如下基本属性，见下表：
Name (名称)
Name（名称）属性指所创建对象的名称（建议窗体用汉字命名，控件一般使用系统默认名）。
Caption
Caption属性用于设置控件上显示的文字内容。
Height、Width、
Top、Left
这四个属性用于设置控件的高度、控件的宽度、控件离屏幕顶部的距离、控件离屏幕左边的距离。
Enabled
Enabled属性用于设置对象的可操作性（其值为：True、False）。
Visible
Visible属性用于设置对象的可见性（其值为：True、False）。
Font
Font属性用于设置对象的字体。
ForeColor
ForeColor属性用于设置对象的前景颜色（字体颜色）。
BackColor
BackColor属性用于设置对象的背景颜色。
BorderStyle
Border Style属性用于设置对象的边框样式（0：无，1：单边）。
Alignment
Alignment属性用于设置对象的对齐方式（0：左对齐，1：右对齐，2：居中）
AutoSize
当对象的AutoSize属性为True时：自动调整大小当AutoSize属性为False时：不可调，若正文太长则自动裁掉。
WordWarp
当对象的Word Warp属性为True时：垂直方向显示文本。
TabIndex
TabIndex属性用于决定按下Tab键时，焦点在各个控件中移动的顺序。
ToolTipText
设置鼠标暂停在控件上显示的提示。可以通过属性窗口，也可以通过程序设置，例如：Label1.ToolTipText = "提示！"
5.1文本控件
与文本控件有关的标准控件有两个，即标签控件和文本框控件。标签和文本框都是用来在程序中显示文本信息的控件。但它们在显示文本时的功能存在区别。在标签中只能显示字符文本，并且显示的文本不能被用户进行编辑；而文本框不但可以显示文本，并且允许用户对显示的文本进行各种编辑操作，所以，用户也可以利用文本框进行字符信息的输入。
5.1.1标签（Label）控件
　 标签（Label）控件是VB中输出文本信息的常用工具，目前几乎取代了Print方法。主要用来在固定位置显示文本，且仅用于显示文本。它所显示的内容只能用Caption属性来设置或修改，不能直接编辑。标签常用来标注自身没有Caption属性的控件，如用标签为文本框、列表框和组合框等控件附加描述性信息。标签的默认名称（Name）和标题（Caption）都为LabelX（X为编号，从1，2，…依次顺延）。

1. 常用属性
标签的部分属性，如名称、Caption、BorderStyle、Enabled、ForeColor 、Font、 Height、Visible 、Width、Top与 Left等属性，与窗体及其他控件属性相同。另外，还可以使用如下属性：
1） Alignment 属性
该属性用来确定标签中文本对齐方式。设计时可以通过属性窗口设置，共有三个属性值。属性值的描述见下表：
常数
设置值
描述
VbLeftJustify
0
（缺省值）文本左对齐。
VbRightJustify
1
文本右对齐
VbCenter
2
文本居中
该属性的设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.Alignment [= 常数/设置值]
2） AutoSize 属性
该属性用来设置标签是否能够根据标题的内容自动调整大小。设计时可以通过属性窗口设置，共有两个属性值，缺省值为False。当设置值为True时，标签可根据其中标题的内容自动调整大小，即把所有的文本都显示出来；设置值为False时，不论标题内容有多少，标签保持设计时定义的大小，超出的部分不显示。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.AutoSize = [False/True]
3） BackStyle 属性
该属性用来设置Label 控件或 Shape 控件的背景是透明的还是非透明的。设计时可以通过属性窗口设置，共有两个属性值0、1，缺省值为1。当设置值为1时，Label 控件的背景是非透明，用控件的 BackColor 属性设置值填充该控件，并隐藏该控件后面的所有颜色和图片。若设置值为0时，Label 控件的背景是透明的，控件后的背景色和任何图片都是可见的。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.BackStyle = [1/0]
4） WordWrap属性
该属性用来设置标签是否可以在垂直方向上变化大小以适应标题内容的大小。设计时可以通过属性窗口设置，共有两个属性值False和True，缺省值为False。
当设置值为True时，则标签可以在垂直方向上变化，但AutoSize的值必须也为True，否则标签不能在垂直方向上变化。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象. WordWrap [=False/True]
注意：若要标签在水平方向上变化大小以适应标题内容的大小，AutoSize的值为True，WordWrap 的值为False。
2. 常用事件
1）Change事件：当标签的内容更改时触发Change事件。
例如：在程序运行中用程序代码更改标签内容时触发Change事件。
Private Sub Command1_Click() ' 单击命令按钮改变标签默认属性值
Label1.Caption = "ok" ' 程序代码
End Sub

Private Sub Label1_Change()
Print "利用程序代码引发Label1的 Change事件"
End Sub
2）Click 事件：单击事件 ，点击标签触发该事件。
3）Dbclick事件：双击事件 ，双击标签时触发该事件。
3. 其它用法　
　　标签除了直接在设计时设置之外，也常在运行时使用程序代码来显示时间和日期。Time$是一个与时间有关的函数，由于它的返回值是字符串，Date$是一个与日期有关的函数，由于它的返回值是字符串，因此可以把它们赋值给标签的标题，这样就可以用标签来显示时间和日期。例如：利用标签显示时间。
Label1.caption=Time$
　　当要在标签中同时显示2行以上的字符串，可以通过程序代码实现，在字符串之间加上chr$(13)+ chr$(10)控制码（分别表示回车和换行字符）。
例如：利用标签显示时间和日期。
　Label1.Caption = Time$ & Chr$(13) + Chr$(10) & Date$
5.1.2 文本框（TextBox） 控件
1. 常用属性
文本框（TextBox）是一个文本编辑区，用户可在文本区输入、编辑、修改文本，也可以显示文本。文本框的默认名称（Name）和Text属性缺省值为TextX（X为编号，从1，2，…依次顺延）。文本框的部分属性，如名称、BorderStyle、Enabled、Forecolor 、Font、 Height、Visible 、Width、Top与 Left等属性与窗体及其他控件的属性相同。另外，还可以使用如下属性：max
1） Locked 属性
该属性用于设置文本框是否可编辑。设计时可以通过属性窗口设置，共有两个属性值，缺省值为False，表示可以编辑文本框中的文本；当属性设置值为True，表示不能编辑文本框中的文本，但可以在运行时，通过程序代码改变文本框中的内容。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象. Locked [=False/True]
2） Maxlength 属性
该属性用于设置文本中输入字符的长度。设计时可以通过属性窗口设置，缺省值为“0”。指出对于用户系统上单行 TextBox 控件来说，最大值不能超过被内存强制建立的值，并且对于多行 TextBox 控件而言，最大值大约为 32K。任何大于 0 的数表示字符数的最大值。
该属性的设置也可以在程序运行时通过代码进行设置，语句格式为：
对象. Maxlength [=数值]
注意：VB中所有的字符长度均为“双字节”。
3） Multiline 属性
该属性用于设置TextBox中的文本能否换行。设计时可以通过属性窗口设置，共有两个属性值，缺省值为False。若其属性值为False，则 TextBox中的文本不能换行；若其属性值为True ， ScrollBars设置为 None (0)，则无滚动条。
注意：Multiline和Scrollbars属性只能在设计时设置，不能在运行时通过程序代码设置。
4） Text 属性
该属性用于显示文本框中的信息。设计时可以通过属性窗口设置，缺省值为Text1。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.Text [=字符串]
注意：若在文本框中进行多行输入，要把MultiLine 属性设置为 True。换行输入，按Ctrl+回车键；结束输入，则按回车键。见图5-1所示。另外，MultiLine 属性设置为False， Textbox 控件的 Text 设置值最多可以有 2048 个字符，反之为32K。
图5-1
5） Scrollbars
该属性用于设置TextBox是否具有滚动条，并设置滚动条的样式。只能在设计时通过属性窗口设置，共有四个属性值，属性值的描述见下表：
常数
设置值
描述
VbSBNone
0
（缺省值）无滚动条
VbHorizontal
1
水平滚动条
VbVertical
2
垂直滚动条
VbBoth
3
水平、垂直两种滚动条
注意：设置值为1、2或3有效的前提是MultiLine属性必须设置为True；滚动条只在对象的内容超过对象的边框时才被显示在对象上（可用）。
6） PasswordChar 属性
该属性用于设置用何种显示字符掩饰用户输入的字符（常用于密码口令的输入）。设计时可以通过属性窗口设置，将 PasswordChar 设置为长度为 0 的字符串 (" ") （缺省值），将显示实际的文本。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.PasswordChar [=字符串]
例如：每次单击窗体，文本将在星号 (*) 密码和普通文本之间转换。
Private Sub Form_Click()
If Text1.PasswordChar = "" Then
Text1.PasswordChar = "*"
Else
Text1.PasswordChar = ""
End If
End Sub
注意：能够将任意字符串赋予此属性，但只有第一个字符是有效的，其余的字符将被忽略；另外，如果 MultiLine 属性被设为True，那么设置PasswordChar属性将不起作用。
7） TabStop 属性
该属性用于设置文本框是否能够获得焦点。设计时可以通过属性窗口设置，缺省值为True。若该属性值为True，表示使用Tab键能将焦点移动到该对象；若该属性值为False，表示当用户按下 Tab 键时，将跨越该对象，虽然该对象仍然在实际的 Tab 键顺序中保持其位置，按照 TabIndex 属性的决定。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.TabStop [=True/False]
8） TabIndex 属性
该属性用于返回或设置父窗体中大部分对象的 Tab 键次序。设计时可以通过属性窗口设置，缺省情况下，在窗体上画控件时 VB 会分配一个 Tab 键顺序，TabIndex 属性值 “Index”是从0 到 (n-1) 的整数。
该属性设置也可以在程序运行时通过代码进行设置，语句格式为：
对象.TabIndex [= index]
说明：
缺省情况下， Menu、Timer、Data、Image、Line 和 Shape 控件不包括在 Tab 键顺序中。运行时，不可见或无效的控件以及不能接收焦点的控件（Frame 和 Label 控件）仍保持在 Tab 键顺序中，但在切换时要跳过这些控件。
每个新控件都放在 Tab 键顺序的最后。如果改变控件的 TabIndex 属性值来调整缺省 tab 键顺序，VB会自动对其它控件的 TabIndex 属性重新编号，以反映出插入和删除操作。可以在设计时用属性窗口或在运行时用代码来作改变。
9） SelStart 属性
SelStart是运行时属性，用于返回或设置焦点（光标）在文本框中文本的位置（文本的起始位置为0）。该属性在设计时不可用。语句格式为：
对象.SelStart [=数值表达式]
10）SelLength属性
SelLength是运行时属性，用于返回或设置文本框中选择的字符数。该属性在设计时不可用。语句格式为：
对象.SelLength [=数值表达式]
11）SelText属性
SelText是运行时属性，用于返回或设置文本框中所选择文本的字符串。如果没有字符被选中，则为零长度字符串 ("")。该属性在设计时不可用。语句格式为：
对象.SelText [=字符串表达式]
SelStart、SelLength、SelText这几个运行时设置的属性，常用在文本编辑中设置插入点及范围、选定字符串、清除文本等。例如：在Text1文本框中有长度不为零的字符串，利用这几个属性可以在Text1文本框中进行如下设置：
① 设置插入点
Text1.SelStart = 0 '插入点放在字符串起始处
Text1.SelStart = 3 '插入点放在字符串第3个字符之后
Text1.SelStart = Len(Text1.Text) '获取字符串长度并将插入点放在字符串结尾处
② 选中文本框TextBox内文字
Text1.SelLength = Len(Text1.Text) ' 选中整个字符串并获取字符串长度
Print Text1.SelLength
③ 将选中文本赋给变量
Bl= Text1.SelText '将选中文本赋给变量Bl
④ 将选中文本用"新字符串"替代
Text1.SelText = "新字符串"
如果"新字符串"是空字符串，则""空字符串替换选中的文本，并且使插入点放到在新插入文本尾之后。如果没有被选定的文本，则该“新字符串”就粘贴到文本框中的插入点处。
例如：观察对Text1、Text2的操作。要求：
1. 选中Text1中所有文本或Text1中部分文本，则清空被选中的部分文本。
2. 选中Text1中的文本，在选中Text2中的文本，则被选中的Text1文本替换。
Dim x As String '注意变量X声明位置

Private Sub Text1_Click()
x = Text1.SelText
Text1.SelText = ""
End Sub

Private Sub Text2_Click()
Text2.SelText = x
End Sub
例如：运行下面程序体会“SelLength、SelStart、SelText 属性”的用法。
Dim x As String

Private Sub Form_Load()
Txtys.Text = "体会SelLength,SelStart,SelText 属性的用法。"
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Txtys_Click() '选定
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Txtys.Text = "体会SelLength、SelStart、SelText 属性的用法。"
TxtStart.Text = Txtys.SelStart
TxtLength.Text = Txtys.SelLength
End Sub

Private Sub Command1_Click() '复制
'x = Txtys.SelText
Text1.SelText = Txtys.SelText
Command2.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Command2_Click() '剪切
Command3.Enabled = True
Command1.Enabled = False
x = Txtys.SelText
Txtys.SelText = ""
End Sub

Private Sub Command3_Click() '粘贴
Text1.SelText = x
Command1.Enabled = False
Command2.Enabled = False
End Sub
图5-2
2. 常用事件
文本框支持Click、 Dbclick等鼠标事件，同时也支持如下事件：
1) Change事件：当用户向文本框中输入新的文本，或在程序运行中对文本框的Text属性进行更改时，都将触发其Change事件。
2) GotFocus事件：对象获得焦点事件。当运行程序时，利用Tab键或用鼠标单击对象，或用SetFocus方法使焦点（光标）定位在对象上时，都会触发该事件。
例如：当文本框获得焦点后，自动选择文本框内全部内容。
Private Sub Form_Load()
Show
Text1.SetFocus
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
3) LostFocus事件：对象失去焦点事件。当按下Tab键或用鼠标单击窗体上其他对象而使该文本框失去焦点时触发该事件。
例如：当文本框失去焦点后，把文本框中内容赋给标签。
Private Sub Text1_LostFocus()
Label1.Caption = Text1.Text
End Sub
例如：一个文本框（Text1）初始状态下内容为空；当获得焦点时，文本框内容显示"文本框获得焦点"字样；当单击命令按钮（Command1），文本框失去焦点，则显示"文本框失去焦点"字样，文本框回到初始状态；具体程序如下：
Private Sub Command1_Click()
Text1.Text = ""
Text1_LostFocus
End Sub

Private Sub Text1_GotFocus()
Text1.Text = "文本框获得焦点"
End Sub

Private Sub Text1_LostFocus()
Text1.Text = "文本框失去焦点"
End Sub

4) KeyPress事件：当焦点在当前文本框中，当用户按下并释放键盘上某键时引发的KeyPress事件，在该事件发生的同时，返回用户输入字符的ASCII码值（十进制）。
例如：将输入文本框内的字符及相对应的ASCII码打印到窗题体上。程序如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim zf As String
zf = Chr(KeyAscii) 'KeyAscii为按键的 Ascii值（ALT 键除外）
Print zf, KeyAscii
End Sub
注：KeyPress事件中Ascii码与常用键盘的字母及符号对应为：8对应BackSpace、45对应减号 - 、46对应小数点 . 、48-57对应数字 0-9。
例如：限制输入到文本框中的数据，如文本框接收的数据只能为“数字”、英文字母、退格键和下划线，并退出过程；若输入的数据不是规定数据后，立即给出提示信息。程序如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then ' 接收规定字符A -- Z
Exit Sub '接收规定字符后立即退出过程，并不执行KeyAscii0语句
等待下一个KeyPress事件发生
End If
If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
' 接收规定字符a – z
Exit Sub
End If
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
Exit Sub
End If
If KeyAscii = 95 Then ' ASCII 字符集 KeyAscii = Asc("_")
Exit Sub
End If
If KeyAscii = 8 Then '退格键 KeyAscii = vbKeyBack（）
Exit Sub Keycode 常数
End If
Beep
MsgBox "你输入的数据不是规定数据，请重新输入"
KeyAscii = 0 '作用阻止“不允许接收的字符”在文本框内回显
End Sub
（*）例如：限制输入到文本框中的数据，如数据只能为“数字”，并给出用户一个提示，说明是正确的反之，若输入的数据不是“数字”，则给出错误信息。利用文本框的KeyPress事件。每输入一个字符（即发生KeyPress事件）利用KeyAscii进行检测，如果不是数值型，立即给出提示，并要求用户重新输入。程序如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 And KeyAscii <> 8 Then
MsgBox "你输入的一个数据不是数字，请重新输入"
'KeyAscii = 0 'KeyAscii为一空值
'Text1.Text = Chr(KeyAscii) '转换成字符串是一空串
SendKeys "{Home}+{End}"
SendKeys "{BACKSPACE}"
'Text1.SetFocus
End If
End Sub
（*）上面程序在解决文本框中接收数据时有这样一个问题，即当文本框接收不是数字时，前面已经接收的数字也一同被清空，下面提供的程序可以解决这个问题。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 And KeyAscii <> 8 Then
Text1.Text = Text1.Text + Chr(KeyAscii)
MsgBox "你输入的数据 " & Chr(KeyAscii) & " 不是数字，请重新输入"
SendKeys "{BACKSPACE}"
SendKeys "{End}"
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

3. 常用方法
SetFocus方法：用于将焦点 (光标)移到指定的文本框中（该方法主要用于程序中）。语句格式为：
对象.SetFocus
例如：执行下面程序代码，将焦点 (光标)移到Text1上。
Text1.SetFocus
例如：通过下面的例子来说明标签与文本框的用法。要求设计一窗体如图5-2所示，用于显示输入的姓名、性别、年龄。点击输入按钮进行文本框内容的清空，点击显示按钮则在最下面的标签4中显示输入的内容，点击退出按钮退出程序。对象属性设置见下表：
对 象
名称（Name）
标题（Caption）
文本（Text）
窗体
Form1
VB测试系统

文本框1
Text1
无
空白
文本框2
Text2
无
空白
文本框3
Text2
无
空白
标签1
Label1
姓名
无
标签2
Label2
性别
无
标签3
Label3
年龄
无
标签4
Label4
无
空白
命令按钮1
Command1
输入
无
命令按钮2
Command2
显示
无
命令按钮3
Command3
结束
无
图5-2
Private Sub Form_Load()
Label4.Caption = ""
End Sub

Private Sub Command1_Click() '输入
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Label4.Caption = " "
End Sub

Private Sub Command2_Click() '显示输入内容
Label4.Caption =Label1.Caption & Text1.Text & Label2.Caption & Text2.Text & Label3.Caption & Text3.Text
End Sub

Private Sub Command3_Click() '结束
End

End Sub
练习题一：编写程序把“选择文本框1的内容”赋给变量A，再把“选择文本框2的内容”赋给变量B，最后单击“显示”命令按钮，将A、B变量中的内容显示在Label3内。界面如下图：

练习题二：编写程序只允许文本框接收英文大写字母和退格键。
5.2 命令按钮（CommandButton）
　 命令按钮是VB应用程序中最常用的控件，它的默认名称（Name）和标题（Caption）都为CommandX（X为编号，从1，2，…依次顺延）。在应用程序中，命令按钮主要用于运行某一个事件过程。在运行时可以用鼠标、键盘按下述方法选择操作命令按钮：
1. 用鼠标单击按钮；
2. 按 TAB 键，将焦点转移到按钮上，然后按 SPACEBAR 或 ENTER 键选定按钮；
3. 按命令按钮的快捷键（ALT+ 带有下划线的字母）；
4. 若命令按钮是窗体的缺省命令按钮，直接按 ENTER 键选定按钮；
5. 若命令按钮是窗体的缺省取消按钮，则可按 ESC 键选定按钮；
6. 单击它时将调用已写入 Click 事件过程中的命令。
5.2.1常用属性
命令按钮的部分属性，如名称、Enabled、Font、 Height、Visible 、Width、Top与 Left等属性，与窗体及其他控件属性基本相同。另外，还可以使用如下属性：
1. Caption属性
用于使用文字来标识命令按钮的功能，最多255个字符。该属性也可为命令按钮创建快捷键，如果在所输入的某字母前加一个“&”连字符，则该字母就会成为命令按钮的快捷键。使用时按下+<该字母>健，就等于按下该命令按钮。例如：要为标题 "Print" 创建访问键，应在字母 "P" 前添加“&”连字符，于是得到 "&Print"。运行时，字母 "P" 将带下划线，同时按 ALT+P 键就可选定命令按钮。
2. Default属性
用于设置第一个可执行的命令按钮，其缺省属性值为False。若窗体中有多个可以获得焦点的控件及多个命令按钮时，将其中一个命令按钮的Default设置为True，程序运行后，不管焦点在其他哪类控件（如文本框）上，按Enter键，就相当于单击该命令按钮（除非用户将焦点移到同一窗体的另外一个命令按钮上。在这种情况下，按 ENTER 键选择有焦点的命令按钮，而不是缺省命令按钮）。该属性可以通过属性窗口设置，也可以在程序运行时通过代码进行设置，语句格式为：
对象.Default= True / False
3. Cancel属性
该属性用于设置默认的第一个可执行的取消命令按钮，其缺省属性值为False。当窗体中有多个命令按钮时，只能将其中一个命令按钮的Cancel属性值设置为True，程序运行后，不管焦点在其他哪类控件（如文本框）上，按Esc键，就相当于单击了该按钮。该属性设计时可以通过属性窗口设置，也可以在程序运行时通过代码进行设置，语句格式为：
对象.Cancel= True / False
4. Value属性
该属性在设计时可以通过属性窗口设置。Value值若为True表示该按钮被按下，并触发该命令按钮的Click事件。Value属性缺省值为False，表示未选择按钮。该属性也可以在程序运行时通过代码进行设置，来触发命令按钮的 Click 事件，语句格式为：
对象.Value=True/False
例如：
Private Sub Command1_Click()
Command2.Value = True '在代码中触发Command2的 Click 事件
End Sub

Private Sub Command2_Click()
Print "单击Command1触发Command2的Click事件"
End Sub
5. Style属性
该属性用来设置命令按钮外观。只能在设计时通过属性窗口设置，Style属性共有二个属性值0、1，缺省值为0。属性值的含义见下表：
0：（Standard）标准
命令按钮上不能显示图形和背景颜色。
1：（Graphical）图形
命令按钮上可显示图形，还可以改变按钮颜色。
当Style属性设置为图形后，可以用 Picture、DownPicture 和 DisabledPicture 属性或LoadPicture()函数加载图片增强视觉效果。比如要向命令按钮添加图标或位图，或者在单击、禁止控件时显示不同的图象。
6. DownPicture属性
该属性在设计时可以通过属性窗口设置返回或设置一个对图片的引用。该图片在控件被单击并处于压下状态时显示在控件中。该属性也可以在程序运行时通过代码进行设置，语句格式为：
对象.DownPicture [= 图片]
例如：
7. Private Sub Form_Load() '先把图片加载到DownPicture属性中
Command1.DownPicture = Lo