第2章面向对象的可视化编程基础

1、vb程序设计简明教程程序设计简明教程本书目录本书目录1第第2 2章章 面向对象的可视化编程基础面向对象的可视化编程基础P20P202.1 2.1 基本概念基本概念2.2 2.2 窗体和基本控件窗体和基本控件2.3 2.3 综合应用综合应用 vb程序设计简明教程程序设计简明教程本书目录本书目录22.1 2.1 基本概念基本概念 P20P20一、一、 程序设计方法的发展程序设计方法的发展初期程序设计初期程序设计结构化程序设计结构化程序设计面向对象程序设计面向对象程序设计本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录32.1 2.1 基本概念基本概念 P20P20二、二、 对象

2、和类对象和类 P21对象：对象：指现实世界中的实体。如一个人、一辆指现实世界中的实体。如一个人、一辆汽车、一台电脑、一份报表等。汽车、一台电脑、一份报表等。类：类：是对同一种对象的集合与抽象是对同一种对象的集合与抽象。对象的对象的3要素：要素：属性属性、方法方法和和事件事件。本章目录本章目录 Text对象TextBox 类VBVB中的类和对象中的类和对象 VBVB工具箱中的工具箱中的可视图标是可视图标是VBVB系统系统设计好的标准控件设计好的标准控件类。类。 窗体上画一个窗体上画一个控件，就将类实例控件，就将类实例化为对象化为对象vb程序设计简明教程程序设计简明教程本书目录本书目录4 对象：对

3、象： 代码和数据的集合。代码和数据的集合。 如窗体、按钮、菜单、文本框等。如窗体、按钮、菜单、文本框等。 对象名对象名: : 如如Form1Form1、Command2Command2、Menu1Menu1、Text3Text3等默认名等默认名1、属性、属性 n 属性属性: 对象的一组特征，如对象的一组特征，如:标题、宽度、字体等标题、宽度、字体等n 属性名属性名: 如如Caption、Width、Font、Color 对象属性的设置方法：对象属性的设置方法：（1） 设计阶段：利用属性窗口直接设置属性值设计阶段：利用属性窗口直接设置属性值（2）程序运行时）程序运行时 通过语句通过语句 对象名对

4、象名. .属性名属性名= =属性值属性值 例如：例如：Command1.Caption = 确定确定 三、对象的属性、事件和方法三、对象的属性、事件和方法 P22P22本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录5 （1）事件）事件: 在对象上所发生的事情。在对象上所发生的事情。 （由系统预先设置好的、能被对象识别的动作。）（由系统预先设置好的、能被对象识别的动作。） 2、 事件事件 P23本章目录本章目录（2）事件过程：发生某事件后所要执行的程序代码）事件过程：发生某事件后所要执行的程序代码事件过程的形式：事件过程的形式：Sub Sub 对象名对象名_ _事件事件(

5、(参数参数) ) 事件过程代码事件过程代码End SubEnd Subvb程序设计简明教程程序设计简明教程本书目录本书目录6例例:单击按钮单击按钮 ，使，使Text1的字体为的字体为20磅磅.Sub Command1_Click() Text1.FontSize = 20Text1.FontSize = 20End Subn 一个动作可能同时发生多个事件。例如单击鼠一个动作可能同时发生多个事件。例如单击鼠标同时发生了：标同时发生了：Click、MouseDown、MouseUp事件事件n 编程时，只要对需要的事件过程编码。编程时，只要对需要的事件过程编码。n 注意：在代码窗口，自动产生事件过程

6、的模板注意：在代码窗口，自动产生事件过程的模板，不要修改模板的内容，只需键入过程的代码，不要修改模板的内容，只需键入过程的代码。模板产生模板产生用户输入用户输入本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录7 Private Sub 对象名对象名_事件名事件名() 处理事件的程序代码处理事件的程序代码 End Sub指定什么情况下执行这个过程指定什么情况下执行这个过程（即执行的条件）（即执行的条件）当当指定指定对象对象上发生上发生指定指定事件事件时执时执行本过程；行本过程；由系统自动执行由系统自动执行处理些什么处理些什么通过程序代码来实现通过程序代码来实现Sub End

7、Sub定义一个过程定义一个过程再次认识事件过程格式再次认识事件过程格式本过程的作用范围本过程的作用范围 Private：局部局部 （如当前窗体）（如当前窗体） Public：全局全局 （如多个窗体）（如多个窗体）（）为一对圆括号（）为一对圆括号这是简单格式；这是简单格式；对于复杂情况，圆括号内对于复杂情况，圆括号内还有参数还有参数vb程序设计简明教程程序设计简明教程本书目录本书目录8 程序执行的次序与程序设计者无关，取决于用户的操作，程序执行的次序与程序设计者无关，取决于用户的操作，这这就是事件驱动程序设计方式。就是事件驱动程序设计方式。 VB没有传统意义上的主程序。在没有传统意义上的主程序。

