计算机程序设计-窗体和控件课件

第三章窗体和控件普通高等教育“十一五”国家级规划教材全国高等医药院校药学类规划教材计算机程序设计(第二版)第三章窗体和控件普通高等教育“十一五”国家级第一节文本控件目录第二节按钮控件第三节单选按钮和复选框沈阳药科大学计算计教研室沈阳药科大学计算计教研室第五节焦点和Tab顺序第四节图形控件控件学习的重点:控件对象的三要素第一节文本控件目录第二节按钮控件第三节单选按钮和复2引言VisualBasic是一种可视化的高级程序设计语言，不但具有所见即所得的优点，而且还提供了大量的Windows窗体控件。只要我们熟练掌握了这些控件的使用，就可以轻松编写出具有Windows风格的图形化界面的应用程序。本章将介绍VisualBasic中最基本的几个标准控件，更高级的复杂控件将在第八章详细介绍。引言VisualBasic是一种可视化的高级程序设计语言，3第一节文本控件3.1文本控件第一节文本控件3.1文本控件4第一节文本控件与文本有关的标准控件有两个：1.标签（Label）

程序在运行模式(RunMode)下，用户不能编辑其内容。一般用做其它控件的功能提示说明或者显示程序的运行结果。2.文本框（TextBox）

程序在运行模式(RunMode)下，用户可以编辑其显示内容，从而实现程序运行中的人机交互。一般用做输入信息。标签文本框第一节文本控件与文本有关的标准控件有两个：2.文本框（T5第一节文本控件3.1.1标签(Label)除前面讲过的常用属性Name，Top，Left，Height，Width，Visible，Font外，标签还具有以下属性:(1)Caption(标题)

该属性用于设置标签中显示的文本。该文本信息既可以在设计模式下通过属性窗口设置，也可以在运行模式下通过修改Caption属性来设置。例如，下面语句可将标签的显示文本更改为“消炎药品”：

Label1.Caption="消炎药品“Caption属性是“标签”控件的默认属性，即下面的写法与上面的属性赋值语句是一致的：

Label1=“消炎药品”注意：标签没有Text属性，这与下面讲到的文本框不同。第一节文本控件3.1.1标签(Label)6第一节文本控件(2)Alignment(对齐方式)

用于设置标签中文本的对齐方式，有三种取值情况：

0-LeftJustify(缺省)标签中的文本左对齐

1-RightJustify标签中的文本右对齐

2-Center标签中的文本居中对齐

(3)BackStyle(背景风格)

该属性用于设置标签的背景风格，有两种取值情况：

0-Transparent标签的背景为透明的，就像是在一块透明玻璃上书写文本一样，无论BackColor设为什么颜色都不会显示。

1–Opaque(缺省)标签的背景为非透明的，会遮挡标签后面的内容第一节文本控件(2)Alignment(对齐方式)

7第一节文本控件标签背景设置为透明：第一节文本控件标签背景设置为透明：8第一节文本控件(4)BorderStyle(边框风格)

该属性用于设置标签的边框风格，有两种取值情况：

0–None(缺省)标签无边框

1-FixedSingle标签有边框(5)Appearance(外观)

该属性用于设置标签外观是否具有立体的效果，有两种取值情况：

0-Flat标签为平面效果

1-3D(缺省)标签为立体效果

注意：显示3D效果的前提是将BorderStyle设置为1第一节文本控件(4)BorderStyle(边框风格)

9第一节文本控件(6)AutoSize(自动调整大小)

该属性用于设置标签的大小是否随标题文本大小的改变而改变，有两种取值情况：

True标签的大小随标题文本大小的改变而改变

False(缺省)当标题太长时，只显示其中的一部分内容(7)WordWrap(决定标签的大小是否与文字保持自动调整)

标签上显示的内容要是想分多行显示的话，要设置WordWrap属性为True,并且该属性生效必须设置AutoSize为True，否则不可以。总结：标签Caption属性显示的内容控制换行显示

Label1.Caption=“….”

&vbCrlf

&“….”Label1.caption=“….”

&Chr(13)&Chr(10)

&“….”第一节文本控件(6)AutoSize(自动调整大小)

10第一节文本控件3.1.2文本框(TextBox)文本框还具有以下属性:（1）Text(文本)该属性用于存放文本框中的文本信息包括在设计模式下对其赋值，或者在运算模式下，利用语句对其赋值，如：Text1.Text=“小鼠”其中，该属性为文本框Text1的默认属性，所以在对文本框的该属性赋值时，可省略Text不写，而直接写成：

Text1=“小鼠”和前面讲的标签不同，文本框没有Caption属性。（2）MaxLength(允许输入的最大字符数)

