VB教学课件第三章【医药版】

第三章窗体和控件普通高等教育“十一五”国家级规划教材全国高等医药院校药学类规划教材计算机程序设计(第二版)第一节文本控件目录第二节按钮控件第三节单选按钮和复选框沈阳药科大学计算计教研室沈阳药科大学计算计教研室第五节焦点和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”EndifEndifIfIsNumeric(Text1.text)=FalsethenMsgBox“非数值错误！请重新输入”elseIfText1.text0thenMsgBox“所输入的半径无效，请输入非负的数值！”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属性被