8、在VB中，子程序称为过程。中，子程序称为过程。n VBVB程序的执行步骤如下：程序的执行步骤如下： 启动应用程序，装载和显示窗体；启动应用程序，装载和显示窗体； 窗体窗体( (或窗体上的控件或窗体上的控件) )等待事件的发生；等待事件的发生； 事件发生时，执行对应的事件过程；事件发生时，执行对应的事件过程； 重复执行步骤和。重复执行步骤和。n 在在VB中，程序开始执行时，先等待某个事件的发生，然后再去中，程序开始执行时，先等待某个事件的发生，然后再去执行处理此事件的事件过程，且在执行完事件过程后，又返回执行处理此事件的事件过程，且在执行完事件过程后，又返回事件等待状态。事件被触发的顺序决定了代

9、码被执行的顺序，事件等待状态。事件被触发的顺序决定了代码被执行的顺序，因此应用程序每次运行时所经过的执行路径可能是不同的。因此应用程序每次运行时所经过的执行路径可能是不同的。（3）事件驱动）事件驱动 P24本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录9事件驱动方式事件驱动方式 事件过程要经过事件的触发才能被执行，这种工作事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式模式称为事件驱动方式 由事件控制整个程序的执行流程由事件控制整个程序的执行流程（以下是一个示例以下是一个示例） Sub Commond1_Click() End Sub Sub Common

10、d2_Click() End Sub Sub Commond3_Click() End Sub单击单击该命令按钮，该命令按钮，系统就会自动执行系统就会自动执行相应的事件过程相应的事件过程Commond1_Click()Commond1_Click()用户界面用户界面 (窗口窗口)程序代码程序代码 (一系列过程一系列过程)单击单击该命令按钮，该命令按钮，系统就会自动执行系统就会自动执行相应的事件过程相应的事件过程Commond2_Click()Commond2_Click()单击单击该命令按钮，该命令按钮，系统就会自动执行系统就会自动执行相应的事件过程相应的事件过程Commond3_Click(

11、)Commond3_Click()vb程序设计简明教程程序设计简明教程本书目录本书目录103、方法、方法 P23n 面向对象的程序设计语言，为程序设计人员提供了一面向对象的程序设计语言，为程序设计人员提供了一种种特殊的过程和函数特殊的过程和函数，称为，称为方法方法。n 说明：说明：“方法方法”是是VBVB中的一个术语，实际上是中的一个术语，实际上是VBVB提提供的用来供的用来。n 方法是面向对象的，调用时一定要指明对象。对象方方法是面向对象的，调用时一定要指明对象。对象方法的调用格式为：法的调用格式为： 对象对象.方法方法 参数名表参数名表若省略对象，表示当前对象，一般指窗体。若省略对象，表示

12、当前对象，一般指窗体。例如：例如：Text1.SetFocusText1.SetFocus此语句使此语句使Text1控件获得焦点，光标在本文框内闪烁。控件获得焦点，光标在本文框内闪烁。例如：例如：Form1.Print 2Form1.Print 2* *3,5/63,5/6本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录112.2 窗体和基本控件窗体和基本控件 P25 一、窗体和控件具有一、窗体和控件具有基本属性基本属性 例例2.1 (1) (1) NameName 名称属性名称属性 “使程序能够识别使程序能够识别”所创建的对象名称所创建的对象名称, ,在程序中引用。在程序

13、中引用。(2) (2) CaptionCaption 标题属性标题属性 “控件上显示的文本控件上显示的文本”该属性决定了对象上显示的内容。该属性决定了对象上显示的内容。(3) (3) HeightHeight、WidthWidth、TopTop和和LeftLeft属性属性 单位：单位：TwipTwip（缇）（缇）决定对象的高度、宽度，和位置。决定对象的高度、宽度，和位置。 1/1440in 1/567cm1/1440in 1/567cm(4)(4) EnabledEnabled 属性属性 对象是否允许操作对象是否允许操作 “能够能够”True/FalseTrue/False (5)(5) Vi

14、sibleVisible 属性属性 对象是否可见对象是否可见 True/FalseTrue/False(6)(6) FontFont 属性组属性组 文本的外观文本的外观 FontNameFontName字体、字体、FontSizeFontSize大小大小 FontBoldFontBold粗体、粗体、 FontItalicFontItalic斜体、斜体、 FontStrikethruFontStrikethru 删除线、删除线、 FontUnderline FontUnderline 下划线下划线 字符型，如字符型，如“宋体宋体”-整形，如整形，如 20-20-逻辑型，如逻辑型，如 True/F