注意：MaxLength=0时，表示无字符个数限制(可以接收VisualBasic系统规定的最大字符数32K)第一节文本控件3.1.2文本框(TextBox)（1）T11第一节文本控件注意：在MultiLine为True的前提下，强制文本框内文本换行的方法为：

设计模式下，在Text属性中相应位置按下Ctrl+Enter

运行模式下，为Text属性赋值时相应位置加入“vbCrLf”

例如：Text1.text="抗癌"+vbCrLf+"新药物"(4)PassWordChar(文本框中用什么字符替代显示)

该属性一般用作口令的输入。该属性为空值时，表示显示原始信息。注意：虽然文本框中的数据没有真实地显示在用户面前,但却保存着真实的值。(3)MultiLine(多行显示)第一节文本控件注意：在MultiLine为True的前提下12第一节文本控件(5)ScrollBars(滚动条)四种取值情况:0-None(缺省)文本框中没有滚动条1-Horizontal只有水平滚动条2-Vertical只有垂直滚动条3-Both同时具有水平和垂直滚动条

注意：只有当MultiLine属性设置为True时，ScrollBars才生效。文本框中只要出现水平滚动条，那么文本框的自动换行功能将不生效，只能强制换行。

第一节文本控件(5)ScrollBars(滚动条)13第一节文本控件(6)Locked(锁定)

注意：当Locked=True时文本框外观无变化、可以接收焦点，用户不能修改文本框内容，只能通过代码修改Text属性。(7)Enabled(激活可操作)

注意：Enabled和Locked并不相同。Enabled为False时，外观变灰、不能接收焦点、用户不能编辑文本内容、可以通过代码修改Text属性。第一节文本控件(6)Locked(锁定)

注14第一节文本控件(8)

SelStart(从第几个字符后开始选择)、SelLength(选中了多少个字符)SelText(选中的具体文本内容)

