08VB中的常用控件

8.2 文本框(TextBox)控件

（1）Text属性
文本框控件名.Text = "欲显示的文本内容“

（2）Multiline属性 （3）ScrollBars属性

0-None：无滚动条 1-Horizontal：加水平滚动条 2-Vertical：加垂直滚动条 3-Both：同时加水平和垂直滚动条
8.4 命令按钮 (CommandButton)控件

（1）Caption属性 （2）Style属性

0-Standard：标准的（默认），按钮上只能显示文字 1-Graphical：图形的，按钮上文字、图形均可显示

（3）Picture属性 （4）ToolTipText属性 （5）Cancel（取消）属性 （6）Default（默认）属性
文本框的属性属性项说明名称alignment设置文本框对象的名称设置text文本的对齐方式0左对齐1右对齐2居中对齐设置是否使用立体显示效果13d设置是否使用立体显示效果13d设置背景色设置边框样式0无边框线1固定单线框设置该命令按钮对象在拖动过程中鼠标的图标设置拖动该对象的模式0manaul1automatictruefalse设置该对象是否对事件产生响应设为false时图标模糊设置字体设置前景色设置对象的高度appearanceappearancebackcolorborderstyledragicondragmodeenabledfontforecolorheight82文本框textbox控件设置对象数组中的一个成员编号设置控件对象距离窗体左边框的距离truefalse设置是否锁住文本框的text属性的内容maxlength设置最大长度0为默认值mouseiconmousepointer99时自定义一个鼠标的图标mousepointer设置光标在对象上时形状有15种选择99为自定义鼠标形状multilinefalsetrue设置是否可以输入多行文本passwordchar将text文本的内容全部显示为该属性设置的符号righttoleftfalsetrue文本显示的方向是否是自左向右scrollbars设置边框滚动条模式tabindex设置此对象在父窗口中的对象编号tabstoptruefale设置tab键是否起作用text文本框中包含的文本内容tooltiptext设置该对象的提示行top设置此对象距离窗体顶部的距离visibletruefalse设置此对象的可见性width设置对象的宽度indexleftlocked82文本框textbox控件?1text属性文本框控件名

（4）MaxLength属性
8.2 文本框(TextBox)控件

（5）Locked属性 （6）Passwordchar属性 （7）SelStart、SelLength、SelText属性

SelStart：选中的文本的开始位置，第一个字符的位 置是0，依此类推； SelLength：选中文本的长度； SelText：选中文本的内容。

8.5.1 复选（CheckBox）控件

1. CheckBox控件的标准用法
说 明
设置控件对象的名称 设置控件对象的标题 Style＝1时，返回/设置按钮无效时显示的图形 Style＝1时，返回/设置按钮按下状态时显示的图形 设置控件对象是否对事件产生响应，True为响应，False为不 响应 Style＝1时，返回/设置控件中要显示的图形 设置控件对象的外观，0-Standard；1-Graphical 设置控件对象是否被选中，0为不被选中，1为选中，2为灰 色且选中并仍可使用 设置控件对象是否可见，True为可见，False为不可见
8.2 文本框(TextBox)控件

3. 文本框的方法
对象.SetFocus
【例8-1】 编写一个VB应用程序， 要求输入合法的成绩值（0~100） 。当输入结束时（按Tab键），对 于输入正确的数据，显示OK信息 ；对输入的非法成绩值，则显示无 效成绩值信息、清除文本框中的内 容，并使焦点重新回到文本框。 (源文件)
(名称) Appearance BackColor Cancel Caption CausesValidatioTrue Default DisabledPicture(None) DownPicture DragIcon DragMode Enabled
8.4 命令按钮 (CommandButton)控件
8.2 文本框(TextBox)控件

2. 文本框的事件

（1）Change事件 （2）GotFocus事件 （3）LostFocus事件
Private Sub Text1_GotFocus() Text1.Text = "文本框获得焦点" End Sub Private Sub Text1_LostFocus() Text1.Text = "" End Sub Private Sub Text1_Change() Label1.Caption = "文本框的内 容被改变" End Sub

（2）DbClick 事件（鼠标双击）
Private Sub LblShow_DbClick() LblShow.Visible = False End Sub
8.2 文本框(TextBox)控件

1. 文本框的属性
属性项 (名称) Alignment Appearance BackColor BorderStyle DragIcon DragMode 说 明 设置文本框对象的名称 设置Text文本的对齐方式，0-左对齐，1-右对齐，2-居中对齐 设置是否使用立体显示效果，1-3D 设置背景色 设置边框样式，0-无边框线，1-固定单线框 设置该命令按钮对象在拖动过程中鼠标的图标 设置拖动该对象的模式，0-Manaul，1-Automatic True/False，设置该对象是否对事件产生响应，设为False时 图标模糊 设置字体 设置前景色 设置对象的高度
属 性 Name Caption DisabledPicture DownPicture
Enabled Picture Style Value Visiable
8.5 复选(CheckBox)与单 选(OptionButton)控件


Value属性是复选控件最主要的属性。选中时， Value值为1；未被选中，Value值为0；禁止对 该按钮进行选择，Value值为2。 运行时选定复选框按钮的方法：

鼠标单击按钮； 使用Tab键将焦点转移到CheckBox控件上，并按下 空格键； 利用标题创建的快捷键（在Caption属性的一个字母 前添加连字符&）。
8.5 复选(CheckBox)与单 选(OptionButton)控件

