第4章 常用标准控件

常用方法
Move SetFocus 用来移动命令按钮控件 将焦点移到命令按钮控件
常用事件
最常用的事件为Click事件 单击命令按钮时，将触发按钮的Click事件，并执 行已写入Click事件过程中的代码。
4.3 文本控件
一、 标签（Label）控件 1. 作用 用来显示在窗体上用户不能直接改变的文本。该 控件通常用来标识其它的控件。
If Check3.Value = 1 Then sTemp = sTemp & "," & Check3.Caption
MsgBox "您选择了：" & sTemp End Sub
1：标题靠右对齐
2：标题居中对齐
（3）BackStyle:该属性用于确定标签的背景是否透明。
0：透明
1：默认值，非透明
（4）AutoSize: 确定标签是否会随标题内容多少自动变化。
True: 能变化
False：不能变化（默认值）
（5）WordWrap：确定当AutoSize 属性设置为True时，
三、与焦点有关的事件
GotFocus、LostFocus 事件
只有可视的窗体或控件并且它们的Enabled和Visible属性均 为True时，才能接收焦点。
框架（Frame）、标签（Label）、菜单（Menu）、直线
控件不能接收焦点。 设置一个对象的焦点的方法：
（Line）、形状（Shape）、图像（Image）和计时器（Timer）
（特别注意：如果输入的是西文字符串，字符串中间要留有
空格才能换行）。
二、 文本框控件 功能：文本框（TextBox）是一个文本编辑区域，用 户可以在该区域输入、编辑、修改和显示正文内容， 即用户可以创建一个文本编辑器。 常用属性 名 称 说 明
Text Locked
设置或取得文本框中显示的文本 控件是否可编辑。默认False可编辑 设定文本框中正文的最大长度。
Alignment
Appearance 0：平面绘制单选按钮控件
1：默认值，以三维效果绘制单选按钮控件 设置单选按钮控件的外观样式
Style
0：默认值，其旁边有一个小圆圈的选择按钮 1：单选按钮控件显示为类似按钮的命令按钮
返回或设置单选按钮控件的状态
ValΒιβλιοθήκη Baidue
True：表示已经选择了该按钮 False：默认值，表示没有选择该按钮
ElseIf Option2.Value Then
sTemp = Option2.Caption Else
也可写成： Option1.value=True
sTemp = Option3.Caption
End If MsgBox "您选择的人民币面额是：" & sTemp
End Sub
Private Sub Command2_Click() Unload Me
Command1.Caption = "确定"
Command2.Caption = “退出 End Sub
3. 编写各个控件的事件代码。
Private Sub Command1_Click()
Dim sTemp As String If Option1.Value Then sTemp = Option1.Caption
1. 在运行时单击对象；
2. 运行时用快捷键选择对象；
3. 在程序代码中使用 SetFocus 方法设置焦点。
4.2 命令按钮控件
功能：命令按钮（CommandButton）通常用来在单
击时执行指定的操作。
常用属性
名 称 Caption 说 明 设置快捷键：在字母前加入“＆”，运行时该字 母带有下划线。( ALT+带下划线字母） 指示控件的显示类型和行为。 0：标准按钮，按钮上不能显示图形 1：图形按钮，按钮上显示由Picture属性指定的 图形和 BackColor 指定的颜色。
3. 如果想要在Tab键顺序中跳过某一控件，可将该控件的
TabStop属性设为False。
运行了Text1.TabIndex=0之后所产生的变化
原来的定位顺序 调整后的定位顺序 控件 Command1 0 1 Command2 Text1 Text2 1 2 3 2 0 3
注意：如果只有 3 个控件，那么它的顺序就是 0，1，2 。 如果用户故意将其中一个改为4，它并不等于4，会被调整 为2。如果设置值小于0，会发出错误信息.
要事件和方法的使用。
重点分析：各种控件的使用
第4章 常用标准控件
4.1 焦点与Tab顺序 4.2 命令按钮控件 4.3 文本控件 4.4 选择性控件 4.5 滚动条控件 4.6 计时器控件 4.7 图形控件
4.1 焦点与Tab顺序
一、什么是焦点
焦点也称输入控制权
（Focus），是对象接收鼠
标或键盘输入的能力。 假定有一个等待输入数据的 窗体，我们如何知道目前键 盘会向哪个控件输入数据呢？ 答案是：当前哪个控 件“取得了输入控制权（焦
End Sub
二、 复选框
功能：一组复选框（CheckBox）控件可以提供多个选项， 它们彼此独立工作，所以用户可以同时选择任意多个选项，实 现一种“不定项选择”的功能。选择某一选项后，该控件将显 示√，而清除此选项后，√消失。 注意： Value属性值 为2并不意味着用户 常用属性： 无法选择控件，用户 Value 返回或设置复选框控件的状态。 仍然可以通过鼠标单 击或 SetFocus 方法 0：默认值，没有选择该复选框 将焦点定位其上，若 1：表示已经选择了该复选框 要禁止用户选择，必 2：表示该复选框被禁止 须将Enabled属性设 为False。
Check1.Caption = "碳酸饮料" Check2.Caption = "茶"
Check3.Caption = "纯水"
Command1.Caption = "确定" Command2.Caption = "退出" End Sub
3. 编写各个控件的事件代码。
Private Sub Command1_Click() Dim sTemp As String If Check1.Value = 1 Then sTemp = Check1.Caption If Check2.Value=1 Then sTemp = sTemp & "," & Check2.Caption
Style
名 称
Picture Default
说
明
设定命令按钮上显示的图形。 设定默认按钮。 当Default为True时，按Enter键 相当于用鼠标单击该按钮（在一个窗体中只能有 一个按钮的Default属性设为True）。
设定该命令按钮是否为Cancel按钮。
Cancel 当Cancel属性值为True时，按Esc键相当于用鼠 标单击该按钮(在一个窗体中只能有一个按钮的 Cancel属性设为True)。
4.4 选择性控件
一、 单选按钮
一组单选按钮(OptionButton) 控件可以提供一组彼此相互排斥 的选项，任何时刻用户只能从中 选择一个选项，实现一种“单项
选择”的功能，被选中项目左侧
圆圈中会出现一黑点。
常用属性：
名称
说明
设置单选按钮控件中标题的对齐方式 0：默认值，文本左对齐，控件左对齐 1：文本左对齐，控件右对齐 设置单选按钮控件的绘制样式
标签上的文本是否可以自动换行。
True：自动换行 False：不换行（默认值）
说明：
若仅仅是希望在水平方向上改变标签的大小，只需将
AutoSize的属性值设为True，而 WordWrap 的属性值设为 False。 如果想让标签水平方向保持长度不变，标签上的文本自动 换行，应该同时使 WordWrap 和 AutoSize 的属性为True
SelStart
SelText
常用方法：
SetFocus：将焦点移到文本框控件。
常用事件：
Change：当文本框的内容改变时触发 Click： 当鼠标单击文本框控件时触发 DblClick：当鼠标双击文本框控件时触发 GotFocus：当文本框控件获得焦点时触发 LostFocus：当文本框控件失去焦点时触发
例：编写一程序，给出人民币10圆、50圆和100圆面值的选择并 返回选择结果。
1.建立用户界面与设置对象属性。 在窗体上建立一个标签、3个单选按钮和两个命令按钮。 2. 编写窗体的事件代码。
Private Sub Form_Load()
Me.Caption = "选择钱币面额" Label1.Caption=“请选择人民币面额:” Option1.Caption = "10圆" Option2.Caption = "50圆" Option3.Caption = "100圆" Option1.Value = True
常用方法
Move SetFocus 用来移动单选按钮控件 将焦点移到单选按钮控件
可以在代码中通过该 方法将Value属性设 置为True。
常用事件
Click GotFocus LostFocus 当鼠标单击单选按钮控件时触发 当单选按钮控件获得焦点时触发 当单选按钮失去焦点时触发
Click 事件是单选按钮控件最基本的事件。用户一般无 需为它编写Click事件过程，这是因为当用户单击此按 钮时，它会自动改变状态。
常用方法: Move SetFocus
常用事件:
用来移动复选框控件 将焦点移到复选框控件 Click
GotFocus LostFocus
当鼠标单击复选框控件时发生
当复选框控件获得焦点时发生 当复选框失去焦点时发生
Click事件是复选框控件最基本的事件。用户一般无需为复 选框编写Click事件过程，但其对Value属性值的改变遵循 以下规则： 单击未选中的复选框时，Value 属性值变为1； 单击已选中的复选框时，Value 属性值变为0； 单击变灰的复选框时，Value 属性值变为0。
第
4
章
主讲 李志辉
本章要求：
掌握常用标准控件文本框（TextBox）、标签（Label） 、 命令按钮（Command）、单选按钮(OptionButton)、复选框 (CheckBox)、 框架(Frame)、滚动条(ScrollBar)、列表框(Lis
tBox)、组合框（ComboBox)、时钟(Timer)等的常用属性、重
标签控件没有文本输入功能，它的文本为直接放 在窗体上的。
需要标记的内容可在属性窗口中通过标签的 Caption 属性来设置。
2.常用属性
（1）BorderStyle: 决定标签要不要加框。0：无框 1：有框
（2）Alignment：设置Caption属性中文本的对齐方式，共有
三种可选值：0：标题靠左对齐（默认值）
例:设计一程序，在窗体中列出各种饮料的选项让用户选择， 选择结束后返回选择结果。
1.建立用户界面与设置对象属性。
在窗体上创建一个标签、3个复选框和两个命令按钮。
2. 编写窗体的事件代码。
Private Sub Form_Load() Me.Caption = "挑选饮料"
Label1.Caption = “请选择您喜欢的饮料:"
MaxLength
0---可容纳任意多个输入字符，默认值； 正整数值---可容纳的最多字符数。
名
称
说
明
MultiLine
指示文本框能否接受和显示多行文本。(设计）
在文本框中显示在该属性中输入的字符。系统 接收的（Text属性）却是用户输入的文本。若 PasswordChar MultiLine属性为True，则该属性不起作用（在 VB 6.0的SP5、SP6版本中无此限制）。 设置文本框是否带有滚动条。当MultiLine属性 为True时，该属性才有效。 0：默认值，无滚动条 1：水平滚动条 ScrollBars 2：垂直滚动条 3：水平和垂直两种滚动条 (设计） SelLength 选定的文本长度。 （程序运行） 选定的正文的开始位置，第一个字符的位置是0。 （程序运行） 选定正文的内容（程序运行）
点）”。
二、设置定位顺序
定位顺序是指按Tab 键时，焦点在各个控件之间移动的顺序。
定位顺序记录在 TabIndex 属性中，编号从0开始。
设置对象的Tab顺序的方法：
1. 在默认的情况下，第一个建立的控件的TabIndex值为0， 第二个的TabIndex值为1，以此类推； 2. 改变一个控件的TabIndex属性 ，其它控件的TabIndex属 性将自动依次重新设置；