15、alseTrue/False vb程序设计简明教程程序设计简明教程本书目录本书目录12(7)(7) ForeColorForeColor属性属性 前景颜色前景颜色-正文颜色正文颜色(8)(8) BackColorBackColor属性属性 背背景颜色景颜色-背景正文以外显示区背景正文以外显示区域颜色域颜色 值：十六进制的常量，用户可在调色板中直接选择。值：十六进制的常量，用户可在调色板中直接选择。 VbBlack/VbBlue/VbCyan/VbGreen/VbMagentaVbBlack/VbBlue/VbCyan/VbGreen/VbMagenta VbRed/VbWhite/VbYell

16、ow VbRed/VbWhite/VbYellow(9)(9) MousePointerMousePointer 鼠标指针类型鼠标指针类型 设置值范围设置值范围0 01515，由系统指定，由系统指定 。若为。若为9999，由用户，由用户提供的图形文件定义鼠标指针形状。提供的图形文件定义鼠标指针形状。(10)(10) MouseIconMouseIcon属性属性 在在MousePointer属性值为属性值为99时，存放时，存放自定义的鼠标自定义的鼠标图标文件（图标文件（.ico.ico或或.cur.cur）。图标库在）。图标库在GraphicsGraphics目录下。目录下。本章目录本章目录vb

17、程序设计简明教程程序设计简明教程本书目录本书目录13控件默认属性控件默认属性所谓默认属性是程序运行时，可以改变某控所谓默认属性是程序运行时，可以改变某控件的值，而不必指定该控件的哪个属性。件的值，而不必指定该控件的哪个属性。 控控 件件 默认属性默认属性 控控 件件 默认属性默认属性文本框文本框命令按钮命令按钮单选按钮单选按钮TextTextDefaultDefaultValueValue标签标签图形、图像框图形、图像框复选框复选框 Caption Caption Picture Picture Value Value例如，下面两条语句是等价的：例如，下面两条语句是等价的：Text1.Text

