《新编Visual-Basic程序设计教程》第6章.pptx

《《新编Visual-Basic程序设计教程》第6章.pptx》由会员分享，可在线阅读，更多相关《《新编Visual-Basic程序设计教程》第6章.pptx（111页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第6 6章章 Visual BasicVisual Basic常用标准控件常用标准控件文本控件文本控件图形控件图形控件按钮控件按钮控件直线和形状直线和形状复选框和单选按钮复选框和单选按钮列表框和组合框控件列表框和组合框控件框框 架架滚动条滚动条计时器控件计时器控件6.1 6.1 文本控件文本控件在前面各章节的学习中，我们做的一些VB的应用程序用到的与文本有关的控件有两类：标签和文本框。对于这两个控件我们已经有了简单的了解，本节将对这两个控件的属性、事件和方法作系统介绍。在VB的工具箱中，标签控件和文本框控件如下图所示，标签的默认名称（Name）和标题（Caption）为Labelx（x为1，

2、2，3）；文本框的默认名称（Name）和文本（Text）属性为Textx（x为1，2，3）。标签和文本框图标6.1.1 6.1.1 6.1.1 6.1.1 标签（标签（标签（标签（LabelLabelLabelLabel）控件）控件）控件）控件标签中可以显示文本信息，但是不能接收用户的输入，因此标签通常用于以下场合：输出文字而不希望用户改变其中内容的情况；用于显示提示内容；用作命令选项，代替命令按钮，来引发相应的事件子程序。1标签的常用属性标签的常用属性标签的部分属性和窗体及其他控件的某些属性相同，包括：FontBold、FontItalic、FontName、FontSize、FontUnd

3、erline、Height、Width、Top、Left、Name、Visible。其中，标签独有属性的说明如下。（1）Caption该属性用来设置显示在标签上的文本。（2）Alignment设置标签中显示的文本的对齐方式，属性值可以为0、1或2，其作用如下：0LeftJustify从标签的左边开始显示标题（默认）；1RightJustify文字右对齐。2Center标题居中显示。（3）AutoSize该属性用来设置控件是否能够自动调整大小，显示所有的文本内容。当属性值为“True”时，标签能够根据文本内容的多少自动调整大小；当属性值为“False”时，标签大小不会发生改变。默认的属性值为“F

4、alse”。（4）BackColor设置标签的背景颜色。注意：只有当Backstyle的属性值为“1”时，Backcolor属性设置的背景颜色才有效。（5）BackStyle该属性可以取两个值，即“0”和“1”。当值为“1”时，标签将覆盖背景；当值为“0”时，标签是透明的。默认值为“1”。该属性可以在属性窗口中设置，也可以通过程序代码设置，其格式为：对象.BackStyle=0或1，这里的“对象”可以是标签、OLE控件和形状控件。（6）BorderStyle该属性用来设置标题的边框，可以取两种值，即“0”或“1”。该属性的默认值是“0”，标签无边框；如果需要为标签加上边框，则应该将该属性值改变

5、为“1”。（7）Enabled该属性返回或设置一个值，用来确定一个窗体或控件是否响应用户产生的事件（即该对象是否可用）。可以通过属性窗口或程序代码设置，格式如下：这里的对象可以是窗体或控件，Enabled的属性值是Boolean类型。如果属性为“true”，允许响应用户生成事件；如果属性为“false”，则不允许响应用户生成事件。（8）WordWrap如果在AutoSize属性被设置为True，那么当我们将WordWrap属性设置为True，则标签将在垂直方向改变大小，与标题文本相适应。水平方向的大小与原来所画标签相同。对象.Enabled=Boolean2标签可以响应的事件标签可以响应的事件

6、标签可以响应的事件很多，常用的是Click事件和DblClick事件。下面我们通过例6.1学习使用标签的基本方法。例例6.1设计一个程序，当窗体被加载时标签显示“欢迎进入VB系统！”；当用鼠标单击该标签时，由标签输出“祝您成功！”；当用鼠标双击标签结束程序的运行。分析：在这个例子中用到的对象不多，仅有两个：窗体和标签，表6-1列出了各对象的属性设置值。编写程序代码：（1）窗体被加载时标签显示“欢迎进入VB系统！”PrivateSubForm_Load()Label1.Caption=欢迎您进入VB系统！EndSub对象属性设置值Form1Caption 标签使用练习Label1Caption