2. Cபைடு நூலகம்eckBox控件的图形化用法
属 性 说 明 DisabledPicture 确定在CheckBox被禁用的时候在控件上出现的图形 DownPicture 确定在CheckBox被按下的时候在控件上出现的图形 Picture 确定CheckBox在正常情况下控件上出现的图形
设置字体和字号等 设置对象的高度 在对象数组中的一个成员编号 设置该对象距离窗体左边框的距离 Style=1时，对象按下时在透明状态下显示的颜色 MousePoint＝99时，自定义一个鼠标的图标 设置光标在对象上时的形状，99为自定义 Style＝1时，设置按钮的图形 False/True，文本显示的方向是否是自右向左 设置此对象的外观形式：0-Standard；1-Graphical 设置此对象在父窗体中的对象编号 True/False，设置是否可以用“Tab”键选取对象 设置该对象的提示行 设置该对象距离窗体顶部的距离 False/True，Style＝1时，是否以MaskColor中指定的颜色作为 UseMaskColor 透明区域的颜色 Visible True/False，设置此对象的可见性 Width 设置此对象的宽度 Font Height Index Left MaskColor MouseIcon MousePointer Picture RightToLeft Style TabIndex TabStop ToolTipText Top
第8章 VB中的常用控件
本章要点：
标签和文本框控件的使用方法 命令按钮控件的使用方法 复选与单选控件的使用方法 列表框和组合框控件的使用方法 滚动条控件的使用方法 计时器控件的使用方法 利用菜单编辑器设计菜单
8.1 标签(Label)控件

1. 标签的属性
属性项 Alignment Appearance AutoSize BackColor BackStyle 说 明 设置Caption属性文本的对齐方式，0-左对齐；1-右对 齐；2-居中对齐 是否要用立体效果绘制，1-3D False/True，设置控件的大小是否随标题内容的大小 自动调整 设置背景色 设置背景样式，0-透明；1-不透明
8.1 标签(Label)控件

（1）Caption（标题）属性
标签名称.Caption = "欲显示的文本“

（2）BorderStyle（边框）属性
标签名.BorderStyle = 0/1（0或1，两者取一）

（3）Font（字体）属性
标签名.FontName=“字体类型”

（4）Alignment（对齐）属性
标签名.Alignment = 0/1/2

（5）Visible（可见）属性
标签名.Visible = True/False
8.1 标签(Label)控件

2. 标签的事件

（1）Click 事件（鼠标单击）
Private Sub LblShow_Click() LblShow.FontName = "隶书" End Sub
Enabled
Font ForeColor Height
8.2 文本框(TextBox)控件
Index Left Locked MaxLength MouseIcon MousePointer MultiLine PasswordChar RightToLeft ScrollBars TabIndex TabStop Text ToolTipText Top Visible Width 设置对象数组中的一个成员编号 设置控件对象距离窗体左边框的距离 True/False，设置是否锁住文本框的Text属性的内容 设置最大长度，0为默认值 MousePointer＝99时，自定义一个鼠标的图标 设置光标在对象上时形状，有15种选择，99为自定义鼠标形状 False/True，设置是否可以输入多行文本 将Text文本的内容全部显示为该属性设置的符号 False/True，文本显示的方向是否是自左向右 设置边框滚动条模式 设置此对象在父窗口中的对象编号 True/Fale，设置Tab键是否起作用 文本框中包含的文本内容 设置该对象的提示行 设置此对象距离窗体顶部的距离 True/False，设置此对象的可见性 设置对象的宽度

用鼠标单击； 按Tab键将焦点移到相应按钮上，再按回车键； 用快捷键（Alt＋有下划线的字母）。
8.4 命令按钮 (CommandButton)控件

1. 命令按钮的属性
属性项 说明 命令按钮名称 是否使用立体效果绘制对象：0-Flat；1-3D 设置背景色 False/True，设置是否在运行时按下”Esc”键执行该功能。 设置标题名称 True/False，该控件获得焦点时，第二个控件的Validate 事件是否将发生 False/True，设置该按钮是否为窗体默认的按钮 Style＝1时，此对象在被按下状态时显示的图片 Style＝1时，此对象在静止状态时显示的图片 该命令按钮对象在拖动过程中鼠标的图标 设置拖动该对象的模式：0-Mannual，1-Automatic True/False，按钮是否可操作，设为False时
BorderStyle
Caption
设置边框样式，0-无边框线；1-固定单线边框
设置标题
8.1 标签(Label)控件
DragIcon DragMode Enabled Font ForeColor Height Index Left MouseIcon MousePointer TabIndex ToolTipText Top UseMnemonic Visible Width WordWrap 设置该命令按钮对象在拖动过程中鼠标的图标 设置拖动该对象的模式，0-Manual，1-Automatic True/False，设置控件是否对事件产生响应 设置字体及字号等 设置前景色 设置对象的高度 设置对象数组中的一个成员编号 设置控件对象距离左边框的距离 MousePointer＝99时，自定义一个鼠标的图标 设置光标在对象上时的形状 设置此对象在父对象中的对象编号 设置该对象的提示行 设置控件对象距离窗体顶部的距离 True/False，设置此对象的标题字符后的字符是否作为快捷键 True/False，设置此对象的可见性 设置对象的宽度 False/True，设置Caption属性的内容是否可以自动扩充
8.3 综合示例

【例8-2】 制作一个简单的文本编辑器。用户可以在程序的 编辑窗口输入文本；对输入的文本可以进行复制、粘贴、清 除操作；另外，还能在两个标签上分别显示选中文本的起始 位置、选中文本的长度。(源文件)
8.4 命令按钮 (CommandButton)控件

选中命令按钮的方法：

8.4 命令按钮 (CommandButton)控件

2. 命令按钮的事件

Click事件


3. 命令按钮的应用
【例8-3】 将前面例8-2的例子完善一下，复制文本按钮只有 当选中文本时为可用，而粘贴文本按钮只有当剪贴板中有复 制了的内容后才为可用状态。(源文件)
8.5 复选(CheckBox)与单 选(OptionButton)控件