18、=Visual BASICText1.Text=Visual BASICText1 =Visual BASICText1 =Visual BASIC本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录14二、二、 窗体窗体 P27 窗体是一块画布，是所有控件的容器窗体是一块画布，是所有控件的容器，用户可以根据自己的，用户可以根据自己的需要利用工具箱上的控件在画布上画界面。需要利用工具箱上的控件在画布上画界面。窗体属性决定了窗体的外观和操作。窗体属性决定了窗体的外观和操作。n 窗体窗体(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台n 窗体本身是一个对象，又是其他

19、对象的载体或容器窗体本身是一个对象，又是其他对象的载体或容器(容器对象容器对象) 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体一个程序可以有多个窗体 标题 Caption 图标 Icon 最小化按钮 MinButton 最大化按钮 MaxButton 边框样式 BorderStyle 控制菜单框ControlBox 本章目录本章目录1、主要属性：、主要属性：P27 Caption、MaxButton/MinButton等其他等其他vb程序设计简明教程程序设计简明教程本书目录本书目录窗体设计引例窗体设计引例1例:设计一个VB程序，窗体上画有三个命令按钮

20、，标题分别是“窗体变小”、“窗体变大”和“关闭窗体”。运行程序时，在窗体上装入一幅图片。单击“窗体变大”命令按钮时，窗体变大；单击“窗体变小”按钮时，窗体就小；单击“关闭窗体”按钮，结束程序的运行。窗体界面设计如右图对象属性设置窗体（名称）Form1Caption改变窗体尺寸命令按钮1（名称）cmdLargeCaption窗体变大命令按钮2（名称）cmdSmallCaption窗体变小命令按钮3（名称）cmdExitCaption关闭窗体15vb程序设计简明教程程序设计简明教程本书目录本书目录窗体设计引例窗体设计引例1编写有关事件过程： Private Sub Form_Load() Pict

21、ure=LoadPicture(D:flower.jpg) End Sub运行程序时,系统自动将窗体装入内存，触发Form_Load事件过程。Form_Load事件过程通常用来对窗体的属性和变量进行初始化。n 窗体事件过程设计：窗体事件过程设计：16vb程序设计简明教程程序设计简明教程本书目录本书目录n “窗体变小窗体变小”按钮事件过程设计按钮事件过程设计 要改变窗体的大小尺寸，需要使用窗体的两个相关属性Height 和Width。Height 指窗体的高度，Width指窗体的宽度，单位为twip（缇），一英寸约等于1440twip。 使窗体变小的过程代码如下： Private Sub cmd

22、Small_Click() Form1.Height = Form1.Height - 500 Form1.Width = Form1.Width - 500 End Sub17vb程序设计简明教程程序设计简明教程本书目录本书目录n “窗体变大窗体变大”按钮事件过程设计按钮事件过程设计单击“窗体变大”按钮，窗体的Height 及Width属性值在原有属性值的基础上增加500，使窗体的尺寸变大。窗体变大的过程如下： Private Sub cmdLarge_Click() Form1.Height = Form1.Height + 500 Form1.Width = Form1.Width +

23、500 End Sub 不断单击“窗体变大”命令按钮，Height和Width属性值不断递加，使窗体越变越大。18vb程序设计简明教程程序设计简明教程本书目录本书目录n “关闭窗体关闭窗体”按钮的事件过程设计按钮的事件过程设计“关闭窗体”按钮的事件过程如下： Private Sub cmdExit_Click() End End Sub“End”语句命令的作用是结束程序的运行。注意：一般来说，一个程序中应该包括结束程序运注意：一般来说，一个程序中应该包括结束程序运行的操作。行的操作。19引例引例2:窗体的位置改变并记录位置窗体的位置改变并记录位置vb程序设计简明教程程序设计简明教程本书目录本书

24、目录窗体设计引例窗体设计引例2例2:设计一个程序，当单击“改变位置”命令按钮时，使窗体的位置改变到屏幕的左上角，单击“还原位置”命令按钮又使它的位置还原，并在标签中显示出所在位置。对象对象属性属性设置设置窗体（名称）Form1Caption确定窗体的位置BackColor&H00FFFF80&（浅蓝色）BorderStyle 1(Fixed Single)命令按钮1（名称）cmdMoveCaption改变位置命令按钮2（名称）cmdResetCaption还原位置命令按钮3（名称）cmdExitCaption退出标签（名称）Lable1Caption置空BorderStyle 1(Fixed

25、Single)20vb程序设计简明教程程序设计简明教程本书目录本书目录l 属性BackColor的值决定窗体的背景颜色。l 属性BorderStyle决定窗体的“边界风格”（ BorderStyle）。它有4种可以选择的值：0（None）：窗口无边界；1(Fixed Single)：窗口的边界为单线条，且运行期间窗口的尺寸是固定的（即不能改变其大小）；2(Sizable)：窗口的边界是双线条，且运行期间可以改变窗口的尺寸；3(Fixed Double)：窗口的边界是双线条，且运行期间不可以改变窗口的尺寸。n 窗体窗体属性属性设设置置21vb程序设计简明教程程序设计简明教程本书目录本书目录n 窗

26、体事件过程设计窗体事件过程设计程序开始运行时, 执行Form_Load事件过程，进行初始化窗体的工作，该事件过程如下： Private Sub Form_Load() Form1.Left = 2000 Form1.Top = 2000 Label1.Caption = Left值是:2000，Top值是:2000 End Sub运行程序，将2000分别赋给窗体的Left和Top两个属性。Left属性指明窗体左边界距屏幕左边界的距离（x轴方向）。Top属性指明窗体窗口顶部距屏幕顶部的距离（y轴方向）。确定了Left和Top属性值，也就确定了窗体在屏幕上的位置。22vb程序设计简明教程程序设计简

27、明教程本书目录本书目录n “改变位置改变位置”命令按钮事件过程设计命令按钮事件过程设计 单击“改变位置”命令按钮时，把窗体移动到指定的位置，执行cmdMove_Click以下事件过程。Private Sub cmdMove_Click() Form1.Left = 100 Form1.Top = 100 Label1.Caption = Left值是:100，Top 值是:100End Sub程序将窗体的位置改变到屏幕的左上角，即坐标为（100、100）的位置。分别将100赋给窗体的Left和Top两个属性，并把这两个值显示在标签中。23vb程序设计简明教程程序设计简明教程本书目录本书目录n

28、“还原位置还原位置”命令按钮事件过程设计命令按钮事件过程设计 单击“还原位置”命令按钮，应恢复窗体的初始位置，只需将最初的Top和Left属性值重新赋给这两个属性即可。其过程代码如下： Private Sub cmdReset_Click() Form1.Left = 2000 Form1.Top = 2000 Label1.Caption = Left值是:2000，Top 值是:2000 End SubLeft属性值及Top属性值均为2000，窗体回到原来位置。24vb程序设计简明教程程序设计简明教程本书目录本书目录252 2、窗体、窗体- -事件事件 P28P28 常用的事件常用的事件:

29、LoadLoad、ClickClick和和DblClickDblClick。1)Load1)Load：是在窗体被装入工作区时触发的事件。：是在窗体被装入工作区时触发的事件。l 作用：一般用于在启动应用程序时对属性和变量进行作用：一般用于在启动应用程序时对属性和变量进行初始化。初始化。例例2.2 初态：初态：窗体无最大化按钮和最小化按钮窗体无最大化按钮和最小化按钮; P29; P29Load事件事件：在标题栏显示：在标题栏显示“装入窗体装入窗体”并装入一背景图；并装入一背景图；Click事件事件：标题栏显示标题栏显示“单击窗体单击窗体”，装入另一图，装入另一图DblClick 事件事件：标题栏显