应用举例：文本控件\文本框\文本框中字符的选择操作.vbp扩展练习：文本的复制当从文本框Text1中任意选择三个字符粘贴到文本框Text2中时，系统是如何知道在文本框Text1中选择的什么字符呢？第一节文本控件(8)SelStart(从第几个字符后开始15第一节文本控件文本框的常用事件和方法:(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.第一节文本控件文本框的常用事件和方法:16总结：KeyPress事件发生在文本框中的内容改变之前，当文本框内容改变后会触发Change事件（当在文本框中按下了某个字符键，在这个字符没有显示在文本框时就会触发KeyPress事件，然后字符显示在文本框，然后触发change事件）。当执行过程理解了之后，这两个事件各自执行完之后文本框中的内容是什么就很容易理解了。第一节文本控件文本框的KeyPress事件与Change事件举例总结：第一节文本控件文本框的KeyPress事件与Chan17第一节文本控件(3)GotFocus事件

运行模式下无论通过什么方式，只要光标焦点从其它控件进入该文本框就会触发GotFocus事件。(4)LostFocus事件

运行模式下无论通过什么方式，只要光标焦点从该文本框移走就会触发LostFocus事件。通常用来验证输入数据的合法性。

应用举例：通过LostFocus事件判断半径的合法性.vbp(5)SetFocus方法

功能是在运行模式下通过代码将光标焦点移动到指定的文本框中，语法为：

[对象名称.]SetFocus。第一节文本控件(3)GotFocus事件

运18第一节文本控件在Text1的LostFocus事件

如果Text1的文本内容不是数值则弹出错误提示信息否则如果Text1的文本内容是负数则弹出错误提示信息IfText1.text不是数值then

MsgBox“XX”

elseIfText1.text是负数thenMsgBox“XX”

EndifEndifIfIsNumeric(Text1.text)=False

then

MsgBox“非数值错误！请重新输入”

elseIfText1.text<0thenMsgBox“所输入的半径无效，请输入非负的数值！”

EndifEndif是否需要继续完善？第一节文本控件在Text1的LostFocus事件If19第二节按钮控件3.2按钮控件第二节按钮控件3.2按钮控件202.2按钮控件

VisualBasic中的按钮控件是命令按钮，它可能是VisualBasic应用程序中最常用的控件，提供了用户与应用程序交互最简便的方法。按钮2.2按钮控件VisualBasic中的按钮控件21第二节按钮控件3.2.1命令按钮(CommandButton)除前面讲过的常用属性外，命令按钮还具有以下属性:(1)Caption(标题)

该属性用于设置命令按钮上显示的文本，用以标明该命令按钮的功能。命令按钮的热键设置：在Caption属性中将某个字母的前面添加一个“&”字符，程序运行时该字母下就会出现一个下划线，此时利用鼠标单击该按钮与按下ALT+该字母的功能是等价的，我们把ALT+该字母称为该命令按钮的热键。命令按钮Name属性和Caption属性的区别（应用举例）：

Name属性对开发者有意义，用来在代码中区分不同对象

Caption属性对使用者有意义，说明对象的用途第二节按钮控件3.2.1命令按钮(CommandBu22第二节按钮控件(2)Default(默认对象或者说默认的确认功能按钮)例子

当一个命令按钮的Default属性设置为True时，如果目前焦点没有在其它命令按钮上，那么按键盘上的回车键与单击该命令按钮的作用相同。在一个窗体中，只允许有一个命令按钮的Default属性被设置为True。

(3)Cancel(默认的取消功能按钮)

当一个命令按钮的Cancel属性设置为True时，无论目前焦点在什么地方，按键盘上的Esc键与单击该命令按钮的作用相同。在一个窗体中，只允许有一个命令按钮的Cancel属性被设置为True。第二节按钮控件(2)Default(默认对象或者说默23第二节按钮控件(4)Style(外观风格)

该属性用于设置命令按钮的外观风格。有两种取值情况：0-Standard标准样式(缺省)命令按钮上只能显示文本内容(Caption属性)。

1-Graphical图形格式命令按钮上既可以显示文本内容，又可以显示图形(5)Picture(外观图片)

Style属性为1时，命令按钮上显示的图片。加载方法详见PictureBox。(6)ToolTipText(工具提示)

例子在运行状态下，当将鼠标停在某个按钮上时，会出现文字提示说明该按钮的作用。一般和Picture结合使用。第二节按钮控件(4)Style(外观风格)

24第二节按钮控件命令按钮常用的事件命令按钮最常用的事件是单击（Click）事件，说明（1）命令按钮不支持DblClick事件。（2）触发Click事件的方法有：a)用鼠标单击该命令按钮。b)用Tab键将焦点移动到该命令按钮上，击键盘上的空格键(或回车键)。c)利用Caption属性中设定的热键。d)对于Cancel属性为True的按钮，按下键盘上的Esc键。e)对于Default属性为True的按钮，当焦点不在其它命令按钮上时，按下键盘上的回车键。第二节按钮控件命令按钮常用的事件a)用鼠标单击该命令按25名称用途单选框OptionButton用户只能选择一项复选框CheckBox用户可以选择一个或者多个选项列表框ListBox用户可从中进行选择的滚动列表组合框ComboBox一个可滚动选择列表附加一个文本编辑域用户可以从表中选择或在编辑域中键入选择框架Frame（辅助）分组（单选）、视觉上的分区、总体的激活或者屏蔽选择性控件名称用途单选框OptionButton用户只能选择一项复选框26第三节单选钮和复选框3.3单选钮和复选框第三节单选钮和复选框3.3单选钮和复选框27第三节单选钮和复选框当需要为用户提供几种候选项供用户选择时，最常用的两种控件就是：单选按钮(OptionButton，又名收音机按钮RadioButton)和复选框(CheckBox)。单选按钮一组中只能选择一项，复选框一组中可以同时选择多项。例题。第三节单选钮和复选框当需要为用户提供几种候选项供用户选择时28第三节单选钮和复选框3.3.1重要属性单选钮和复选框除了常用属性还具有以下重要属性:(1)Value(选定状态)

用来设置和标识单选按钮和复选框的选定状态单选按钮的Value属性为布尔类型，有两种取值情况：

False(缺省)表明该单选钮未被选中

True表明该按钮处于被选中状态。复选框Value属性为数值型，有三种取值情况：

0–Unchecked(缺省)该复选项目前未被选中

1–Checked该复选项目前已经被选中

2–Grayed该复选框被禁止选择(灰色)通过Value属性判断某侯选项是否被选中.vbp第三节单选钮和复选框3.3.1重要属性29第三节单选钮和复选框(2)Alignment(对齐方式)

设置复选框或单选按钮控件标题的对齐方式（和标签的对齐方式意义不同），在设计模式和运行模式下均可设置。有两种取值情况：

0–VbLeftJustify(缺省)控件居左，标题在控件右侧显示

1–VbRightJustify控件居右，标题在控件左侧显示

第三节单选钮和复选框(2)Alignment(对齐方式)30第三节单选钮和复选框(3)Style(风格)

指定复选框或单选按钮的显示方式。有两种取值情况：0–VbButtonStandard(缺省)标准方式，同时显示控件和标题

1–VbButtonGraphical图形方式，控件用图形的样式显示，外观与命令按钮相类似复选框和单选按钮的风格比较.vbp第三节单选钮和复选框(3)Style(风格)

31第三节单选钮和复选框Click事件

