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

《VB教学课件第三章【医药版】.ppt》由会员分享，可在线阅读，更多相关《VB教学课件第三章【医药版】.ppt（46页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第三章第三章第三章第三章 窗体和控件窗体和控件窗体和控件窗体和控件普通高等教育 “十一五”国家级规划教材全 国 高 等 医 药 院 校 药 学 类 规 划 教 材计算机程序设计计算机程序设计(第二版第二版)第一节第一节第一节第一节 文本控件文本控件文本控件文本控件目目 录录第二节第二节第二节第二节 按钮控件按钮控件第三节第三节第三节第三节 单选按钮和复选框单选按钮和复选框沈沈阳阳药药科科大大学学计计算算计计教教研研室室沈沈阳阳药药科科大大学学计计算算计计教教研研室室第五节第五节第五节第五节 焦点和焦点和焦点和焦点和TabTab顺序顺序顺序顺序第四节第四节第四节第四节 图形控件图形控件控件学习的

2、重点控件学习的重点:控件对象的三要素控件对象的三要素计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学引言引言Visual BasicVisual Basic是一种是一种是一种是一种可视化可视化可视化可视化的高级程序设计语言，不但具的高级程序设计语言，不但具的高级程序设计语言，不但具的高级程序设计语言，不但具有有有有所见即所得所见即所得所见即所得所见即所得的优点，而且还提供了大量的的优点，而且还提供了大量的的优点，而且还提供了大量的的优点，而且还提供了大量的WindowsWindows窗体控件窗体控件窗体控件

3、窗体控件。只要我们熟练掌握了这些控件的使用，就可以轻松编写出具有只要我们熟练掌握了这些控件的使用，就可以轻松编写出具有只要我们熟练掌握了这些控件的使用，就可以轻松编写出具有只要我们熟练掌握了这些控件的使用，就可以轻松编写出具有WindowsWindows风格的图形化界面的应用程序。风格的图形化界面的应用程序。风格的图形化界面的应用程序。风格的图形化界面的应用程序。本章将介绍本章将介绍本章将介绍本章将介绍Visual BasicVisual Basic中最基本的几个标准控件，更中最基本的几个标准控件，更中最基本的几个标准控件，更中最基本的几个标准控件，更高高高高级的复杂级的复杂级的复杂级的复杂控

4、件将在控件将在控件将在控件将在第八章详细第八章详细第八章详细第八章详细介绍。介绍。介绍。介绍。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件3.1 3.1 文本控件文本控件计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件与文本有关的标准控件有两个与文本有关的标准控件有两个与文本有关的标准控件有两个与文本有关的标准控件有两个：1 1.标签（标签（标签（标签（La

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

6、用户可以编辑其显示内下，用户可以编辑其显示内下，用户可以编辑其显示内下，用户可以编辑其显示内容容容容，从而实现，从而实现，从而实现，从而实现程序运行中的程序运行中的程序运行中的程序运行中的人机交互人机交互人机交互人机交互。一般用做输入信息。一般用做输入信息。一般用做输入信息。一般用做输入信息。标签标签文本框文本框计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件3.1.1 3.1.1 标签标签标签标签(Label)(Label)除前面讲过的常用属性除前面讲过的常用属性除前面讲过的

7、常用属性除前面讲过的常用属性NameName，TopTop，LeftLeft，HeightHeight，WidthWidth，VisibleVisible，FontFont外，标签还具有以下属性外，标签还具有以下属性外，标签还具有以下属性外，标签还具有以下属性:(1)Caption(1)Caption(标题标题标题标题)该属性用于设置标签中显示的文本。该文本信息既可以在该属性用于设置标签中显示的文本。该文本信息既可以在该属性用于设置标签中显示的文本。该文本信息既可以在该属性用于设置标签中显示的文本。该文本信息既可以在设计模式下通过属性窗口设置，也可以在运行模式下通过修改设计模式下通过属性窗口设