7、空fontsize12程序中的对象及属性值（2）当用鼠标单击该标签时，由标签输出“祝您成功！”（3）鼠标双击标签结束程序的运行PrivateSubLabel1_Click()Label1.Caption=祝您成功！EndSubPrivateSubLabel1_DblClick()EndEndSub程序运行后，显示左图所示窗体。用鼠标在标签上单击，显示右图所示的窗体。用鼠标在标签上双击，应用程序结束。程序运行结果单击标签所示的窗体6.1.2 6.1.2 6.1.2 6.1.2 文本框（文本框（文本框（文本框（Text BoxText BoxText BoxText Box）控件）控件）控件）控件

8、文本框控件即可以显示文本，又可以输入文本，在设计阶段或运行期间可以在文本框区域中显示、输入和编辑文本，功能相当于一个简单的文本编辑器。文本框通常用于输入输出数字和文本信息。也可以作为文本处理的窗口。与LabelBox（标签）的主要区别在于：在程序执行中标签只可输出，而TextBox（文本框）在程序执行时即可输出信息，又可以让用户修改编辑其中的文本内容。1文本框的常用属性文本框的常用属性前面介绍的一些属性可以用于文本框，这些属性包括FontBold、FontItalic、FontName、FontSize、FontUnderline、Height、Width、Top、Left、Name、Visi

9、ble、BorderStyle、Enabled。此外文本框还拥有以下属性：（1）Text设置输入输出的字符。该属性是文本框对象的主要属性，文本框中显示的内容就是由该属性设置。Text属性的设置可以在属性窗口中操作，当然也可以通过编写代码实现，例如：将在文本框Text1中显示“VB程序设计”。Text1.Text=VB程序设计（2）MaxLength返回或设置文本框中可输入的字符的最大数。如果该属性被设置为“0”，则在文本框中输入的字符数不能超过32K（多行文本），该属性的默认值为0。（3）MultiLine该属性用来设置文本框中是否可以显示多行文本。如果把该属性设置为“False”，则在文本框

10、内只能输入单行文本；当MultiLine属性被设置为“True”时，可以使用多行文本。该属性的默认值是“False”。（4）PasswordChar该属性决定是否在文本框中显示用户键入字符。当我们想对输入的数据进行保密时，我们可以使用这个属性，将该属性的值设置为一个字符，那么用户由键盘键入的任何字符都将被我们在PasswordChar属性中设置的那个字符所覆盖，从而达到数据保密的效果。不过文本框中实际输入的内容还是原来的内容，用这一特性可以设置口令（即验证密码）。（5）ScrollBars该属性用来设置文本框是否有垂直和水平滚动条。该属性可以设置的值有三个，其含义分别为：0None文本框中没有

11、滚动条；1Horizontal只有水平滚动条；2Vertical只有垂直滚动条；3Both同时具有水平和垂直滚动条。下面要介绍的三个属性是一组，都是对文本框中的选择文本进行设置的属性。这三个属性的设置只有在运行期间才能进行，也就是说，这三个属性的值只能通过编写代码来进行设置。（6）SelLength该属性返回当前选中的字符数。当在文本框中选择文本时，该属性会随着选择字符的多少而改变；也可以在程序代码中把该属性设置为一个整数值，由程序来改变选择。如果SelLength属性值为“0”，表示未选中任何字符。（7）SelStart设置选中文本的起始位置。如为“0”表示选择的开始位置在第一个字符之前，如

12、为“1”表示选择的开始位置在第二个字符之前，依此类推。（8）SelText该属性含有当前选择的文本字符串。如没有选择文本，则该属性含有一个空字符串；如果在程序中设置SelText属性，则用该值代替文本框中选中的文本。例如，假如文本框中有这样一行字符：中国北京现在我们选择“北京”这两个字符，则执行语句后，文本框中的文本就会变为：中国上海市在这种情况下，SelLength的值将会随之发生改变，SelStart的值不会受到影响。（9）Locked该属性决定文本框中显示的内容能否被编辑。当设置值为“False”(默认值)时，可以编辑文本框中的文本；当设置值为“True”时不能编辑。Text1.SelT