单选钮和复选框都可以接受click事件，但是通常不对该事件过程编程（通常用户先对给出的选项进行选择，再单击某个具有“完成”功能的按钮，此时再根据用户的选择做出相应的设置）；如果想立即响应按钮的选择，则需要在click事件中编写代码。第三节单选钮和复选框Click事件32第三节单选钮和复选框3.3.2单选钮和复选框应用举例在窗体Form1上添加一个文本框Text1，将其Text属性修改为“青霉素是抗菌消炎药品”，Font属性设为宋体，四号。再添加两个单选钮Option1和Option2，将Caption属性分别设定为“隶书”和“黑体”。再添加两个复选框Check1和Check2，将Caption属性分别设定为“斜体”和“删除线”。要求：当单击某种字体名称或字体格式时，即时生效字符格式设定.vbp第三节单选钮和复选框3.3.2单选钮和复选框应用举例33第四节图形控件3.4图形控件第四节图形控件3.4图形控件34第四节图形控件为了设计内容丰富、界面美观的应用程序我们经常需要用到与图形相关的控件，常见的有：图片框（PictureBox）图像框（Image）直线（Line）形状（Shape）第四节图形控件为了设计内容丰富、界面美观的应用程序我们经常35第四节图形控件3.4.1PictureBoxPictureBox（图片框）控件的主要作用是显示图片，另外还可作为容器，像窗体一样容纳和分组其它控件及打印输出。1.重要属性(1)Align(停靠位置)

用于设置图片框在窗体上的位置，有以下几种取值情况：0–None（缺省）图片框的大小、位置由设计者手动设定

1–AlignTop上边缘自动与窗体上边缘对齐，宽度自动与窗体的宽度相同(之后调整窗体宽度时，图片框的宽度也自动改变)，高度保持原来高度不变(可以自行调整)。位置和宽度不可自行随意调整

2–AlignBottom

3–AlignLeft

4–AlignRight第四节图形控件3.4.1PictureBox36第四节图形控件(2)Picture(显示图片)

设置图片框上显示的图片。加载方法(同命令按钮):第一种：在设计模式下从属性窗口中添加/修改第二种：在运行模式下通过LoadPicture函数添加/修改，语法格式为：

[对象名.]Picture=LoadPicture(“带完整路径的图片文件名”)

装入图形：

Picture2.Picture=LoadPicture(“C:\animal\dog.bmp”)删除图形：Picture2.Picture=LoadPicture(“”)

将Pictrue1和Picture2中现有的图片进行交换：例子Picture3.Picture=Picture1.Picture

Picture1.Picture=Picture2.Picture

Picture2.Picture=Picture3.Picture第四节图形控件(2)Picture(显示图片)

37第四节图形控件(2)Appearance(外观)

设置图片框是否以立体三维形式显示边框。(3)AutoRedraw(自动重绘)

与窗体相同，在程序运行过程中，当在图片框中使用图形方法（如Circle、Line、Point和Pset）绘制图形或使用Print方法输出文本后，由于被其它对象遮挡而使得被绘制的图形或打印的文本不可见后，被遮挡部分再次露出时，如果该属性设置为True，那么这些图形或文本将被自动重绘输出。(4)AutoSize(自动调整尺寸)

设置图片框是否自动调整为与Picture属性中加载的图片尺寸相同。(注意与Image的Stretch属性的区别)第四节图形控件(2)Appearance(外观)

38第四节图形控件3.4.2Image图像框(Image)和图片框都可以显示图片，但图像框不能作为容器(不能像图片框一样存放其它的控件和打印输出)，另外图像框比图片框占用更少的内存，描绘的更快。图像框的特殊属性——Stretch(拉伸)

False装载图片后，图像框的大小自动调整为与图形的大小相同。当调整图像框的大小时图形并不跟随缩放调整

True图形的大小根据图像框大小的进行拉伸缩放，显示的永远是图形的全部内容PictureBox的AutoSize(自动调整尺寸)属性：区别设置图片框是否自动调整为与Picture属性中加载的图片尺寸相同。第四节图形控件3.4.2ImagePictureBox的39第四节图形控件3.4.3LineLine控件可以显示为一条直线。常见属性：1. BorderColor

线条的颜色2. BorderStyle

线型。例如实线、虚线等。取值从0到6。3. BorderWidth

线条的粗细。4. X1、Y1和X2、Y2

线条的起始端点坐标第四节图形控件3.4.3Line40第四节图形控件3.4.4ShapeShape控件可以显示为一个简单的图形。常见属性：1. BackColor、BackStyle

同Label控件。2. BorderColor、BorderStyle、BorderWidth

图形的边框格式。同Line控件。3. FillColor、FillStyle

填充图案的颜色和填充图案的类型，如水平直线填充、斜线填充等。FillStyle的取值从0到7，共8种填充图案。4. Shape