30、示标题栏显示“双击窗体双击窗体” ，清除背景图。，清除背景图。l LoadPicture(“LoadPicture(“文件名文件名”)”)：把图形文件调入内存。：把图形文件调入内存。 对象对象.Picture=.Picture= LoadPicture(“LoadPicture(“文件名文件名”)”)l “对象对象”指窗体、图片框、图像框等，默认为窗体。指窗体、图片框、图像框等，默认为窗体。App.PathApp.Path+“+“文件名文件名”:”:指图片文件与应用程序在同一目录。指图片文件与应用程序在同一目录。本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录n 程序“头”

31、：启动窗体的Load事件（若无Initialize事件）。 Initialize 事件当应用程序创建For m等时发生， Initialize 事件在Load 事件之前发生。n 程序“尾”：End语句所在的事件过程。 Unload事件 Unload事件是卸载事件。在程序运行时，如关闭窗体就会触发Unload事件。n 编码时的自动功能：（1）自动列出控件的属性和方法 Ctrl+J （Tab完成输入）（2）自动显示快速信息 Ctrl+I 如函数格式（3）自动语法检查：2)Click、DblClick 一次双击操作包含了单击和双击两个操作。3) Activated 单击变活动 4)Resize 改变

32、窗体的大小时触发。26vb程序设计简明教程程序设计简明教程本书目录本书目录27三、窗体三、窗体- -方法方法 P29方法：方法：VBVB提供的特定过程。提供的特定过程。常用方法：常用方法：ClsCls、PrintPrint、Move Move 其它：其它：ShowShow、HideHide使用方法的语法形式：使用方法的语法形式： 对象对象. .方法方法 参数列表参数列表 v ClsCls方法方法 清除运行时在窗体或图形框中产生的文本或图形清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形方法不能清除窗体在设计时的文本和图形v MoveMove方法方法 可移

33、动窗体或控件，并可改变其大小。可移动窗体或控件，并可改变其大小。 语法格式如下：语法格式如下： 对象对象.Move Move 左边距离左边距离,上边距离上边距离,宽度宽度,高度高度 PrintPrint方法方法：用于在窗体上输出表达式的值。：用于在窗体上输出表达式的值。 ShowShow方法：用于快速显示一个窗体，使该窗体变成方法：用于快速显示一个窗体，使该窗体变成活动窗体活动窗体本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录例：28 Private Sub Form_Load()Private Sub Form_Load() Show Show Print “ Prin

34、t “窗体已被窗体已被howhow显示出来！显示出来！” Picture1.Print Visual Basic Picture1.Print Visual Basic End SubEnd Sub Private Sub Command1_Click()Private Sub Command1_Click() Cls Cls End Sub End Sub Private Sub Command2_Click() Private Sub Command2_Click() Picture1.Cls Picture1.Cls End Sub End Sub Private Sub Form_Cl

35、ick()Private Sub Form_Click() Move Left - 20, Top + 40, Width - 50, Height - 30 Move Left - 20, Top + 40, Width - 50, Height - 30 End Sub End Sub 例例2.2 窗体窗体Click、DblClick、Load和和Resize事件的使用及事件的使用及Print方方法和相关属性的使用。法和相关属性的使用。P29启动程序时，系统先启动程序时，系统先自动执行本过程，但自动执行本过程，但窗体未被显示出来窗体未被显示出来通过通过Show显示窗体。显示窗体。使后续的使

36、后续的Print输出内输出内容可见容可见vb程序设计简明教程程序设计简明教程本书目录本书目录29三、三、 标签标签 P30P30n 作用：标签用来显示文本信息作用：标签用来显示文本信息(不能输入不能输入) n 主要属性：主要属性：CaptionCaption，存放文字，存放文字n 其它属性：其它属性：P30例例2.3 标签属性演示标签属性演示 （P31例例2.3类似）类似）本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录30标签控件的常用属性:1Alignment属性属性Alignment属性用于指定显示的信息在标签中的位置，3个属性值：0左对齐，1右对齐，2居中。2.Au

37、toSize属性属性AutoSize属性用于设置标签的大小是否自动按标签中所显示内容的多少进行调整：属性值为True，能随其中文字的多少和大小而改变标签大小；属性值为False时，则超出标签显示范围的文字被截掉。vb程序设计简明教程程序设计简明教程本书目录本书目录313.BorderStyle属性属性BorderStyle属性用于设置标签有无边框。属性值为0时，标签控件没有边框；属性值为1时标签控件有单线边框。4.Caption属性属性Caption属性用于设置要在标签中显示的内容。5.Left属性属性Left属性值是标签与窗体左边界之间的距离。Left属性与下面介绍的Top属性能够确定标签在