13、ext=上海市2文本框的事件文本框的事件文本框支持的事件主要有Click、DblClick、Change、GotFocus、LostFocus等。Click、DblClick事件我们在前面已经用过很多，在这里就不再赘述了，下面我们介绍Change、GotFocus、LostFocus这三种文本框事件。（1）Change当文本框中显示的内容发生改变时，就会引发Change事件。例例6.2编写程序使用change事件。在这个程序中，我们使用三个对象分别是窗体和两个文本框，具体的对象及属性设置值如下表所示。对象属性设置值Form1Caption Change 事件Text1TextText2Text

14、 对象的属性值设置程序代码如下：当程序运行后，在Text1中输入英文字符串时，就会在Text2中得到大写的字符串。比如在程序运行后，在Text1中输入英文字符串“visualbasic6.0”后，窗体显示如下图所示。PrivateSubText1_Change()Text2.Text=UCase(Text1.Text)EndSubchange事件的运行结果（2）GotFocus当文本框中有输入焦点，即文本框控件是当前的活动控件，就会引发GotFocus事件。文本框只有被激活而且其Visible属性和Enabled属性均为“True”时才能接收到焦点。（3）LostFocus当文本框控件失去焦点

15、，即用户由键盘键入的字符不能显示在文本框中的时候，就会引发LostFocus事件。下面我们通过例6.3来测试一下GotFocus和LostFocus事件例例6.3编写程序测试GotFocus和LostFocus事件。在这个测试程序中，我们使用三个对象分别是：窗体、命令按钮和文本框。这些对象的属性的初始值如下表所示。对象属性设置值Form1Caption Gotfocus 和lostfocusCommand1Caption 失去焦点Text1Text 对象的属性值设置编写代码如下：在这个程序里面编写了两个事件过程分别是Text1_GotFocus()和Text1_LostFocus()，当文本框

16、接收到焦点就会执行Text1_GotFocus()中的代码；当文本框失去焦点就会执行Text1_LostFocus()中的代码。PrivateSubText1_GotFocus()Text1.FontSize=18Text1.ForeColor=RGB(255,0,0)Text1.Text=得到焦点EndSubPrivateSubText1_LostFocus()Text1.FontSize=18Text1.ForeColor=RGB(0,0,255)Text1.Text=失去焦点EndSub程序运行后，当文本框接收到焦点时，窗体显示如左图所示；当我们单击“失去焦点”按钮，此时文本框失去焦点，

17、窗体显示如右图所示。接收焦点失去焦点3文本框的方法文本框的方法文本框中较常用的方法是设置焦点SetFocus，其格式如下：该方法可以把输入光标移动到指定的对象，在文本框中使用SetFocus方法时，可以把光标移动到指定的文本框中，那么此时用户键入的任何字符都会出现在该文本框中。需要注意的是，如果程序中需要用到文本控件时，应该根据文本控件应该具备的功能进行选择。一般的原则是：如果不需要用户输入文本内容，可以选择使用标签，否则只能使用文本框。对象.SetFocus6.2 6.2 图形控件图形控件在VB中专门用来显示图片的控件有两个，一个是图片框，另一个是图像框。图片框默认的名称为Picturex（

18、x为1，2，3），图像框默认的名称Imagex（x为1，2，3）。两种控件都能显示多种格式的图形文件，最主要的区别是：图像框不能作为父控件，而且不能通过Print方法接收文本。下面就来详细介绍图片框和图像框控件的主要属性、事件和方法。图片框和图像框控件6.2.1 6.2.1 6.2.1 6.2.1 图片框控件图片框控件图片框控件图片框控件图片框控件的类型名称是PictureBox，可以用来显示图形、图画或代替命令按钮，还可以作为其他控件的父控件。1CurrentX和和CurrentY属性属性用来设置下一个输出的水平坐标（CurrentX）和垂直坐标（CurrentY）。这两个属性只能在运行期间