图案的外观形状，例如圆形、椭圆形、正方形等。取值从0到5，共有6种情况。例：奥运五环第四节图形控件3.4.4Shape例：奥运五环41第五节焦点和Tab顺序3.5焦点和Tab顺序第五节焦点和Tab顺序3.5焦点和Tab顺序42第五节焦点和Tab顺序3.5.1设置焦点1.只有具有焦点的对象才可以接收用户的输入。2.对象得到焦点时，会触发GotFocus事件；失去焦点时，将触发LostFocus事件。3.为对象设置焦点的方法有：

1)利用鼠标单击该对象

2)利用Tab键将焦点移动到该对象上

3)利用热键选择该对象

4)通过SetFocus方法将焦点放到某对象上4.对象的Enabled和Visible属性均为True时，才能接收焦点5.并非所有对象都可以接收焦点。常见控件中，Frame、Label、Menu、Line、Shape、Image和Timer等，不能接收焦点。（只有当窗体上的任何控件都不能接收焦点时，该窗体才能接收焦点）第五节焦点和Tab顺序3.5.1设置焦点43第五节焦点和Tab顺序3.5.2Tab顺序Tab顺序就是按下Tab键时，焦点在各控件之间移动的顺序。默认情况下，Tab顺序就是控件建立的先后顺序。前面列出的不能接受焦点的控件，以及无效的、不可见的控件，由于无法接收焦点，在按Tab键时会被直接跳过。能够接受焦点的控件对象都有一个TabIndex属性，其实Tab顺序就是该属性的顺序。通过人为修改TabIndex的值，就可以按照用户操作的习惯来设置各控件的Tab顺序，以实现界面操作的友好性。第五节焦点和Tab顺序3.5.2Tab顺序44注意事项：

1.窗体窗口中的控件名称必须和代码窗口中的一致。

2.对某事件编写代码最好直接双击该控件，不要手写。有些事件需要参数例如keyPress事件中keyAscii参数。3.如果书写某对象的属性时，按下“.”之后没有提示，一般说明控件名写错了（例如：lable1.text）。可以用”me.对象名.属性”的方法来避免或者在属性窗口中复制对象的名字。

4.picture控件的picture属性只有当style为1时才生效。注意VB自带的图库目录位置。

5.使用FontName,FontBold等属性的注意事项：“宋体”为字体名称，“粗体”不是，Text1.FontBold=notText1.FontBold的意义

3注意事项：345Endofthechapter沈阳药科大学计算机教研室Endofthechapter沈阳药科大学计算机教研室第三章窗体和控件普通高等教育“十一五”国家级规划教材全国高等医药院校药学类规划教材计算机程序设计(第二版)第三章窗体和控件普通高等教育“十一五”国家级第一节文本控件目录第二节按钮控件第三节单选按钮和复选框沈阳药科大学计算计教研室沈阳药科大学计算计教研室第五节焦点和Tab顺序第四节图形控件控件学习的重点:控件对象的三要素第一节文本控件目录第二节按钮控件第三节单选按钮和复48引言VisualBasic是一种可视化的高级程序设计语言，不但具有所见即所得的优点，而且还提供了大量的Windows窗体控件。只要我们熟练掌握了这些控件的使用，就可以轻松编写出具有Windows风格的图形化界面的应用程序。本章将介绍VisualBasic中最基本的几个标准控件，更高级的复杂控件将在第八章详细介绍。引言VisualBasic是一种可视化的高级程序设计语言，49第一节文本控件3.1文本控件第一节文本控件3.1文本控件50第一节文本控件与文本有关的标准控件有两个：1.标签（Label）

程序在运行模式(RunMode)下，用户不能编辑其内容。一般用做其它控件的功能提示说明或者显示程序的运行结果。2.文本框（TextBox）

程序在运行模式(RunMode)下，用户可以编辑其显示内容，从而实现程序运行中的人机交互。一般用做输入信息。标签文本框第一节文本控件与文本有关的标准控件有两个：2.文本框（T51第一节文本控件3.1.1标签(Label)除前面讲过的常用属性Name，Top，Left，Height，Width，Visible，Font外，标签还具有以下属性:(1)Caption(标题)

该属性用于设置标签中显示的文本。该文本信息既可以在设计模式下通过属性窗口设置，也可以在运行模式下通过修改Caption属性来设置。例如，下面语句可将标签的显示文本更改为“消炎药品”：

Label1.Caption="消炎药品“Caption属性是“标签”控件的默认属性，即下面的写法与上面的属性赋值语句是一致的：

Label1=“消炎药品”注意：标签没有Text属性，这与下面讲到的文本框不同。第一节文本控件3.1.1标签(Label)52第一节文本控件(2)Alignment(对齐方式)

用于设置标签中文本的对齐方式，有三种取值情况：

0-LeftJustify(缺省)标签中的文本左对齐

1-RightJustify标签中的文本右对齐

2-Center标签中的文本居中对齐

(3)BackStyle(背景风格)

