第三章窗体和控件 普通高等教育 十一五 国家级规划教材全国高等医药院校药学类规划教材计算机程序设计 第二版 第一节文本控件 目录 第二节按钮控件 第三节单选按钮和复选框 第五节焦点和Tab顺序 第四节图形控件 控件学习的重点 控件对象的三要素 引言 VisualBasic是一种可视化的高级程序设计语言 不但具有所见即所得的优点 而且还提供了大量的Windows窗体控件 只要我们熟练掌握了这些控件的使用 就可以轻松编写出具有Windows风格的图形化界面的应用程序 本章将介绍VisualBasic中最基本的几个标准控件 更高级的复杂控件将在第八章详细介绍 第一节文本控件 3 1文本控件 第一节文本控件 与文本有关的标准控件有两个 1 标签 Label 程序在运行模式 RunMode 下 用户不能编辑其内容 一般用做其它控件的功能提示说明或者显示程序的运行结果 2 文本框 TextBox 程序在运行模式 RunMode 下 用户可以编辑其显示内容 从而实现程序运行中的人机交互 一般用做输入信息 第一节文本控件 3 1 1标签 Label 除前面讲过的常用属性Name Top Left Height Width Visible Font外 标签还具有以下属性 1 Caption 标题 该属性用于设置标签中显示的文本 该文本信息既可以在设计模式下通过属性窗口设置 也可以在运行模式下通过修改Caption属性来设置 例如 下面语句可将标签的显示文本更改为 消炎药品 Label1 Caption 消炎药品 Caption属性是 标签 控件的默认属性 即下面的写法与上面的属性赋值语句是一致的 Label1 消炎药品 注意 标签没有Text属性 这与下面讲到的文本框不同 第一节文本控件 2 Alignment 对齐方式 用于设置标签中文本的对齐方式 有三种取值情况 0 LeftJustify 缺省 标签中的文本左对齐1 RightJustify标签中的文本右对齐2 Center标签中的文本居中对齐 3 BackStyle 背景风格 该属性用于设置标签的背景风格 有两种取值情况 0 Transparent标签的背景为透明的 就像是在一块透明玻璃上书写文本一样 无论BackColor设为什么颜色都不会显示 1 Opaque 缺省 标签的背景为非透明的 会遮挡标签后面的内容 第一节文本控件 标签背景设置为透明 第一节文本控件 4 BorderStyle 边框风格 该属性用于设置标签的边框风格 有两种取值情况 0 None 缺省 标签无边框1 FixedSingle标签有边框 5 Appearance 外观 该属性用于设置标签外观是否具有立体的效果 有两种取值情况 0 Flat标签为平面效果1 3D 缺省 标签为立体效果注意 显示3D效果的前提是将BorderStyle设置为1 第一节文本控件 6 AutoSize 自动调整大小 该属性用于设置标签的大小是否随标题文本大小的改变而改变 有两种取值情况 True标签的大小随标题文本大小的改变而改变False 缺省 当标题太长时 只显示其中的一部分内容 7 WordWrap 决定标签的大小是否与文字保持自动调整 标签上显示的内容要是想分多行显示的话 要设置WordWrap属性为True 并且该属性生效必须设置AutoSize为True 否则不可以 总结 标签Caption属性显示的内容控制换行显示Label1 Caption vbCrlf Label1 caption Chr 13 Chr 10 第一节文本控件 3 1 2文本框 TextBox 文本框还具有以下属性 1 Text 文本 该属性用于存放文本框中的文本信息包括在设计模式下对其赋值 或者在运算模式下 利用语句对其赋值 如 Text1 Text 小鼠 其中 该属性为文本框Text1的默认属性 所以在对文本框的该属性赋值时 可省略Text不写 而直接写成 Text1 小鼠 和前面讲的标签不同 文本框没有Caption属性 2 MaxLength 允许输入的最大字符数 注意 MaxLength 0时 表示无字符个数限制 可以接收VisualBasic系统规定的最大字符数32K 第一节文本控件 注意 在MultiLine为True的前提下 强制文本框内文本换行的方法为 设计模式下 在Text属性中相应位置按下Ctrl Enter运行模式下 为Text属性赋值时相应位置加入 vbCrLf 例如 Text1 text 抗癌 vbCrLf 新药物 4 PassWordChar 文本框中用什么字符替代显示 该属性一般用作口令的输入 该属性为空值时 表示显示原始信息 注意 虽然文本框中的数据没有真实地显示在用户面前 但却保存着真实的值 3 MultiLine 多行显示 第一节文本控件 5 ScrollBars 滚动条 四种取值情况 0 None 缺省 文本框中没有滚动条1 Horizontal只有水平滚动条2 Vertical只有垂直滚动条3 Both同时具有水平和垂直滚动条注意 只有当MultiLine属性设置为True时 ScrollBars才生效 文本框中只要出现水平滚动条 那么文本框的自动换行功能将不生效 只能强制换行 第一节文本控件 6 Locked 锁定 注意 当Locked True时文本框外观无变化 可以接收焦点 用户不能修改文本框内容 只能通过代码修改Text属性 7 Enabled 激活可操作 注意 Enabled和Locked并不相同 Enabled为False时 外观变灰 不能接收焦点 用户不能编辑文本内容 可以通过代码修改Text属性 第一节文本控件 8 SelStart 从第几个字符后开始选择 SelLength 选中了多少个字符 SelText 选中的具体文本内容 应用举例 文本控件 文本框 文本框中字符的选择操作 vbp 扩展练习 文本的复制 当从文本框Text1中任意选择三个字符粘贴到文本框Text2中时 系统是如何知道在文本框Text1中选择的什么字符呢 第一节文本控件 文本框的常用事件和方法 1 Change事件运行模式下无论通过什么方式 输入或者删除字符 只要文本框的内容发生改变 就会触发Change事件 应用举例 通过Change事件即时计算圆的面积 vbp 2 KeyPress事件运行模式下 在文本框中按下键盘上某个具有字符编辑功能的按键后 在文本框中的内容改变前 会触发KeyPress事件 应用举例 通过KeyPress事件使输入字符均为大写 vbp说明 a的ASCII为97 z的ASCII为122 A的ASCII为65 Z的ASCII为90 0的ASCII为48 回车的ASCII为13 总结 KeyPress事件发生在文本框中的内容改变之前 当文本框内容改变后会触发Change事件 当在文本框中按下了某个字符键 在这个字符没有显示在文本框时就会触发KeyPress事件 然后字符显示在文本框 然后触发change事件 当执行过程理解了之后 这两个事件各自执行完之后文本框中的内容是什么就很容易理解了 第一节文本控件 文本框的KeyPress事件与Change事件举例 第一节文本控件 3 GotFocus事件运行模式下无论通过什么方式 只要光标焦点从其它控件进入该文本框就会触发GotFocus事件 4 LostFocus事件运行模式下无论通过什么方式 只要光标焦点从该文本框移走就会触发LostFocus事件 通常用来验证输入数据的合法性 应用举例 通过LostFocus事件判断半径的合法性 vbp 5 SetFocus方法功能是在运行模式下通过代码将光标焦点移动到指定的文本框中 语法为 对象名称 SetFocus 第一节文本控件 在Text1的LostFocus事件如果Text1的文本内容不是数值则弹出错误提示信息否则如果Text1的文本内容是负数则弹出错误提示信息 IfText1 text不是数值thenMsgBox XX elseIfText1 text是负数thenMsgBox XX EndifEndif IfIsNumeric Text1 text FalsethenMsgBox 非数值错误 请重新输入 elseIfText1 text 0thenMsgBox 所输入的半径无效 请输入非负的数值 EndifEndif 是否需要继续完善 第二节按钮控件 3 2按钮控件 2 2按钮控件 VisualBasic中的按钮控件是命令按钮 它可能是VisualBasic应用程序中最常用的控件 提供了用户与应用程序交互最简便的方法 按钮 第二节按钮控件 3 2 1命令按钮 CommandButton 除前面讲过的常用属性外 命令按钮还具有以下属性 1 Caption 标题 该属性用于设置命令按钮上显示的文本 用以标明该命令按钮的功能 命令按钮的热键设置 在Caption属性中将某个字母的前面添加一个 字符 程序运行时该字母下就会出现一个下划线 此时利用鼠标单击该按钮与按下ALT 该字母的功能是等价的 我们把ALT 该字母称为该命令按钮的热键 命令按钮Name属性和Caption属性的区别 应用举例 Name属性对开发者有意义 用来在代码中区分不同对象Caption属性对使用者有意义 说明对象的用途 第二节按钮控件 2 Default 默认对象或者说默认的确认功能按钮 例子当一个命令按钮的Default属性设置为True时 如果目前焦点没有在其它命令按钮上 那么按键盘上的回车键与单击该命令按钮的作用相同 在一个窗体中 只允许有一个命令按钮的Default属性被设置为True 3 Cancel 默认的取消功能按钮 当一个命令按钮的Cancel属性设置为True时 无论目前焦点在什么地方 按键盘上的Esc键与单击该命令按钮的作用相同 在一个窗体中 只允许有一个命令按钮的Cancel属性被设置为True 第二节按钮控件 4 Style 外观风格 该属性用于设置命令按钮的外观风格 有两种取值情况 0 Standard标准样式 缺省 命令按钮上只能显示文本内容 Caption属性 1 Graphical图形格式命令按钮上既可以显示文本内容 又可以显示图形 5 Picture 外观图片 Style属性为1时 命令按钮上显示的图片 加载方法详见PictureBox 6 ToolTipText 工具提示 例子在运行状态下 当将鼠标停在某个按钮上时 会出现文字提示说明该按钮的作用 一般和Picture结合使用 第二节按钮控件 命令按钮常用的事件命令按钮最常用的事件是单击 Click 事件 说明 1 命令按钮不支持DblClick事件 2 触发Click事件的方法有 a 用鼠标单击该命令按钮 b 用Tab键将焦点移动到该命令按钮上 击键盘上的空格键 或回车键 c 利用Caption属性中设定的热键 d 对于Cancel属性为True的按钮 按下键盘上的Esc键 e 对于Default属性为True的按钮 当焦点不在其它命令按钮上时 按下键盘上的回车键 选择性控件 第三节单选钮和复选框 3 3单选钮和复选框 第三节单选钮和复选框 当需要为用户提供几种候选项供用户选择时 最常用的两种控件就是 单选按钮 OptionButton 又名收音机按钮RadioButton 和复选框 CheckBox 单选按钮一组中只能选择一项 复选框一组中可以同时选择多项 例题 第三节单选钮和复选框 3 3 1重要属性单选钮和复选框除了常用属性还具有以下重要属性 1 Value 选定状态 用来设置和标识单选按钮和复选框的选定状态单选按钮的Value属性为布尔类型 有两种取值情况 False 缺省 表明该单选钮未被选中True表明该按钮处于被选中状态 复选框Value属性为数值型 有三种取值情况 0 Unchecked 缺省 该复选项目前未被选中1 Checked该复选项目前已经被选中2 Grayed该复选框被禁止选择 灰色 通过Value属性判断某侯选项是否