19、使用，格式如下：“对象”可以是窗体、图片框和打印机，x和y表示以twip为单位的坐标值。如省略=x和=y，则显示当前的坐标值，如省略“对象”则表示是默认对象当前窗体。对象.CurrentX=x对象.CurrentY=y2Picture属性属性用来设置要显示的图片，Picture属性的设置可以在设计阶段进行，也可以在程序运行过程中实现（即通过编写代码实现）。图片框中可以显示的图片类型包括以下几种：（1）位图文件，扩展文件名为.bmp或.dib。（2）图标文件，扩展文件名为.ico或.cur。（3）图形文件，扩展文件名为.wmf或.emf。（4）JPEG文件，扩展文件名为.jpg。（5）GIF文件

20、，扩展文件名为.gif此外，有关图形文件的两种装入方法，我们将在后面专门介绍。3AutoSize属性属性自动调整大小，默认值为“False”，表示图片框的大小不变，值为“Ture”表示图片框大小能随图片的大小自动调整。图片框的常用事件是Click和DblClick，常用的方法有前面讲过Print方法和Cls方法，这里不再赘述。6.2.2 6.2.2 6.2.2 6.2.2 图像框控件图像框控件图像框控件图像框控件图象框的类型名称是ImageBox。和图片框相似，图像框可以用来显示图形、图像或代替命令按钮。这两个控件的最大区别在于图像框不能作为父控件，图片框适用动态环境，图像框适用于静态情况。下

21、面介绍图像框的常用属性。（1）Picture属性用来存放图形文件，适用的图形文件与前面介绍的图片框相同。（2）Stretch属性伸缩属性，默认值为“False”，表示不可伸缩，即图形大小不变，但是图像框会改变大小以使图形充满整个图像框；当属性为“True”表示可以伸缩，即图形可以改变大小充满图象框，而图像框大小不变，所以可以用这个属性达到放大或缩小图片的功能。图像框的常用事件是Click，对象的单击事件可以引发相应的事件子程序。6.2.3 6.2.3 6.2.3 6.2.3 装入图形文件装入图形文件装入图形文件装入图形文件装入图形文件的方法有两类，一个是在设计阶段装入图形文件，一个是在运行时装

22、入图形文件。其中，在设计阶段装入图形文件有以下两种方法。1通过设置通过设置Picture属性装入属性装入（1）在窗体上建立一个图片框（或图像框）。（2）单击图片框（或图像框），使其成为活动控件，在属性窗口找到Picture并单击，其右侧会出现一个三点按钮。（3）单击三点按钮，会出现右图所示“加载图片”对话框。（4）在指定位置找到所要的文件，单击选取该文件，单击“打开”按钮，就可以实现图片的加载。“加载图片”对话框2使用剪贴板粘贴图形文件到图片框（或图像框）使用剪贴板粘贴图形文件到图片框（或图像框）（1）在窗体上建立图片框（或图像框）。（2）复制要粘贴的图形文件到剪贴板。（3）保持图片框（或图像

23、框）为活动状态，选择“编辑”菜单中的“粘贴”命令，即完成图形文件的加载。在运行阶段可以通过LoadPicture函数加载图片，方法如下：（1）在窗体上建立图片框（或图像框）对象。（2）编写代码，通过LoadPicture函数实现运行阶段图形文件的加载，其一般格式为：这里的文件名是在图片框（或图像框）中加载的图形文件完整的文件名（路径文件名.扩展文件名）。假如我们想装入的图形文件的完整文件名为c:pictureabc.jpg，图形文件的装入对象是Picture1，那么应该使用的语句如下：对象.Picture=LoadPicture（文件名）Picture1.Picture=LoadPicture

24、(c:pictureabc.jpg“)装入图片框的图形文件可以拷贝到另一个图片框中。例如，如果想把Picture1中的图片拷贝到Picture2中，可以使用下面的语句：图片框中的图形文件可以通过LoadPicture函数进行删除。例如，要想删除Picture1中的图片，可以使用下面的语句例例6.4在运行阶段加载图形文件的应用举例。假设要加载的图形文件的完整的文件名为：f:动画图片kitty.gif。在这个程序中，需要三个对象，分别为窗体、图片框和命令按钮，具体的属性设置如下表所示。Picture2.Picture=Picture1.PicturePicture1.Picture=LoadPic