该属性用于设置标签的背景风格，有两种取值情况：

0-Transparent标签的背景为透明的，就像是在一块透明玻璃上书写文本一样，无论BackColor设为什么颜色都不会显示。

1–Opaque(缺省)标签的背景为非透明的，会遮挡标签后面的内容第一节文本控件(2)Alignment(对齐方式)

53第一节文本控件标签背景设置为透明：第一节文本控件标签背景设置为透明：54第一节文本控件(4)BorderStyle(边框风格)

该属性用于设置标签的边框风格，有两种取值情况：

0–None(缺省)标签无边框

1-FixedSingle标签有边框(5)Appearance(外观)

该属性用于设置标签外观是否具有立体的效果，有两种取值情况：

0-Flat标签为平面效果

1-3D(缺省)标签为立体效果

注意：显示3D效果的前提是将BorderStyle设置为1第一节文本控件(4)BorderStyle(边框风格)

55第一节文本控件(6)AutoSize(自动调整大小)

该属性用于设置标签的大小是否随标题文本大小的改变而改变，有两种取值情况：

True标签的大小随标题文本大小的改变而改变

False(缺省)当标题太长时，只显示其中的一部分内容(7)WordWrap(决定标签的大小是否与文字保持自动调整)

标签上显示的内容要是想分多行显示的话，要设置WordWrap属性为True,并且该属性生效必须设置AutoSize为True，否则不可以。总结：标签Caption属性显示的内容控制换行显示

Label1.Caption=“….”

&vbCrlf

&“….”Label1.caption=“….”

&Chr(13)&Chr(10)

&“….”第一节文本控件(6)AutoSize(自动调整大小)

56第一节文本控件3.1.2文本框(TextBox)文本框还具有以下属性:（1）Text(文本)该属性用于存放文本框中的文本信息包括在设计模式下对其赋值，或者在运算模式下，利用语句对其赋值，如：Text1.Text=“小鼠”其中，该属性为文本框Text1的默认属性，所以在对文本框的该属性赋值时，可省略Text不写，而直接写成：

Text1=“小鼠”和前面讲的标签不同，文本框没有Caption属性。（2）MaxLength(允许输入的最大字符数)

注意：MaxLength=0时，表示无字符个数限制(可以接收VisualBasic系统规定的最大字符数32K)第一节文本控件3.1.2文本框(TextBox)（1）T57第一节文本控件注意：在MultiLine为True的前提下，强制文本框内文本换行的方法为：

设计模式下，在Text属性中相应位置按下Ctrl+Enter

运行模式下，为Text属性赋值时相应位置加入“vbCrLf”

例如：Text1.text="抗癌"+vbCrLf+"新药物"(4)PassWordChar(文本框中用什么字符替代显示)

该属性一般用作口令的输入。该属性为空值时，表示显示原始信息。注意：虽然文本框中的数据没有真实地显示在用户面前,但却保存着真实的值。(3)MultiLine(多行显示)第一节文本控件注意：在MultiLine为True的前提下58第一节文本控件(5)ScrollBars(滚动条)四种取值情况:0-None(缺省)文本框中没有滚动条1-Horizontal只有水平滚动条2-Vertical只有垂直滚动条3-Both同时具有水平和垂直滚动条

注意：只有当MultiLine属性设置为True时，ScrollBars才生效。文本框中只要出现水平滚动条，那么文本框的自动换行功能将不生效，只能强制换行。

第一节文本控件(5)ScrollBars(滚动条)59第一节文本控件(6)Locked(锁定)

注意：当Locked=True时文本框外观无变化、可以接收焦点，用户不能修改文本框内容，只能通过代码修改Text属性。(7)Enabled(激活可操作)

注意：Enabled和Locked并不相同。Enabled为False时，外观变灰、不能接收焦点、用户不能编辑文本内容、可以通过代码修改Text属性。第一节文本控件(6)Locked(锁定)

注60第一节文本控件(8)

SelStart(从第几个字符后开始选择)、SelLength(选中了多少个字符)SelText(选中的具体文本内容)