38、窗体上的位置。vb程序设计简明教程程序设计简明教程本书目录本书目录326.Name属性属性Name属性用于设置标签控件的名字，这个名字是程序中所使用的，在窗体上看不到。7Top属性属性Top属性用于设置标签与窗体上边界之间的距离。Top属性和Left属性能够确定标签在窗体上的位置。8.WordWrap属性属性WordWrap属性用于设置标签中所显示的内容是否能够自动折行。默认值为False，将标签的内容显示在一行中。若文字超出范围，自动截去多余部分。WordWrap为True，标签中的文本能够自动折行。例：标签使用例：标签使用：加法运算：加法运算例：显示、隐藏、文字的颜色例：显示、隐藏、文字的

39、颜色vb程序设计简明教程程序设计简明教程本书目录本书目录例：标签使用例：标签使用33对象属性设置窗体（名称）Form1Caption标签使用文本框1（名称）txtOp1Text?文本框2（名称）txtOp2Text?标签1（名称）lblOp1Caption被加数BorderStyle0标签2（名称）lblOp2Caption加数BorderStyle0标签3（名称）lblOp3Caption+BorderStyle0标签4（名称）lblOp4Caption结果BorderStyle0标签5（名称）lblResultCaption?BorderStyle1命令按钮1（名称）cmdAddCapti

40、on=命令按钮2（名称）cmdClearCaption清除命令按钮3（名称）cmdExitCaption退出使用标签为每个文本框加上说使用标签为每个文本框加上说明明,各对象以及其属性设置如表各对象以及其属性设置如表标签的标签的BorderStyle属性用于属性用于设定标签是否有边界。设定标签是否有边界。vb程序设计简明教程程序设计简明教程本书目录本书目录34文本框1和文本框2是用来输入运算数的。运算结果显示在标签控件。事件过程如下：Private Sub cmdAdd_Click() Dim op1 As Integer, op2 As Integer Dim Sum As Integer o

41、p1 = Val(txtOp1.Text) op2 = Val(txtOp2.Text) Sum = op1 + op2 lblResult.Caption = Str$(Sum)End Subvb程序设计简明教程程序设计简明教程本书目录本书目录例：例： 实现标签的显示和隐藏实现标签的显示和隐藏, , 以及改变文字的颜色以及改变文字的颜色35 (1)在窗体上建立一个标签（在窗体上建立一个标签（Label1）和三个命令按钮）和三个命令按钮(Command1、Command2和和Command3)n 三个命令按钮分别使用访问键三个命令按钮分别使用访问键Alt+C、Alt+H和和Alt+D Capt

42、ion：改变文字颜色：改变文字颜色(&C) 隐藏标签隐藏标签(&H) 显示标签显示标签(&D)vb程序设计简明教程程序设计简明教程本书目录本书目录36 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load() Randomize Label1.BackColor = QBColor(15) 背景色背景色 Label1.ForeColor = QBColor(0) 文字颜色文字颜色 Label1.FontSize = 18 字体大小字体大小 End Sub Private Sub Command1_Click() “改变文字颜色改变文字颜色”按钮按钮 Clr = In

43、t(15 * Rnd) 产生随机颜色码产生随机颜色码 Label1.ForeColor = QBColor(Clr) End Sub Private Sub Command2_Click() “隐藏标签隐藏标签”按钮按钮 Label1.Visible = False 隐藏标签隐藏标签 End Sub Private Sub Command3_Click() “显示标签显示标签”按钮按钮 Label1.Visible = True 显示标签显示标签 End Subvb程序设计简明教程程序设计简明教程本书目录本书目录QBColor 函数 返回一个Long，用来表示所对应颜色值的RGB 颜色码。 Q

44、BColor(color)37vb程序设计简明教程程序设计简明教程本书目录本书目录38四、四、 文本框文本框 P31P31n 文本框是一个文本编辑区域，可以在该区域输入、编文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。辑、修改和显示正文内容。1、主要属性：、主要属性：P31表表(1) TextText 显示或输入的正文内容显示或输入的正文内容(2) MaxlengthMaxlength 设置文本框可输入的文字最大长度。默设置文本框可输入的文字最大长度。默认值为认值为0，表示可以输入任意长字符串。，表示可以输入任意长字符串。注意：在注意：在VBVB中字符长度以字为单位，也