25、ture()对象属性设置值Form1Caption加载图片Picture1AutoSize TrueCommand1Caption 加载图片属性设置程序运行后，单击Command1，就会加载指定的图片，其程序代码如下：PrivateSubCommand1_Click()Picture1.Picture=LoadPicture(f:动画图片kitty.gif)EndSub运行程序，单击Command1，窗体显示如右图所示。尽管在设计阶段和运行阶段都可以加载图片，但值得注意的是，如果选择在运行期间加载图片时，必须保证相应的文件存在（即完整的文件名是正确的，可以找到该图片），否则图片的加载会出错。因

26、此，在设计阶段加载图片更为安全一些，但是会导致窗体文件（.frm）较大。加载图片6.2.4 6.2.4 6.2.4 6.2.4 图片框和图像框的主要区别图片框和图像框的主要区别图片框和图像框的主要区别图片框和图像框的主要区别图片框和图像框的功能相似，主要就是显示图形文件。二者之间也存在着一些差异，主要包括以下几点：（1）图片框是容器控件，可以作为父控件，在其上可以在建立其他的控件，而图像框不具备这个功能。在存在容器控件的窗体中，我们可以说窗体的显示分为三层：第一层是直接显示在窗体上的信息，构成了底层；第二层是容器控件（即图片框和框架控件），构成了中间层；第三层是容器控件上的其他控件显示在顶层。

27、（2）图片框可以使用Print方法接收文本和由像素组成的图形，而图像框不能。（3）图片框和图像框都有边框属性（BorderStyle），图片框的预设值为“1”（有边框），而图像框的默认值为“0”（无边框），所以当我们建立一个图像框，默认情况是没有边框的。如想添加边框，可以通过设置它的边框属性来完成。（4）图片框支持各种方法的绘图，而图像框则不支持绘图。（5）图片框占用的内存空间较大，图像框占用的内存空间小，显示速度快。所以当用图像框就能解决问题的时候，应该尽可能使用图像框。6.2.5 6.2.5 6.2.5 6.2.5 图形控件的应用举例图形控件的应用举例图形控件的应用举例图形控件的应用举例在

28、前面的学习中，我们对图形控件的常用属性、事件和方法以及主要功能有了一个基本了解。下面我们通过两个例子练习一下所学知识。例例6.5设计一个程序完成对一个图形的放大和缩小。在本程序中需要用到的对象有窗体、图像框和两个命令按钮。图形文件在设计阶段加载，相应的对象属性设置如下表所示。对象属性设置值Form1 Caption 放大缩小图片Image1 Borderstyle 1Image1 Picture 要加载的图片的文件名：f:动画图片duck.gifImage1Stretch True Command1 Caption1 放大Command2 Caption2 缩小属性设置程序代码：定义了每次放大

29、或缩小的改变量DimdeltaAsInteger放大图片PrivateSubCommand1_Click()Image1.Width=Image1.Width+deltaImage1.Height=Image1.Height+deltaEndSub缩小图片PrivateSubCommand2_Click()Image1.Width=Image1.Width-deltaImage1.Height=Image1.Height-deltaEndSubPrivateSubForm_Load()delta=100EndSub程序运行界面如下图所示。程序运行后，单击“放大”按钮，图片会放大。同样，单击“缩

30、小”按钮，图片会缩小。本例主要利用图像框的“Stretch”属性（值为“true”）进行图片的放大或缩小。图片的放大和缩小例例6.6编写程序，完成两个在设计阶段加载的图片的交换。该程序用图片框或图像框都能实现。为了尽可能节省内存空间，我们选择使用图像框（Image）。此外，为了实现图片的交换，必须要有一个中间的图形控件来存放其中的一个图形文件。所以该程序需要的对象有窗体和三个图像框，其属性设置值如下表所示。对象属性设置值Form1 Caption图片交换Image1 Picture 加载的图形文件名：f:动画图片duck.gif（根据自己的具体情况改变）Image2 Picture 加载的图形