应用举例：文本控件\文本框\文本框中字符的选择操作.vbp扩展练习：文本的复制当从文本框Text1中任意选择三个字符粘贴到文本框Text2中时，系统是如何知道在文本框Text1中选择的什么字符呢？第一节文本控件(8)SelStart(从第几个字符后开始61第一节文本控件文本框的常用事件和方法:(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.第一节文本控件文本框的常用事件和方法:62总结：KeyPress事件发生在文本框中的内容改变之前，当文本框内容改变后会触发Change事件（当在文本框中按下了某个字符键，在这个字符没有显示在文本框时就会触发KeyPress事件，然后字符显示在文本框，然后触发change事件）。当执行过程理解了之后，这两个事件各自执行完之后文本框中的内容是什么就很容易理解了。第一节文本控件文本框的KeyPress事件与Change事件举例总结：第一节文本控件文本框的KeyPress事件与Chan63第一节文本控件(3)GotFocus事件

运行模式下无论通过什么方式，只要光标焦点从其它控件进入该文本框就会触发GotFocus事件。(4)LostFocus事件

运行模式下无论通过什么方式，只要光标焦点从该文本框移走就会触发LostFocus事件。通常用来验证输入数据的合法性。

应用举例：通过LostFocus事件判断半径的合法性.vbp(5)SetFocus方法

功能是在运行模式下通过代码将光标焦点移动到指定的文本框中，语法为：

[对象名称.]SetFocus。第一节文本控件(3)GotFocus事件

运64第一节文本控件在Text1的LostFocus事件

如果Text1的文本内容不是数值则弹出错误提示信息否则如果Text1的文本内容是负数则弹出错误提示信息IfText1.text不是数值then

MsgBox“XX”

elseIfText1.text是负数thenMsgBox“XX”

EndifEndifIfIsNumeric(Text1.text)=False

then

MsgBox“非数值错误！请重新输入”

elseIfText1.text<0thenMsgBox“所输入的半径无效，请输入非负的数值！”

EndifEndif是否需要继续完善？第一节文本控件在Text1的LostFocus事件If65第二节按钮控件3.2按钮控件第二节按钮控件3.2按钮控件662.2按钮控件

VisualBasic中的按钮控件是命令按钮，它可能是VisualBasic应用程序中最常用的控件，提供了用户与应用程序交互最简便的方法。按钮2.2按钮控件VisualBasic中的按钮控件67第二节按钮控件3.2.1命令按钮(CommandButton)除前面讲过的常用属性外，命令按钮还具有以下属性:(1)Caption(标题)

该属性用于设置命令按钮上显示的文本，用以标明该命令按钮的功能。命令按钮的热键设置：在Caption属性中将某个字母的前面添加一个“&”字符，程序运行时该字母下就会出现一个下划线，此时利用鼠标单击该按钮与按下ALT+该字母的功能是等价的，我们把ALT+该字母称为该命令按钮的热键。命令按钮Name属性和Caption属性的区别（应用举例）：

Name属性对开发者有意义，用来在代码中区分不同对象

Caption属性对使用者有意义，说明对象的用途第二节按钮控件3.2.1命令按钮(CommandBu68第二节按钮控件(2)Default(默认对象或者说默认的确认功能按钮)例子

当一个命令按钮的Default属性设置为True时，如果目前焦点没有在其它命令按钮上，那么按键盘上的回车键与单击该命令按钮的作用相同。在一个窗体中，只允许有一个命令按钮的Default属性被设置为True。

(3)Cancel(默认的取消功能按钮)

当一个命令按钮的Cancel属性设置为True时，无论目前焦点在什么地方，按键盘上的Esc键与单击该命令按钮的作用相同。在一个窗体中，只允许有一个命令按钮的Cancel属性被设置为True。第二节按钮控件(2)Default(默认对象或者说默69第二节按钮控件(4)Style(外观风格)

该属性用于设置命令按钮的外观风格。有两种取值情况：0-Standard标准样式(缺省)命令按钮上只能显示文本内容(Caption属性)。

1-Graphical图形格式命令按钮上既可以显示文本内容，又可以显示图形(5)Picture(外观图片)

Style属性为1时，命令按钮上显示的图片。加载方法详见PictureBox。(6)ToolTipText(工具提示)

例子在运行状态下，当将鼠标停在某个按钮上时，会出现文字提示说明该按钮的作用。一般和Picture结合使用。第二节按钮控件(4)Style(外观风格)

70第二节按钮控件命令按钮常用的事件命令按钮最常用的事件是单击（Click）事件，说明（1）命令按钮不支持DblClick事件。（2）触发Click事件的方法有：a)用鼠标单击该命令按钮。b)用Tab键将焦点移动到该命令按钮上，击键盘上的空格键(或回车键)。c)利用Caption属性中设定的热键。d)对于Cancel属性为True的按钮，按下键盘上的Esc键。e)对于Default属性为True的按钮，当焦点不在其它命令按钮上时，按下键盘上的回车键。第二节按钮控件命令按钮常用的事件a)用鼠标单击该命令按71名称用途单选框OptionButton用户只能选择一项复选框CheckBox用户可以选择一个或者多个选项列表框ListBox用户可从中进行选择的滚动列表组合框ComboBox一个可滚动选择列表附加一个文本编辑域用户可以从表中选择或在编辑域中键入选择框架Frame（辅助）分组（单选）、视觉上的分区、总体的激活或者屏蔽选择性控件名称用途单选框OptionButton用户只能选择一项复选框72第三节单选钮和复选框3.3单选钮和复选框第三节单选钮和复选框3.3单选钮和复选框73第三节单选钮和复选框当需要为用户提供几种候选项供用户选择时，最常用的两种控件就是：单选按钮(OptionButton，又名收音机按钮RadioButton)和复选框(CheckBox)。单选按钮一组中只能选择一项，复选框一组中可以同时选择多项。例题。第三节单选钮和复选框当需要为用户提供几种候选项供用户选择时74第三节单选钮和复选框3.3.1重要属性单选钮和复选框除了常用属性还具有以下重要属性:(1)Value(选定状态)