8、置，也可以在运行模式下通过修改设计模式下通过属性窗口设置，也可以在运行模式下通过修改设计模式下通过属性窗口设置，也可以在运行模式下通过修改CaptionCaption属性来设置。属性来设置。属性来设置。属性来设置。例如，下面语句可将标签的显示文本更改为例如，下面语句可将标签的显示文本更改为例如，下面语句可将标签的显示文本更改为例如，下面语句可将标签的显示文本更改为“消炎药品消炎药品消炎药品消炎药品”：Label1.Caption=Label1.Caption=消炎药品消炎药品消炎药品消炎药品“Caption属性是属性是“标签标签”控件的控件的默认属性默认属性，即下面的写法与上面的属，即下面的写

9、法与上面的属性赋值语句是一致的：性赋值语句是一致的：Label1=“消炎药品消炎药品消炎药品消炎药品”注意：标签没有注意：标签没有注意：标签没有注意：标签没有TextTextTextText属性属性属性属性，这与下面讲到的文本框不同。，这与下面讲到的文本框不同。，这与下面讲到的文本框不同。，这与下面讲到的文本框不同。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(2)Alignment(2)Alignment(对齐方式对齐方式对齐方式对齐方式)用于设置标签中文本的对齐方式，有

10、三种取值情况：用于设置标签中文本的对齐方式，有三种取值情况：用于设置标签中文本的对齐方式，有三种取值情况：用于设置标签中文本的对齐方式，有三种取值情况：0-Left Justify(0-Left Justify(缺省缺省缺省缺省)标签中的文本左对齐标签中的文本左对齐标签中的文本左对齐标签中的文本左对齐 1-Right Justify 1-Right Justify 标签中的文本右对齐标签中的文本右对齐标签中的文本右对齐标签中的文本右对齐 2-Center 2-Center 标签中的文本居中对齐标签中的文本居中对齐标签中的文本居中对齐标签中的文本居中对齐 (3)(3)BackStyle(Back

11、Style(背景风格背景风格背景风格背景风格)该属性用于设置标签的背景风格，有两种取值情况：该属性用于设置标签的背景风格，有两种取值情况：该属性用于设置标签的背景风格，有两种取值情况：该属性用于设置标签的背景风格，有两种取值情况：0-Transparent 0-Transparent 标签的背景为透明的，就像是在一块透明标签的背景为透明的，就像是在一块透明标签的背景为透明的，就像是在一块透明标签的背景为透明的，就像是在一块透明玻璃上书写文本一样，无论玻璃上书写文本一样，无论玻璃上书写文本一样，无论玻璃上书写文本一样，无论BackColorBackColor设为什么颜色都不会显设为什么颜色都不会

12、显设为什么颜色都不会显设为什么颜色都不会显示。示。示。示。1 Opaque(1 Opaque(缺省缺省缺省缺省)标签的背景为非透明的，会遮挡标签后标签的背景为非透明的，会遮挡标签后标签的背景为非透明的，会遮挡标签后标签的背景为非透明的，会遮挡标签后面的内容面的内容面的内容面的内容计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件标签背景设置为透明：标签背景设置为透明：标签背景设置为透明：标签背景设置为透明：计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机

13、程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(4)BorderStyle(4)BorderStyle(边框风格边框风格边框风格边框风格)该属性用于设置标签的边框风格，有两种取值情况：该属性用于设置标签的边框风格，有两种取值情况：该属性用于设置标签的边框风格，有两种取值情况：该属性用于设置标签的边框风格，有两种取值情况：0 None(0 None(缺省缺省缺省缺省)标签无边框标签无边框标签无边框标签无边框 1-Fixed Single 1-Fixed Single 标签有边框标签有边框标签有边框标签有边框(5)Appearance(5)Appear

14、ance(外观外观外观外观)该属性用于设置标签外观是否具有立体的效果，有两种取该属性用于设置标签外观是否具有立体的效果，有两种取该属性用于设置标签外观是否具有立体的效果，有两种取该属性用于设置标签外观是否具有立体的效果，有两种取值情况：值情况：值情况：值情况：0-Flat 0-Flat 标签为平面效果标签为平面效果标签为平面效果标签为平面效果 1-3D(1-3D(缺省缺省缺省缺省)标签为立体效果标签为立体效果标签为立体效果标签为立体效果 注意：显示注意：显示注意：显示注意：显示3D3D3D3D效果的前提是将效果的前提是将效果的前提是将效果的前提是将BorderStyleBorderStyleB

15、orderStyleBorderStyle设置为设置为设置为设置为1 1 1 1计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(6)AutoSize(6)AutoSize(自动调整大小自动调整大小自动调整大小自动调整大小)该属性用于设置标签的大小是否随标题文本大小的改变而改变，该属性用于设置标签的大小是否随标题文本大小的改变而改变，该属性用于设置标签的大小是否随标题文本大小的改变而改变，该属性用于设置标签的大小是否随标题文本大小的改变而改变，有两种取值情况：有两种取值情况：有

16、两种取值情况：有两种取值情况：True True 标签的大小随标题文本大小的改变而改变标签的大小随标题文本大小的改变而改变标签的大小随标题文本大小的改变而改变标签的大小随标题文本大小的改变而改变 False(False(缺省缺省缺省缺省)当标题太长时，只显示其中的一部分内容当标题太长时，只显示其中的一部分内容当标题太长时，只显示其中的一部分内容当标题太长时，只显示其中的一部分内容(7)WordWrap(7)WordWrap(决定标签的大小是否与文字保持自动调整决定标签的大小是否与文字保持自动调整决定标签的大小是否与文字保持自动调整决定标签的大小是否与文字保持自动调整)标签上显示的内容要是想分多

17、行显示的话，要设置标签上显示的内容要是想分多行显示的话，要设置标签上显示的内容要是想分多行显示的话，要设置标签上显示的内容要是想分多行显示的话，要设置WordWrapWordWrap属属属属性为性为性为性为True,True,并且该属性生效必须设置并且该属性生效必须设置并且该属性生效必须设置并且该属性生效必须设置AutoSizeAutoSize为为为为TrueTrue，否则不可以。，否则不可以。，否则不可以。，否则不可以。总结：总结：标签标签Caption属性显示的内容控制换行显示属性显示的内容控制换行显示 Label1.Caption=“.”&vbCrlf&“.”Label1.caption

18、=“.”&Chr(13)&Chr(10)&“.”计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件3.1.2 3.1.2 文本框文本框文本框文本框(TextBox)(TextBox)文本框还具有以下属性文本框还具有以下属性文本框还具有以下属性文本框还具有以下属性:（1 1）Text(Text(文本文本文本文本)该属性用于存放文本框中的文本信息该属性用于存放文本框中的文本信息该属性用于存放文本框中的文本信息该属性用于存放文本框中的文本信息 包括在设计模式下对其赋值，或者在运算模式下

19、，利用包括在设计模式下对其赋值，或者在运算模式下，利用包括在设计模式下对其赋值，或者在运算模式下，利用包括在设计模式下对其赋值，或者在运算模式下，利用语句对其赋值，如：语句对其赋值，如：语句对其赋值，如：语句对其赋值，如：Text1.Text=“Text1.Text=“小鼠小鼠小鼠小鼠”其中，该属性为文本框其中，该属性为文本框其中，该属性为文本框其中，该属性为文本框Text1Text1的默认属性，所以在对文本的默认属性，所以在对文本的默认属性，所以在对文本的默认属性，所以在对文本框的该属性赋值时，可省略框的该属性赋值时，可省略框的该属性赋值时，可省略框的该属性赋值时，可省略TextText不写

20、，而直接写成：不写，而直接写成：不写，而直接写成：不写，而直接写成：Text1=“Text1=“小鼠小鼠小鼠小鼠”和前面讲的标签不同，和前面讲的标签不同，和前面讲的标签不同，和前面讲的标签不同，文本框没有文本框没有文本框没有文本框没有CaptionCaption属性属性属性属性。（2 2）MaxLength(MaxLength(允许输入的最大字符数允许输入的最大字符数允许输入的最大字符数允许输入的最大字符数)注意：注意：注意：注意：MaxLength=0MaxLength=0时，表示无字符个数限制时，表示无字符个数限制时，表示无字符个数限制时，表示无字符个数限制(可以接收可以接收可以接收可以接

21、收Visual BasicVisual Basic系统规定的最大字符数系统规定的最大字符数系统规定的最大字符数系统规定的最大字符数32K)32K)计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件注意：注意：注意：注意：在在在在MultiLineMultiLine为为为为TrueTrue的前提下，强制文本框内文本换行的前提下，强制文本框内文本换行的前提下，强制文本框内文本换行的前提下，强制文本框内文本换行的方法为：的方法为：的方法为：的方法为：设计模式下，在设计模式下，在设计模式

22、下，在设计模式下，在TextText属性中相应位置按下属性中相应位置按下属性中相应位置按下属性中相应位置按下Ctrl+EnterCtrl+Enter 运行模式下，为运行模式下，为运行模式下，为运行模式下，为TextText属性赋值时相应位置加入属性赋值时相应位置加入属性赋值时相应位置加入属性赋值时相应位置加入“vbCrLf”“vbCrLf”例如：例如：例如：例如：Text1.text=Text1.text=抗癌抗癌抗癌抗癌+vbCrLf+vbCrLf+新药物新药物新药物新药物(4)PassWordChar(4)PassWordChar(文本框中用什么字符替代显示文本框中用什么字符替代显示文本框

23、中用什么字符替代显示文本框中用什么字符替代显示)该属性一般用作口令的输入。该属性为空值时，表示显该属性一般用作口令的输入。该属性为空值时，表示显该属性一般用作口令的输入。该属性为空值时，表示显该属性一般用作口令的输入。该属性为空值时，表示显示原始信息。示原始信息。示原始信息。示原始信息。注意：注意：注意：注意：虽然虽然虽然虽然文本框中的数据没有真实地显示在用户面前文本框中的数据没有真实地显示在用户面前,但却但却保存着真实的值。保存着真实的值。(3)MultiLine(3)MultiLine(多行显示多行显示多行显示多行显示)计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计

24、算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(5)ScrollBars(5)ScrollBars(滚动条滚动条滚动条滚动条)四种取值情况四种取值情况:0-None(缺省缺省)文本框中没有滚动条文本框中没有滚动条1-Horizontal 只有水平滚动条只有水平滚动条2-Vertical 只有垂直滚动条只有垂直滚动条3-Both 同时具有水平和垂直滚动条同时具有水平和垂直滚动条 注意：注意：注意：注意：只有当只有当MultiLine属性设置为属性设置为True时，时，ScrollBars才生效。才生效。文本框中只要出现水平滚动条，那么文本框的自动

25、换行功文本框中只要出现水平滚动条，那么文本框的自动换行功能将不生效，只能能将不生效，只能强制换行强制换行。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(6)Locked(6)Locked(锁定锁定锁定锁定)注意：注意：注意：注意：当当当当Locked=TrueLocked=True时文本框外观无变化、可以接收焦时文本框外观无变化、可以接收焦时文本框外观无变化、可以接收焦时文本框外观无变化、可以接收焦点，用户不能修改文本框内容，只能通过代码修改点，用户不能修改文本框内容，只能

26、通过代码修改点，用户不能修改文本框内容，只能通过代码修改点，用户不能修改文本框内容，只能通过代码修改TextText属性。属性。属性。属性。(7)Enabled(7)Enabled(激活可操作激活可操作激活可操作激活可操作)注意：注意：注意：注意：EnabledEnabled和和和和LockedLocked并不相同。并不相同。并不相同。并不相同。EnabledEnabled为为为为FalseFalse时，时，时，时，外观变灰、不能接收焦点、用户不能编辑文本内容、可以通过外观变灰、不能接收焦点、用户不能编辑文本内容、可以通过外观变灰、不能接收焦点、用户不能编辑文本内容、可以通过外观变灰、不能接收

27、焦点、用户不能编辑文本内容、可以通过代码修改代码修改代码修改代码修改TextText属性。属性。属性。属性。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(8)(8)SelStart(SelStart(从第几个字符从第几个字符从第几个字符从第几个字符后后后后开始选择开始选择开始选择开始选择)、SelLength(SelLength(选中了多少个字符选中了多少个字符选中了多少个字符选中了多少个字符)SelText(SelText(选中的具体文本内容选中的具体文本内容选中的具体文

28、本内容选中的具体文本内容)应用举例：应用举例：应用举例：应用举例：文本控件文本控件文本控件文本控件 文本框文本框文本框文本框 文本框中字符的选择操作文本框中字符的选择操作文本框中字符的选择操作文本框中字符的选择操作.vbp.vbp扩展练习：扩展练习：文本的复制文本的复制 当从文本框当从文本框Text1 中任意选择三个字符粘中任意选择三个字符粘贴到文本框贴到文本框Text2中时，系统是如何知道在文本框中时，系统是如何知道在文本框Text1中中选择的什么字符呢？选择的什么字符呢？计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科

29、大学沈阳药科大学第一节第一节 文本控件文本控件文本框的常用事件和方法文本框的常用事件和方法文本框的常用事件和方法文本框的常用事件和方法:(1)Change(1)Change事件事件事件事件 运行模式下无论通过什么方式（输入或者删除字符），只运行模式下无论通过什么方式（输入或者删除字符），只运行模式下无论通过什么方式（输入或者删除字符），只运行模式下无论通过什么方式（输入或者删除字符），只要文本框的内容发生改变，就会触发要文本框的内容发生改变，就会触发要文本框的内容发生改变，就会触发要文本框的内容发生改变，就会触发ChangeChange事件。事件。事件。事件。应用举例：应用举例：应用举例：应用

30、举例：通过通过通过通过ChangeChange事件即时计算圆的面积事件即时计算圆的面积事件即时计算圆的面积事件即时计算圆的面积.vbp.vbp(2)KeyPress(2)KeyPress事件事件事件事件 运行模式下，在文本框中按下键盘上某个具有字符编辑功运行模式下，在文本框中按下键盘上某个具有字符编辑功运行模式下，在文本框中按下键盘上某个具有字符编辑功运行模式下，在文本框中按下键盘上某个具有字符编辑功能的按键后，能的按键后，能的按键后，能的按键后，在文本框中的内容改变前，会触发在文本框中的内容改变前，会触发在文本框中的内容改变前，会触发在文本框中的内容改变前，会触发KeyPressKeyPre

31、ss事事事事件。件。件。件。应用举例：应用举例：应用举例：应用举例：通过通过通过通过KeyPressKeyPress事件使输入字符均为大写事件使输入字符均为大写事件使输入字符均为大写事件使输入字符均为大写.vbp.vbp 说明：说明：说明：说明：a a的的的的ASCIIASCII为为为为9797，z z的的的的ASCIIASCII为为为为122122，A A的的的的ASCIIASCII为为为为6565，Z Z的的的的ASCIIASCII为为为为90,90,0 0的的的的ASCIIASCII为为为为48.48.回车的回车的回车的回车的ASCIIASCII为为为为13.13.计算机程序设计计算机程

32、序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学总结：总结：KeyPress事件发生在文本框中的内容改变之前，事件发生在文本框中的内容改变之前，当文本框内容改变后会触发当文本框内容改变后会触发Change事件事件（当在文本框（当在文本框中按下了某个字符键，在这个字符没有显示在文本框时中按下了某个字符键，在这个字符没有显示在文本框时就会触发就会触发KeyPress事件，然后字符显示在文本框，然后事件，然后字符显示在文本框，然后触发触发change事件）。事件）。当执行过程理解了之后，这两个事当执行过程理解了之后，这两个事件各自执行

33、完之后文本框中的内容是什么就很容易理解件各自执行完之后文本框中的内容是什么就很容易理解了。了。第一节第一节 文本控件文本控件文本框的文本框的KeyPress事件与事件与Change事件举例事件举例计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件(3)GotFocus(3)GotFocus事件事件事件事件 运行模式下无论通过什么方式，运行模式下无论通过什么方式，运行模式下无论通过什么方式，运行模式下无论通过什么方式，只要光标只要光标只要光标只要光标焦点焦点焦点焦点从其它控件进从其

34、它控件进从其它控件进从其它控件进入该文本框就会触发入该文本框就会触发入该文本框就会触发入该文本框就会触发GotFocusGotFocus事件事件事件事件。(4)(4)LostFocusLostFocus事件事件事件事件 运行模式下无论通过什么方式，运行模式下无论通过什么方式，运行模式下无论通过什么方式，运行模式下无论通过什么方式，只要光标焦点从只要光标焦点从只要光标焦点从只要光标焦点从该该该该文本框移文本框移文本框移文本框移走就会触发走就会触发走就会触发走就会触发LostFocusLostFocus事件事件事件事件。通常用来验证输入数据的合法性。通常用来验证输入数据的合法性。通常用来验证输入数

35、据的合法性。通常用来验证输入数据的合法性。应用举例：应用举例：应用举例：应用举例：通过通过通过通过LostFocus LostFocus 事件判断半径的合法性事件判断半径的合法性事件判断半径的合法性事件判断半径的合法性.vbp.vbp(5)(5)SetFocusSetFocus方法方法方法方法 功能是功能是功能是功能是在运行模式下通过代码在运行模式下通过代码在运行模式下通过代码在运行模式下通过代码将光标焦点移动到指定的文本将光标焦点移动到指定的文本将光标焦点移动到指定的文本将光标焦点移动到指定的文本框中框中框中框中，语法为：，语法为：，语法为：，语法为：对象名称对象名称对象名称对象名称.Set

36、Focus.SetFocus。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第一节第一节 文本控件文本控件在在Text1的的LostFocus事件事件 如果如果Text1的文本内容不是数值则的文本内容不是数值则 弹出错误提示信息弹出错误提示信息否则否则 如果如果Text1的文本内容是负数则的文本内容是负数则 弹出错误提示信息弹出错误提示信息If Text1.text不是数值不是数值 then MsgBox“XX”else If Text1.text是负数是负数 then MsgBox“XX”End ifE

37、nd ifIf IsNumeric(Text1.text)=False then MsgBox“非数值错误！请重新输入非数值错误！请重新输入”else If Text1.text0 then MsgBox“所输入的半径无效，请输入非负的数值！所输入的半径无效，请输入非负的数值！”End ifEnd if是否需要继续完善？是否需要继续完善？计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第二节第二节 按钮控件按钮控件3.2 3.2 按钮控件按钮控件计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药

38、科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学2.2 2.2 按钮控件按钮控件 Visual BasicVisual Basic中的按钮控件是命令按钮，它可能是中的按钮控件是命令按钮，它可能是Visual BasicVisual Basic应用程序中最常用的控件，提供了用户与应用应用程序中最常用的控件，提供了用户与应用程序交互最简便的方法。程序交互最简便的方法。按钮按钮计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第二节第二节 按钮控件按钮控件3.2.1 3.2.1 命令按钮命

39、令按钮命令按钮命令按钮(Command Button)(Command Button)除前面讲过的常用属性外，命令按钮还具有以下属性除前面讲过的常用属性外，命令按钮还具有以下属性除前面讲过的常用属性外，命令按钮还具有以下属性除前面讲过的常用属性外，命令按钮还具有以下属性:(1)Caption(1)Caption(标题标题标题标题)该属性用于设置命令按钮上显示的文本，用以标明该命令该属性用于设置命令按钮上显示的文本，用以标明该命令该属性用于设置命令按钮上显示的文本，用以标明该命令该属性用于设置命令按钮上显示的文本，用以标明该命令按钮的功能。按钮的功能。按钮的功能。按钮的功能。命令按钮的热键设置命

40、令按钮的热键设置命令按钮的热键设置命令按钮的热键设置：在在在在CaptionCaption属性中将某个字母的前属性中将某个字母的前属性中将某个字母的前属性中将某个字母的前面添加一个面添加一个面添加一个面添加一个“&”&”字符字符字符字符，程序运行时该字母下就会出现一个下，程序运行时该字母下就会出现一个下，程序运行时该字母下就会出现一个下，程序运行时该字母下就会出现一个下划线，此时利用鼠标单击该按钮与按下划线，此时利用鼠标单击该按钮与按下划线，此时利用鼠标单击该按钮与按下划线，此时利用鼠标单击该按钮与按下ALT+ALT+该字母的功能是该字母的功能是该字母的功能是该字母的功能是等价的，我们把等价的

41、，我们把等价的，我们把等价的，我们把ALT+ALT+该字母称为该命令按钮的热键。该字母称为该命令按钮的热键。该字母称为该命令按钮的热键。该字母称为该命令按钮的热键。命令按钮命令按钮命令按钮命令按钮NameNameNameName属性和属性和属性和属性和CaptionCaptionCaptionCaption属性的区别（属性的区别（属性的区别（属性的区别（应用举例应用举例应用举例应用举例）：）：）：）：NameName属性对开发者有意义，用来在代码中区分不同对象属性对开发者有意义，用来在代码中区分不同对象属性对开发者有意义，用来在代码中区分不同对象属性对开发者有意义，用来在代码中区分不同对象 C

42、aptionCaption属性对使用者有意义，说明对象的用途属性对使用者有意义，说明对象的用途属性对使用者有意义，说明对象的用途属性对使用者有意义，说明对象的用途计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第二节第二节 按钮控件按钮控件(2)Default(2)Default(默认对象或者说默认的确认功能按钮默认对象或者说默认的确认功能按钮默认对象或者说默认的确认功能按钮默认对象或者说默认的确认功能按钮)例子例子例子例子 当一个命令按钮的当一个命令按钮的当一个命令按钮的当一个命令按钮的DefaultDe

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

44、设置为属性被设置为属性被设置为TrueTrue。(3)Cancel(3)Cancel(默认的取消功能按钮默认的取消功能按钮默认的取消功能按钮默认的取消功能按钮)当一个命令按钮的当一个命令按钮的当一个命令按钮的当一个命令按钮的CancelCancel属性设置为属性设置为属性设置为属性设置为TrueTrue时，时，时，时，无论目前焦无论目前焦无论目前焦无论目前焦点在什么地方点在什么地方点在什么地方点在什么地方，按键盘上的，按键盘上的，按键盘上的，按键盘上的EscEsc键与单击该命令按钮的作用相键与单击该命令按钮的作用相键与单击该命令按钮的作用相键与单击该命令按钮的作用相同。同。同。同。在一个窗体中

45、，只允许有一个命令按钮的在一个窗体中，只允许有一个命令按钮的在一个窗体中，只允许有一个命令按钮的在一个窗体中，只允许有一个命令按钮的CancelCancel属性被设属性被设属性被设属性被设置为置为置为置为TrueTrue。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第二节第二节 按钮控件按钮控件(4)Style(4)Style(外观风格外观风格外观风格外观风格)该属性用于设置命令按钮的外观风格。有两种取值情况：该属性用于设置命令按钮的外观风格。有两种取值情况：该属性用于设置命令按钮的外观风格。有两种取值

46、情况：该属性用于设置命令按钮的外观风格。有两种取值情况：0-Standard0-Standard标准样式标准样式标准样式标准样式(缺省缺省缺省缺省)命令按钮上只能显示文本内命令按钮上只能显示文本内命令按钮上只能显示文本内命令按钮上只能显示文本内容容容容(Caption(Caption属性属性属性属性)。1-Graphical1-Graphical图形格式图形格式图形格式图形格式 命令按钮上既可以显示文本内容，命令按钮上既可以显示文本内容，命令按钮上既可以显示文本内容，命令按钮上既可以显示文本内容，又可以显示图形又可以显示图形又可以显示图形又可以显示图形(5)Picture(5)Picture(

47、外观图片外观图片外观图片外观图片)StyleStyle属性为属性为属性为属性为1 1时，命令按钮上显示的图片。加载方法详见时，命令按钮上显示的图片。加载方法详见时，命令按钮上显示的图片。加载方法详见时，命令按钮上显示的图片。加载方法详见PictureBoxPictureBox。(6)ToolTipText(6)ToolTipText(工具提示工具提示工具提示工具提示)命令按钮命令按钮命令按钮命令按钮/tooltiptext%E5%B1%9E%E6%80%A7.vbp/tooltiptext%E5%B1%9E%E6%80%A7.vbp在运行状态下，当将鼠标停在某个按钮上时，会出现在运行状态下，当

48、将鼠标停在某个按钮上时，会出现在运行状态下，当将鼠标停在某个按钮上时，会出现在运行状态下，当将鼠标停在某个按钮上时，会出现文字文字文字文字提示说明该按钮的作用。一般和提示说明该按钮的作用。一般和提示说明该按钮的作用。一般和提示说明该按钮的作用。一般和PicturePicture结合使用。结合使用。结合使用。结合使用。计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学计算机程序设计计算机程序设计(第二版第二版)沈阳药科大学沈阳药科大学第二节第二节 按钮控件按钮控件命令按钮常用的事件命令按钮常用的事件命令按钮常用的事件命令按钮常用的事件命令按钮最常用的事件是单击（命令按钮最常用的

49、事件是单击（命令按钮最常用的事件是单击（命令按钮最常用的事件是单击（ClickClick）事件）事件）事件）事件，说明，说明，说明，说明（1 1）命令按钮不支持）命令按钮不支持）命令按钮不支持）命令按钮不支持DblClickDblClick事件。事件。事件。事件。（2 2）触发）触发）触发）触发ClickClick事件的方法有：事件的方法有：事件的方法有：事件的方法有：a)a)用鼠标单击该命令按钮。用鼠标单击该命令按钮。用鼠标单击该命令按钮。用鼠标单击该命令按钮。b)b)用用用用TabTab键将焦点移动到该命令按钮上，击键盘上的空格键将焦点移动到该命令按钮上，击键盘上的空格键将焦点移动到该命令

50、按钮上，击键盘上的空格键将焦点移动到该命令按钮上，击键盘上的空格键键键键(或回车键或回车键或回车键或回车键)。c)c)利用利用利用利用CaptionCaption属性中设定的热键。属性中设定的热键。属性中设定的热键。属性中设定的热键。d)d)对于对于对于对于CancelCancel属性为属性为属性为属性为TrueTrue的按钮，按下键盘上的的按钮，按下键盘上的的按钮，按下键盘上的的按钮，按下键盘上的EscEsc键。键。键。键。e)e)对于对于对于对于DefaultDefault属性为属性为属性为属性为TrueTrue的按钮，当焦点不在其它命令按的按钮，当焦点不在其它命令按的按钮，当焦点不在其它