31、文件名：f:动画图片kitty.gif属性设置程序代码PrivateSubForm_Click()交换图片Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.Picture将Image3显示的图片删除Image3.Picture=LoadPicture()EndSub程序运行后，窗体如左图所示。在窗体上单击后，就会执行Form_Click()事件过程中编写的代码，交换图片，所以窗体如右图所示。图片交换前的窗体显示图片交换后的窗体显示6.3 6.3 按钮控件按钮控件命令按钮是在编写应用程序

32、时最常用的控件之一，在前面的例子当中也涉及到命令按钮。在本小节，我们将系统学习命令按钮这个高频使用的控件的常用属性和事件。命令按钮的对象类型名称是：CommandButton，默认的名称是Commandx（x为1，2，3）。常用于触发事件子程序，执行某种功能的操作。6.3.1 6.3.1 6.3.1 6.3.1 命令按钮的常用属性命令按钮的常用属性命令按钮的常用属性命令按钮的常用属性命令按钮有很多属性，如Caption、Enable、FontBold、FontItalic、FontName、FontUnderline、Height、Width、Left、Top、Visible等。另外，它还如下

33、常用属性。（1）Cancel属性当命令按钮的Cancel属性被设置为“True”时，按下Esc键和单击此按钮的作用是等效的。注意，在一个窗体中只允许有一个命令按钮的Cancel属性被设置为“True”。（2）Default属性当命令按钮的Default属性被设置为“True”时，按下Enter键和单击此按钮的作用是等效的。注意，在一个窗体中只允许有一个命令按钮的Default属性被设置为“True”。（3）Style属性该属性用来设置或返回一个值，这个值用来指定控件的显示类型和操作。按钮控件Style属性有两种取值。（4）Picture属性当Style属性设置为1（图形格式）时，可用该属性为按

34、钮指定一个图形。（5）DownPicture属性该属性用来设置当按钮被按下时，按钮上显示的图形。同样地，只有当Style属性值为“1”时，该属性的设置才有作用。如果没有设置DownPicture属性的值，那么当按钮被按下时显示的是Picture属性设置的图形；如果图形太大超出按钮的边框，则只显示部分图形；如果两个属性都没有设置，那么只显示按钮的Caption属性。0vbStandard标准样式1vbGraphical图形格式（可以在按钮上显示图形）（6）DisabledPicture属性该属性用来设置当按钮被禁用（即按钮的Enabled属性为“False”）时显示的图形。和前两个属性一样只有当

35、Style属性值为“1”，该属性的设置才有作用。Picture属性、DownPicture属性和DisabledPicture属性设置和图形控件的Picture属性设置一样，可以通过在设计阶段或运行阶段两种方法来加载图片。命令按钮最常用的事件是Click，注意命令按钮不支持双击事件。6.3.2 6.3.2 6.3.2 6.3.2 按钮控件的应用举例按钮控件的应用举例按钮控件的应用举例按钮控件的应用举例命令按钮的应用非常广泛，下面我们通过两个例子来熟悉命令按钮的使用。例例6.7编程演示按钮控件的基本属性及常用方法。程序中用到的对象及属性设置如下表所示，Command1不需要特别设置属性，用默认的

36、属性值就可以了，所以在下表中没有列出。对象属性设置值Form1Caption 按钮Command2Caption Cancel Command2Style1Command3Caption改变按钮风格Command3 Style 1Command4Caption设置按钮被按下的图片Command4Style 1Command5Caption 设置按钮无效时的图片Command5Style 1属性设置程序代码：PrivateSubCommand1_Click()设置按钮1显示的文字。Command1.Caption=此按钮已经单击过了设置按钮1为无效控件Command1.Enabled=False

37、EndSubPrivateSubCommand2_Click()MsgBox取消操作EndSubPrivateSubCommand3_Click()设置按钮3的背景为红色Command3.BackColor=&HFF&设置按钮2的背景图片Command2.Picture=LoadPicture(F:教学picture图片7.jpg)EndSubPrivateSubCommand4_Click()设置按钮4的背景图片Command4.Picture=LoadPicture(F:教学picture图片8.jpg)设置按钮4被按下时的图片Command4.DownPicture=LoadPictur