用来设置和标识单选按钮和复选框的选定状态单选按钮的Value属性为布尔类型，有两种取值情况：

False(缺省)表明该单选钮未被选中

True表明该按钮处于被选中状态。复选框Value属性为数值型，有三种取值情况：

0–Unchecked(缺省)该复选项目前未被选中

1–Checked该复选项目前已经被选中

2–Grayed该复选框被禁止选择(灰色)通过Value属性判断某侯选项是否被选中.vbp第三节单选钮和复选框3.3.1重要属性75第三节单选钮和复选框(2)Alignment(对齐方式)

设置复选框或单选按钮控件标题的对齐方式（和标签的对齐方式意义不同），在设计模式和运行模式下均可设置。有两种取值情况：

0–VbLeftJustify(缺省)控件居左，标题在控件右侧显示

1–VbRightJustify控件居右，标题在控件左侧显示

第三节单选钮和复选框(2)Alignment(对齐方式)76第三节单选钮和复选框(3)Style(风格)

指定复选框或单选按钮的显示方式。有两种取值情况：0–VbButtonStandard(缺省)标准方式，同时显示控件和标题

1–VbButtonGraphical图形方式，控件用图形的样式显示，外观与命令按钮相类似复选框和单选按钮的风格比较.vbp第三节单选钮和复选框(3)Style(风格)

77第三节单选钮和复选框Click事件

单选钮和复选框都可以接受click事件，但是通常不对该事件过程编程（通常用户先对给出的选项进行选择，再单击某个具有“完成”功能的按钮，此时再根据用户的选择做出相应的设置）；如果想立即响应按钮的选择，则需要在click事件中编写代码。第三节单选钮和复选框Click事件78第三节单选钮和复选框3.3.2单选钮和复选框应用举例在窗体Form1上添加一个文本框Text1，将其Text属性修改为“青霉素是抗菌消炎药品”，Font属性设为宋体，四号。再添加两个单选钮Option1和Option2，将Caption属性分别设定为“隶书”和“黑体”。再添加两个复选框Check1和Check2，将Caption属性分别设定为“斜体”和“删除线”。要求：当单击某种字体名称或字体格式时，即时生效字符格式设定.vbp第三节单选钮和复选框3.3.2单选钮和复选框应用举例79第四节图形控件3.4图形控件第四节图形控件3.4图形控件80第四节图形控件为了设计内容丰富、界面美观的应用程序我们经常需要用到与图形相关的控件，常见的有：图片框（PictureBox）图像框（Image）直线（Line）形状（Shape）第四节图形控件为了设计内容丰富、界面美观的应用程序我们经常81第四节图形控件3.4.1PictureBoxPictureBox（图片框）控件的主要作用是显示图片，另外还可作为容器，像窗体一样容纳和分组其它控件及打印输出。1.重要属性(1)Align(停靠位置)

用于设置图片框在窗体上的位置，有以下几种取值情况：0–None（缺省）图片框的大小、位置由设计者手动设定

1–AlignTop上边缘自动与窗体上边缘对齐，宽度自动与窗体的宽度相同(之后调整窗体宽度时，图片框的宽度也自动改变)，高度保持原来高度不变(可以自行调整)。位置和宽度不可自行随意调整

2–AlignBottom

3–AlignLeft

4–AlignRight第四节图形控件3.4.1PictureBox82第四节图形控件(2)Picture(显示图片)

设置图片框上显示的图片。加载方法(同命令按钮):第一种：在设计模式下从属性窗口中添加/修改第二种：在运行模式下通过LoadPicture函数添加/修改，语法格式为：

[对象名.]Picture=LoadPicture(“带完整路径的图片文件名”)

装入图形：

Picture2.Picture=LoadPicture(“C:\animal\dog.bmp”)删除图形：Picture2.Picture=LoadPicture(“”)

将Pictrue1和Picture2中现有的图片进行交换：例子Picture3.Picture=Picture1.Picture

Picture1.Picture=Picture2.Picture

Picture2.Picture=Picture3.Picture第四节图形控件(2)Picture(显示图片)

83第四节图形控件(2)Appearance(外观)

设置图片框