第04章 常用标准控件

对象名.ScrollBars={0 | 1 | 2 | 3}
属性值 0 1 2 3
说明 （默认值）表示没有滚动条 表示只有水平滚动条 表示只有垂直滚动条 表示既有水平滚动条又有垂直滚动条
15
4.3 文本框(TextBox)
文本框控件的属性
SelLength、SelStart和SelText：控制文本框中的插入点和 文本选定操作，这些属性仅能在运行时使用。语法格式：
2
4.1 概述
工具箱控件图解
指示器 标签 框架
复选框
组合框
水平滚动条
时钟
目录列表框
形状
图象框
3
OLE
图片框 文本框 命令按钮 单选按钮 列表框 垂直滚动条 驱动器列表 文件列表 LINE Data
4.1 概述
控件是VB中预先定义好了的、程序中能够直接使用的对象， 每个控件都有自己的属性、事件和方法。 VB有三种控件：
6
4.2 标签(Label)
标签控件主要用于标注没有Caption属性的控件的用途，或 向用户显示运行结果的。标签在运行时不具有交互性 ，不 能响应用户事件。 标签控件的属性
Alignment：设置标签中文本的对齐方式。语法格式：
对象名.Alignment={0 | 1 | 2}
属性值
0 1 2
7
说明
(默认值)从左边开始显示标题，即左对齐 从右边开始显示标题，即右对齐 从中间开始显示标题，即居中对齐
4.2 标签(Label)
标签控件的属性
AutoSize：设置标签是否能够自动调整大小以显示所有的 内容。 语法格式：
对象名.AutoSize={ True | False}
其中：
属性值为False(默认值)表示显示控件的原始大小，属性值为 True表示根据控件中的内容自动调整控件大小。
19
4.3 文本框(TextBox)
文本框控件的方法
SetFocus：可以设置焦点，其获得焦点的显示效果是焦点 （光标）在文本框中闪动。语法格式：
对象名. SetFocus
让指定的对象获得焦点。设置焦点，本方法可使指定的文本 框(或其他有聚焦能力的对象)成为焦点，也就是当前文本框， 成为焦点的文本框中具有闪动的光标.
20
4.3 文本框控件 (TextBox)
• 例 设计一个程序可检查密码是否正确，密 码为"12345"
设置文本框的属性 PasswordChar 为 "*"
21
Private Sub Command1_Click() pass= Text1.Text If pass = "12345" Then Label2.Caption = "密码正确！" Else Label2.Caption = "密码错，重新输入！" End If
Picture：设置命令按钮上显示的图形。语法格式：
对象名.Picture=LoadPicture("图形文件名")
24
4.4 命令按钮 (CommandButton)
命令按钮控件的属性ຫໍສະໝຸດ BaiduStyle：设置命令按钮的类型。语法格式：
对象名.Style={0 | 1}
属性值
0 1
说明
(默认值)表示为标准按钮，只显示Caption属性设置的文本 表示为图形风格，只显示由Picture属性指定的图片
其中：
属性值为0(默认值)表示无边框；属性值为1表示单线边框。
Caption：设置标签的文本内容。 语法格式：
对象名.Caption [=字符串]
9
4.2 标签(Label)
标签控件的事件和方法 标签具有Click(单击)，DbClick(双击)等事件，但一般不需 要编写代码。
标签的方法中常用的只有Move，其基本语法如下：
End Sub
17
4.3 文本框(TextBox)
文本框控件的事件
KeyPress：当文本框被选中时，按任意键该文本框的 KeyPress事件被触发，该事件对应的代码结构如下：
Private Sub Text_KeyPress(KeyAscii As Integer) …
End Sub
其中：
KeyAscii是按键事件的参数，反映了按键对应键名的ASCII码 值，输入数据时，通过KeyPress事件过程来识别输入字符是 否正确，达到判断检查的功能。 一般经常用以上两个事件过程中设置代码，来实现对输入文 本框中的内容进行检查、验证和确认
对象名. Move left,top,width,height 其中：
left，top，width，height分别表示移动目的位置的坐标和 大小。left为必要参数，其他三个为可选参数。
10
例4.2
• 设计一个界面说明标签的基本属性的使用
• 界面设计
属性设置
运行结果
对象名 Label1 Label2
标准控件：存在于工具栏中，不可删除。被封装在VB的 .exe 文件中，不可以删除。 ActiveX控件：由第三方制造的，以独立文件存在，扩展名 为.ocx,使用前必须添加到工具栏中。 可插入的对象：如Execl, Word等能添加到工具栏中，所以也 是控件。
4
4.1 概述
向工具箱中添加控件的方法
如果想使用标准工具箱中没有的控件，则必须将该控件添加
26
• 1、mousedown,当用户在这个元素上按下鼠 标键的时候
• 2、mouseup，当用户在这个元素上松开鼠 标键的时候
• 3、click，当一个mousedown和一个 mouseup都在这个元素上被检测到的时候发 生
注意： Mousedown和mouseup只能通过单击鼠标触发，而
到工具箱中。 添加过程如下：
5
4.1 概述
向窗体上添加控件，有三种方法： 方法一： 单击工具箱中的某控件图标，该图标反相显示； 移动鼠标至窗体上，光标变为"+"，按下鼠标左键不放，向右下 方拖动鼠标； 当控件为合适大小时松开鼠标，一个控件就添加好了。 方法二： 双击工具箱中的某控件图标，在窗体中就添加了该控件，与第 一种方法不同的是，所添加控件大小、位置是固定的。 方法三： 按如下步骤操可以添加多个某种类型的控件： 按住Ctrl键，不要松开； 单击工具箱中要画的控件的图标，然后松开Ctrl键； 按第一种方法在窗体上画出控件(可以画一个或多个)； 画完控件后，单击工具箱中的指针图标(或其他图标)。
End Sub Private Sub Command1_Click()
pass= Text1.Text If pass = "12345" Then Label2.Caption = "密码正确！"
Else Label2.Caption = "密码错，重新输入！"
End If En22 d Sub
23
对象名.Cancel={ True | False}
4.4 命令按钮 (CommandButton)
命令按钮控件的属性 Enabled：设置命令按钮是否能被按下。语法格式：
对象名.Enabled={True | False}
其中:
属性值为True（默认值）表示该按钮能被响应；属性值为 False表示该按钮不能被响应，以灰色显示。
ToolTipText：设置当鼠标在命令按钮上暂停时显示的文本。
对象名. ToolTipText=字符串
25
4.4 命令按钮 (CommandButton)
命令按钮控件的事件 Click、mousedown、mouseup：当单击鼠标时就会触发该 三个事件。他们触发的顺序为Click、mousedown、 Click 最后才是 mouseup 事件。
18
4.3 文本框(TextBox)
例：判断文本框中输入的内容是否为数字 按键盘上某键，如果输入的值不是0～9之间的数字，则在窗 体上显示相关的提示信息，否则没有任何提示。
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then Print "你输入的不是数字" End If End Sub
MaxLength：设置文本框中输入的字符串最大长度。 其中：
属性值为0（默认值）表示文本框中字符串的长度为任意值， 只受操作系统内存的限制；属性值为大于0的整数，该整数表 示能够输入的最大字符数目。
13
4.3 文本框(TextBox)
文本框控件的属性
MultiLine：设置文本框是否可以输入多行文本。 语法格式：
属性名 Caption Caption AutoSize BackStyle BorderStyle
属性值 默认值 学习VB True 0(透明) 1(单线边框)
11
4.3 文本框(TextBox)
文本框是一个文本编辑区域，主要用于接收用户的输入、 输出、修改等信息，可以输入单行文本，也可以输入多 行文本，在程序运行过程中具有良好的交互性。 文本框控件的属性
对象名. SelLength =数值 对象名. SelStart =数值 对象名. SelText =字符串
其中：
SelLength设置选定文本的长度，只能在代码中使用，若值为 0，表示未选中任何内容。
SelStart设置选定文本的起始点，只能在代码中使用，第一个 字符位置是0。
SelText设置当前选定文本的内容，只能在代码
第4章 常用标准控件
本章的学习要点
• 标签、文本框的常用属性、事件、方法 • 命令按钮的常用属性、事件和方法 • 图片框、图像框的属性、事件、方法；图形文件
的载入 • 框架的属性和功能 • 复选框、单选按纽的常用属性、事件、方法 • 列表框、组合框的常用属性、事件、方法 • 滚动条、计时器的常用属性、事件、方法
对象名.MultiLine ={ True | False }
其中：
属性值为False（默认值）表示只能单行显示，不能显示多行； 属性值设置为True，表示可以多行显示文本，若文本行数超 过文本框宽度，系统会自动为文本框添加滚动条。
PasswordChar：设置是否在文本框中显示用户所输入的字 符串。语法格式为：
BackStyle：设置标签的背景样式。语法格式：
对象名.BackStyle= {0 | 1}
其中：
属性值为1(默认值)表示背景是不透明的；属性值为0表示背 景是透明的。
8
4.2 标签(Label)
标签控件的属性
BorderStyle：设置标签的边框样式。语法格式：
对象名.BorderStyle={0 | 1}
对象名. PasswordChar= "*"
其中： 该属注性意如：被该设属置性为某有一效字的符前，提如是"*M"，u则lti无Li论ne在属T性ext必属须性值中
设输置入为什F么als，e。在文本框中都只显示"*"。
14
4.3 文本框(TextBox)
文本框控件的属性
ScrollBars：设置文本框滚动条的模式。语法格式：
对象名.Default={True | False}
其中，属性值为False（默认值）表示该按钮不响应Default 事件；属性值为True表示该命令响应Default事件，即当用 户按Enter键时，与单击该按钮效果相同。
Cancel：设置命令按钮是否为Cancel按钮，即当用户按Esc 键时，是否触发它的Click事件。语法格式：
中使用 Text1.SelStart = 1
Text1.SelLength = 3
16
Text2.Text = Text1.SelText
4.3 文本框(TextBox)
文本框控件的事件
Change：当用户改变文本框的内容时，该文本框的Change 事件被触发，该事件对应的代码结构如下：
Private Sub Text1_Change() …
4.4 命令按钮 (CommandButton)
命令按钮主要用来执行某一功能，通常在命令按钮的 Click事件中编写一段程序，当用户用鼠标单击这个按钮 时，就会启动这段程序，执行某一特定的功能。
命令按钮控件的属性
Caption：设置命令按钮的标题。
Default：设置命令按钮是否为默认按钮，即当运行程序时， 用户按回车键时，就激活它。语法格式：
Name：设置文本框的名称。 Text：设置文本框中显示的文本内容。语法格式：
对象名.Text=字符串
12
4.3 文本框(TextBox)
文本框控件的属性
Locked：设置文本框是否可以被编辑。语法格式：
对象名. Locked ={ True | False}
其中：
属性值为False（默认值）表示文本内容可以编辑；属性值为 True表示文本内容只能读但不能修改。