38、e(F:教学picture图片9.jpg)EndSubPrivateSubCommand5_Click()设置按钮5无效Command5.Enabled=False设置按钮5无效时显示的图片Command5.DisabledPicture=LoadPicture(F:教学picture图片xh.gif)EndSub程序运行后，窗体显示如左图所示。分别单击按钮1，3，4，5和按钮2后，窗体如右图所示。程序运行结果单击按钮后的窗体例例6.8设计一个计算器程序，输入任意两个数，执行后能进行加减乘除运算。这个程序的设计目的是练习命令按钮的基本使用方法，根据程序要求完成的功能，设计如下图所示的程序界面。

39、程序用到的各个对象及其属性值的设置如下表所示。对象属性设置值Form1Caption 小计算器Text1Text 空（输入操作数的文本框）Text2Text 空（输入操作数的文本框）Label1Caption 空（输出运算符号）Label2Caption=Label3Caption 空（输出运算结果）Label3BorderStyle1Command1Caption+Command2Caption-Command3Caption*Command4Caption/Command5Caption 结束设计程序界面对象的属性值设置程序代码：PrivateSubCommand1_Click()对两个操

40、作数求和Label1.Caption=+Label3.Caption=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand2_Click()进行减法运算Label1.Caption=-Label3.Caption=Val(Text1.Text)-Val(Text2.Text)EndSubPrivateSubCommand3_Click()进行乘法运算Label1.Caption=*Label3.Caption=Val(Text1.Text)*Val(Text2.Text)EndSubPrivateSubCommand4_Click()进行

41、除法运算DimtempAsSingle判断除数是否为“0”，如为“0”，显示出错信息。IfVal(Text2.Text)=0ThenLabel3.Caption=errorExitSubEndIfLabel1.Caption=/Label3.Caption=Val(Text1.Text)/Val(Text2.Text)EndSubPrivateSubCommand5_Click()EndEndSub程序执行后，若在第一个文本框中输入“132”，在第二个文本框中输入“79”，在单击“+”按钮，会显示如下图所示的结果。程序运行结果6.4 6.4 直线和形状直线和形状利用工具箱中的直线控件和形状控件

42、可以绘制简单的直线和基本形状，同时可以设置直线或形状的颜色，还可以设置基本形状的填充图案等。直线控件和形状控件在VB中的默认名称分别是Linex和Shapex（x为1，2，3）。下面我们分别对直线和形状的常用属性做系统介绍。6.4.1 6.4.1 6.4.1 6.4.1 直线直线直线直线直线的对象类型名称是Line，在程序中的功能主要是用来画直线。它有以下几个常用属性。（1）BorderColor属性该属性用来设置对象的边框颜色。（2）BorderStyle属性用来设置对象的线条样式，可以设置的值是06的整数，对应的符号常量如下。当BorderStyle属性为“0”时，该控件是不可见的。（3）

43、BorderWidth设置直线的宽度。该属性值不能设置为“0”0Transparent（透明）1Solid（实线）2Dash（虚线）3Dot（点线）4Dash-Dot（点划线）5Dash-Dot-Dot（双点划线）6InsideSolid（内实线）（4）X1、X2、Y1、Y2属性X1属性用来设置直线在X轴线方向上的起始点；X2属性用来设置直线在X轴线方向上的终止点；Y1属性用来设置直线在Y轴线方向上的起始点；Y2属性用来设置直线在Y轴线方向上的终止点。可以说用这个属性可以设置一条直线的位置和长短。在设计阶段可以用鼠标拖动直线两端的两个黑点，直接改变直线的位置和长短。在程序的运行期间则可以通过对

44、X1、X2、Y1、Y2属性的赋值来改变其位置和长短。下面我们通过一个小例子来了解直线的使用方法。例例6.9在屏幕上画几条粗细不同，线型不同的直线。我们在窗体上画三条粗细不同，线型不同的直线，对象及其属性设置如下表所示。对象属性设置值Form1 Caption line示例Label1CaptionLine-1Label2CaptionLine-2Label3CaptionLine-3Line1Borderwidth 1Line2Borderwidth4Line3Borderwidth8属性设置本例不需编写程序，运行结果如下图所示。程序运行结果6.4.2 6.4.2 6.4.2 6.4.2 形状