45、就是一个西文字符中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为与一个汉字都是一个字，长度为1 1。(3) MultiLineMultiLine 多行属性多行属性设置为设置为True时，文本框可以输入或显示多行正文，同时时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按具有文字处理器的自动换行功能，按Enter键插入一空键插入一空行。行。 本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录39(4) ScrollBarsScrollBars 滚动条属性（可取值：滚动条属性（可取值：0-1-2-3） None None 无滚动条无滚动条

46、Horizontal Horizontal 水平滚动条水平滚动条 Vertical Vertical 垂直滚动条垂直滚动条 Both Both 同时加水平和垂直滚动条同时加水平和垂直滚动条当当MultiLine为为True时，时，ScrollBars才有效才有效(5) PassWordCharPassWordChar 设置显示文本的替代符。例如，当设置显示文本的替代符。例如，当设置为设置为“* *”，则在文本框输入的内容均以，则在文本框输入的内容均以“* *”显示，而显示，而存储的值是用户输入的原文。一般用于设置口令的输入。存储的值是用户输入的原文。一般用于设置口令的输入。当当MultiLin

47、e为为True时，该属性不起作用，密码不允许多时，该属性不起作用，密码不允许多行。行。(6) Locked Locked 指定文本控件是否可被编辑，默认值为指定文本控件是否可被编辑，默认值为False(可编辑可编辑) )，当设置为，当设置为True时，文本控件相当于标签时，文本控件相当于标签控件的作用。控件的作用。本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录40(7)文本内容进行选择操作文本内容进行选择操作SelStart SelStart 选定的正文开始位置选定的正文开始位置SelLength SelLength 选定的正文长度选定的正文长度SelTextSelTex

48、t选定的正文内容选定的正文内容这这3个属性互相关联个属性互相关联,例如设置例如设置SelStart、SelLength后，后，SelText 自动存放指定的文本。自动存放指定的文本。例例2.42.4 利用属性实现文本信息的复制。利用属性实现文本信息的复制。P32P32 本章目录本章目录例：例：文字效果与文字效果与changechange事件事件vb程序设计简明教程程序设计简明教程本书目录本书目录例例 在三个文本框中显示不同的文字效果（在三个文本框中显示不同的文字效果（ChangeChange事件事件） 在第一个文本框中输入文字时，在另外两个文本框在第一个文本框中输入文字时，在另外两个文本框中显

49、示同样相同的内容，但显示的字号和字体不同。单中显示同样相同的内容，但显示的字号和字体不同。单击击“清除清除”按钮时则清除三个文本框中的内容按钮时则清除三个文本框中的内容Private Sub Form_Click() Text1.SelStart = 0 Text1.SelLength = 8 Text2.Text = Text1.SelTextEnd Sub41vb程序设计简明教程程序设计简明教程本书目录本书目录42 (1)(1)建立应用程序的用户界面和设置对象属性建立应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load() Te

50、xt2.FontName = 隶书隶书 Text2.FontSize = 16 Text3.FontName = 楷体楷体_GB2312 Text3.FontSize = 20 End Sub Private Sub Text1_Change() Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub Private Sub Command1_Click() “清除清除”按钮按钮 Text1.Text = 清除文本框清除文本框Text1的内容的内容 Text2.Text = 清除文本框清除文本框Text2的内容的内容 Text3.Text

51、 = 清除文本框清除文本框Text3的内容的内容 Text1.SetFocus 设置焦点设置焦点 End Subvb程序设计简明教程程序设计简明教程本书目录本书目录432 2、文本框、文本框- -事件事件 P32P32(1) ChangeChange事件事件当当Text属性值发生改变时引发该事件属性值发生改变时引发该事件例例 在文本框每输入一个字符就引发一次事件在文本框每输入一个字符就引发一次事件(2) KeyPressKeyPress事件事件按下并且释放键盘上的一个键时，引发焦点所按下并且释放键盘上的一个键时，引发焦点所在控件的在控件的KeyPress事件，事件，所按键的值存放在所按键的值存

52、放在参数参数KeyAscii中中例例 对回车的判断对回车的判断 KeyAscii=13本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录KeyPress(KeyPress(按键按键) )事件过程的格式：事件过程的格式：Private Sub Private Sub 对象对象_KeyPress(KeyAscii As Integer)_KeyPress(KeyAscii As Integer) End SubEnd Sub例：例：Private Sub Text1_KeyPress(KeyAscii As Integer)Private Sub Text1_KeyPress(K

53、eyAscii As Integer) Print Print 你录入的键是：你录入的键是：; Chr(KeyAscii)Chr(KeyAscii)End SubEnd Sub例：例：Private Sub Form_KeyPress(KeyAscii As Integer)Private Sub Form_KeyPress(KeyAscii As Integer) Print Print 你录入的键是：你录入的键是：; Chr(KeyAscii)Chr(KeyAscii)End SubEnd Sub44 参数参数KeyAscii返回所返回所按键的按键的ASCII码码 思考题思考题1：程序阅读