45、（形状（形状（形状（ShapeShapeShapeShape）该控件的对象类型名称是Shape，可以用作绘图对象，也可用做图形或其他输出内容的外边框。它的常用属性BorderColor、BorderStyle、BorderWidth和直线的属性是一样的，就不再做重复介绍了。（1）Shape属性设置控件的形状，其值为05，分别代表六种形状。（2）Fillcolor属性设置填充形状使用的颜色。0Rectangle（矩形）1Square（正方形）2Oval（椭圆形）3Circle（圆）4RoundedRectangle（圆角矩形）5RoundedSquare（圆角正方形）（3）Fillstyle设置

46、Shape控件的填充样式，有07共8种填充样式。下面列出属性值和对应的符号常量以及填充样式。0Solid（实色）1Transparent（透明）2HorizontalLine（水平线）3VerticalLine（垂直线）4UpwardDiagonal（向上的对角线）5DownwardDiagonal（向下的对角线）6Cross（十字线）7DiagonalCross（对角十字线）例例6.10设计程序显示Shape的六个不同形状，并且每一个Shape控件的填充样式的属性值和Shape属性值相同。在本例中我们需要建立一个控件数组，这个数组中有六个Shape控件，分别显示不同的形状且有不同的填充样式。

47、首先，我们在窗体上建立1个Shape控件，然后用复制粘贴的方法建立控件数组（一共6个控件对象）。需要特别设置的对象属性如下表所示。对象属性设置值Form1Caption 不同形状的显示对象属性设置程序代码PrivateSubForm_Click()Shape1(0).FillColor=0Fori=1To5Shape1(i).Left=Shape1(i-1).Left+Shape1(i-1).Width+100Shape1(i).Shape=iShape1(i).FillStyle=iShape1(i).Visible=TrueNextiEndSub程序运行后，在窗体上单击，窗体显示如下图所示

48、。程序运行结果6.5 6.5 复选框和单选按钮复选框和单选按钮在应用程序中，有时需要用户进行选择，最常见的选择控件是复选框和单选按钮。比如在Office软件设置“字体”的对话框中，效果的选择就是复选框；在“选项”对话框的“中文版式”标签中，设置“字距调整”、“控制字符间距”和“首尾字符”使用的都是单选按钮。在VB的工具箱里，复选框和单选按钮的图标如下图所示。复选框的类型名称是：CeckBox；单选按钮的类型名称是：OptionButton。复选框和单选按钮默认的Name属性分别为Checkx和Optionx（其中x为1，2，3）。在应用程序中，这两个控件主要用于从一系列的选项中选择某项或使某些

49、功能起作用。如果是复选框，可以选择多个选项；如果是单选按钮，只能选择一个选项，选择了一个选项，就自动放弃了其他选项。两种按钮的图标6.5.1 6.5.1 6.5.1 6.5.1 复选框和单选按钮的常用属性和事件复选框和单选按钮的常用属性和事件复选框和单选按钮的常用属性和事件复选框和单选按钮的常用属性和事件在前面讲到的控件的属性，大部分都可以用于复选框和单选按钮。包括：BackColor、Caption、Picture、DownPicture、DisabledPicture、Enabled、FontBold、FontItalic、FontSize、FontUnderline、Height、Lef

50、t、Name、Top、Visible、Width。此外，复选框和单选按钮还有以下属性。（1）Value属性存放选项按钮的状态，如果是复选框，Value属性可设置为0、1或2。其中：0表示没有选择该复选框；1表示选中该复选框；2表示该复选框被禁止（灰色）。如果是单选按钮，Value属性可设置为True或False。True表示按钮是“打开”状态；False表示按钮“关闭”状态。（2）Alignment属性设置或返回一个值，决定CheckBox或OptionButton控件、控件中的文本的对齐方式。该属性的设置在设计阶段或运行阶段都可以进行，如在运行期间设置该属性，格式如下：对象可以是复选框、单选