54、题：程序阅读题思考题思考题2：程序阅读题：程序阅读题vb程序设计简明教程程序设计简明教程本书目录本书目录45 当文本框的当文本框的Text属性内容发生变化时，会触发文本框的属性内容发生变化时，会触发文本框的Change事件。事件。 当在文本框当在文本框Text1中输入中输入ABC三个字符时窗体上显示的三个字符时窗体上显示的是什么。是什么。 Private Sub Text1_Change() Print Text1.Text End SubAABABC想一想想一想vb程序设计简明教程程序设计简明教程本书目录本书目录46 在窗体上已经建立了两个文本框在窗体上已经建立了两个文本框Text1和和Te

55、xt2，并编写，并编写 如下三个事件过程：如下三个事件过程： Private Sub Form_Click() Text2.Text = P Text1.Text = P + Text1.Text End Sub Private Sub Text1_Change() 内容发生改变内容发生改变 Text2.Text = Text2.Text + N + Text1.Text End Sub Private Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 运行程序后单击窗体，则在文本框运行程序后单击窗体，则在文本框Text2中显示的内容是

56、中显示的内容是 A. PNM B. NPM C. PNP D. PNPMA. PNM B. NPM C. PNP D. PNPM D想一想想一想vb程序设计简明教程程序设计简明教程本书目录本书目录47(3) LostFocusLostFocus事件事件对象失去焦点时发生对象失去焦点时发生LostFocus事件事件该事件主要是用来对数据进行验证和确认，常用于检该事件主要是用来对数据进行验证和确认，常用于检查查Text属性的内容。属性的内容。(4) GotFocusGotFocus事件事件GotFocus事件与事件与LostFocus事件相反，当一个对象事件相反，当一个对象获得焦点时发生获得焦点时

57、发生本章目录本章目录vb程序设计简明教程程序设计简明教程本书目录本书目录焦点与焦点与TabTab键序键序48n 焦点焦点 焦点焦点(Focus(Focus，光标，光标) )是是对象接收鼠标或键盘输入的能力对象接收鼠标或键盘输入的能力。 要将焦点赋给控件，有以下几种方法：要将焦点赋给控件，有以下几种方法： (1)(1)用鼠标选定对象用鼠标选定对象 (2)(2)按快捷键选定对象按快捷键选定对象 (3)(3)按按TabTab键或键或Shift+TabShift+Tab键在当前窗体的各对象之间切换焦点键在当前窗体的各对象之间切换焦点 (4)(4)在代码中用在代码中用SetFocusSetFocus方法

58、来设置焦点。例如：方法来设置焦点。例如： Text1.SetFocus Text1.SetFocus 把焦点设置在文本框把焦点设置在文本框Text1Text1 SetFocusSetFocus是是VBVB提供的一种设置焦点的提供的一种设置焦点的“方法方法” ” 。设置焦点实。设置焦点实际上就是激活所要操作的控件。际上就是激活所要操作的控件。 n TabTab键序键序 TabTab键序是指用户按键序是指用户按TabTab键时，焦点在控件间移动的顺序键时，焦点在控件间移动的顺序 反映在控件的反映在控件的TabIndexTabIndex属性（从属性（从0 0开始编号，可改。可用开始编号，可改。可用T

59、abStopTabStop属性使某个控件属性使某个控件“轮空轮空”-设为设为FalseFalse）vb程序设计简明教程程序设计简明教程本书目录本书目录493 3、文本框、文本框- -方法方法P33P33n 文本框最有用的方法是文本框最有用的方法是SetFocusSetFocus，把光标移，把光标移到指定的文本框中。到指定的文本框中。n 形式：形式： 对象对象. . SetFocusSetFocusn SetFocus还可以用于如还可以用于如CheckBox、CommandButton、ListBox、ComboBox等等控件。控件。例例2.5 2.5 对输入的数据进行合法性检验，过滤不合对输入

60、的数据进行合法性检验，过滤不合法的数据。法的数据。本章目录本章目录应用应用-1输入和显示输入和显示应用应用-2Change事件事件应用应用-3密码密码应用应用-4多行文本框多行文本框应用应用-5滚动条滚动条应用应用-6字体与字型控制字体与字型控制vb程序设计简明教程程序设计简明教程本书目录本书目录文本框的使用文本框的使用-1 例:设计一个程序，从键盘上输入两个数，计算这两个数的和，并将计算结果显示出来。 文本框控件的作用:输入和显示信息的。对象属性设置窗体（名称）frmExample1Caption文本框使用例1文本框1(被加数)（名称）txtOp1Text?文本框2(“+”号)（名称）txt