大学VB教学课件：第2章 VB应用程序设计过程

1、第第2 2章章 VBVB应用程序应用程序设计过程设计过程2.1 2.1 面向对象程序设计的基本概念面向对象程序设计的基本概念一、对象与类是系统中的基本运行实体,是代码和数据的集合.对象：类：类是同种对象的集合与抽象。 一个对象就是类的一个实例二、属性描述对象特征的数据称为属性。对象常见的属性：标题(Caption)名称(Name)颜色(Color)字体(Font)是否可见(Visible)通过修改对象的属性，可以改变对象的外观与功能。 在属性窗口上设置 在程序代码中用赋值语句设置属性设置格式：.=例如:给一个对象名为“Command1”的命令按钮的 “Caption”属性赋值为“确定”，在程序

2、代码中实现的语 句是：Command1. Caption=“确定” 三、事件与事件过程事件：是指对象上发生的事情。 在VB中，系统为每一对象预先定义好一系列的事件，如： 单击(Click) 双击(DblClick) 装入事件(Load) 改变事件(Change) 鼠标移动事件(MouseMove) 获取焦点事件(GotFocus)事件过程的一般格式:Private Sub _() （事件过程代码）End Sub例:命令按钮Command1的单击Click事件，将窗体Form1的背景色设置为蓝色的事件过程为： Private Sub Command1_Click() Form1.BackColo

3、r = vbBlueEnd Sub四、方法是指对象要执行的动作。 例:清除窗体Form1上的文字和图形调用方法的语句为： Form1.Cls方法调用格式: . 2.2 2.2 窗体窗体一、窗体创建“工程”菜单中选择“添加窗体” 用鼠标指向工程资源管理器中的工程，单击右键，从弹出的快捷菜单中选择“添加”菜单中的“添加窗体” 用鼠标单击常用工具栏中“添加窗体”按钮。窗体(Form)就是窗口,是VB中最常见的对象,也是可视化程序设计的基础各种控件对象必须建立在窗体上.一个窗体对应一个窗体模块窗体结构边框关闭最大化/还原最小化标题栏控制菜单 具有控制菜单、标题栏、最大化/还原按钮、最小化按钮、关闭按钮

4、及边框。 运行时通过移动窗体、改变窗体大小。二、窗体的属性属性决定窗体的外观和操作。常用的窗体属性有：Name(名称): 窗体名称,文件名扩展名为. frmBackColor 窗体的背景颜色: BorderStyle 窗体边框样式Caption 标题栏显示的内容ControlBox 决定窗体是否具有控制菜单Font 输出字符的字体、大小、颜色等Icon 决定窗体运行时处于最小化时所显示的图标MaxButton 决定窗体标题栏中是否具有最大化按钮Moveable 决定窗体是否能移动Picture 设置在窗体上显示的图片WindowState 决定运行时窗体是正、最小化还是最大化Height 窗体

5、高度 包括边框与标题 单位为TwipWidth 窗体的宽度 包括边框与标题 单位为TwipLeft 窗体的最左端与包含它的容器的最左端之间的距离Top 窗体的最上端与包含它的容器的最上端之间的距离ScaleHeight 窗体数据区的高度，不包括边框、标题、菜单栏等ScaleWidth 窗体数据区的宽度，不包括边框、标题、菜单栏等ScaleLeft/ScaleTop 窗体数据区坐标原点（0，0）的位置ScaleMode 窗体度量单位StartUpPosition 窗体首次出现在窗体上的位置Visible 窗体是否可见在程序中设计颜色的三种方法：1.直接使用颜色值或VB颜色常量: vbRed &a

6、mp;HBBGGRR:&H0000FF2.RGB函数 格式：RGB(red,green,blue) 02553.QBColor函数格式：QBColor(colorvalue) 015颜色颜色数值数值颜色颜色数值数值黑色黑色0灰色灰色8蓝色蓝色1淡蓝色淡蓝色9绿色绿色2淡绿色淡绿色10青色青色3淡青色淡青色11红色红色4淡红色淡红色12紫色紫色5淡紫红淡紫红13黄色黄色6淡黄色淡黄色14白色白色7亮白色亮白色15事件常用事件有： Click(单击)事件 单击窗体的空白区,响应该事件 DblClick(双击)事件 双击窗体的空白区,响应该事件 Load(装入)事件 当窗体被装入工作区时，响

7、应该事件 Activate(活动)事件 当窗体变为活动窗口时，响应该事件Unload(卸载）事件 当从内存中卸载窗体时，响应该事件QueryUnload 事件 当从内存中卸载窗体之前时，响应该事件Resize事件 当窗体首次显示在屏幕上或窗体大小改变KeyPress KeyDown KeyUp三、 事件和方法四、方法Load 装载窗体到内存，会引发窗体的Load事件，但不显示窗体 语法格式为： 窗体名.LoadShow 显示窗体 语法格式为： 窗体名.Show Style,ownerformHide 隐藏窗体 语法格式为： 窗体名.HidePrintCls 清除窗体上用Print方法显示的信息

8、和用绘图方法生成的图形 语法格式为： 窗体名.ClsMove 移动并改变窗体的位置和大小 语法格式为：窗体名.Move ,Top,width,height例：设计一窗体，运行时呈最大化状态，窗体图标为face.ico，标题为“窗体实验”，并在窗体中装入图形。当用户单击窗体的关闭按钮时，弹出询问对话框，询问用户是否要退出，若用户回答“是”，则退出系统，否则不退出，运行界面如图所示。 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要退出吗？, vbYesNo + vbQuesti

9、on, 确认) = vbYes Then Unload Me Else Cancel = True End IfEnd Sub2.3 2.3 最基本控件最基本控件一、命令按钮（CommandButton） VB中最常用的控件之一. 常用来接受用户的操作信息, 激发相应的事件过程, 是用户与程序交互的最简便的方法命令按钮主要属性NameCaptionFontCancel和DefaultEnabledStylePictureDownPicture和DisabledPictureValue Command1.Value=True 自动触发按钮的Click事件VisibleEnabled=falseS

10、tyle属性为0Style属性为1 事件命令按钮可以接受许多事件, 如： 鼠标单击(Click) 鼠标按下(MouseDown) 鼠标抬起(MouseUp) 键盘按下或松开事件(KeyPress、KeyUp)其中鼠标单击事件最常用.方法可以用SetFocus方法将焦点定位在指定的命令按钮上.如 Command1.SetFocus表示将焦点定位在名称为Command1的命令按钮上.二、标签（Label） VB提供的标签控件只能显示文本，而不能对文本进行编辑。标签通常用于标注本身具有Caption属性的控件。例如，可以使用标签为文本框附加描述信息。标签也常用于输出。1属性 Caption属性：字符

11、型。标签的标题。 Alignment属性：数值型。确定标签中标题的对齐方式，有以下设置值： 0-LeftJustify 缺省值，标题从标签的左边开始显示。 1-RightJustif 标题靠右显示。 2-Center 标题居中显示。 AutoSize属性：布尔型。设置为True时，可根据标题自动调整标签的大小；设置为False(缺省值)时，标签保持设计时定义的大小，太长的标题内容将不能显示出来。 BackStyle属性：数值型。缺省值为1，标签不透明；设置为0时，标签透明。 WordWrap属性：布尔型。设置为True时，标签将在垂直方向变化大小以与标题相适应，此时，Autosize属性应设置

12、为True；设置为False时 (缺省值)，标签不能在垂直方向上扩展。标签控件可以支持Click、DblClick等事件。例:设窗体上有一个标签控件Labell，其AutoSize属性值为True，双击该标签控件，则标签的标题字体增加10磅，可以通过如下代码实现：2事件Private Sub Label1_DblClick( ) LabellFontSize = LabellFontSize + 10 End Sub标签控件支持Move方法，用于实现控件的移动。Move方法的格式： Move ，： 指示对象左边的水平坐标(x-轴)。： 指示对象顶边的垂直坐标(y-轴)。： 指示对象新的宽度。

13、、：指示对象新的高度。例如，设窗体上有一个标签控件Labell，单击该标签控件，使该标签控件向右移动50缇，可以通过如下代码实现：3方法Private Sub Labeli_C1ick() LabellMove LabellLeft + 50End Sub代码运行界面例Private Sub Command1_Click() Label1.BorderStyle = 1End SubPrivate Sub Command2_Click() Label1.BorderStyle = 0End SubPrivate Sub Command3_Click() Label1.BackStyle = 0

14、End SubPrivate Sub Command4_Click() Label1.BackStyle = 1End Sub1) Text属性： 字符串类型。返回或设置文本框中显示的内容。 例如：Text1.Text = “欢迎使用 Visual Basic”2) MultiLine属性： 布尔型。当MultiLine属性为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框时自动换行。默认值为False。 在设计阶段，在属性窗口设置Text属性值时，通过按下Ctrl+Enter组合键实现文本的换行。 在运行阶段，如果窗体上没有缺省按钮，则在多行文本框(TextBox)控件中

15、按下回车键可以把光标移动到下一行；如果有缺省按钮存在，则必须按下Ctrl+Enter组合键才能移动到下一行。 三、文本框(TextBox) 文本框控件在工具箱中的名称为TextBox，在VB中，可以使用文本框控件作为输入控件，在运行时接收用户输入的数据。1属性3) PasswordChar属性： 字符串类型。当MuitiLine属性值为False时，该属性可以用于口令输入。在缺省状态下，该属性被设置为空串，用户从键盘输入时，每个字符都可以在文本框中显示出来。如果把PasswordChar属性设置为一个字符，如星号(*)，则在文本框中键人字符时，只显示星号，不显示键人的字符。Text属性接收的仍

16、是用户输入的文本。4) ScrollBars属性： 数值型。该属性用于确定文本框是否带滚动条。有以下4种选择： 0-None 没有滚动条 1-Horizontal 只有水平滚动条 2-Vertical 只有垂直滚动条 3Both 同时具有水平和垂直滚动条 只有当MultiLine属性值为True时，文本框才显示滚动条。5) SelLength属性： 数值型。在程序运行期间返回或设置选择的字符数。 例如： Text1.Sellength = Len(Text1.Text) 表示选中文本框Text1中所有字符。 6) SelStart属性： 数值型。在程序运行期间返回或设置当前选择文本的起始位置。

17、 例如：Textl.SelStart = 0 表示选择文本的起始位置从第一个字符开始。 7) Locked属性： 布尔型。指定运行时文本框内容是否可以编辑。默认值为False，表示可以编辑。 1)Change事件： 当用户向文本框输人新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。 2事件和方法 文本框除了支持鼠标的Click、DblClick事件外，还支持Change、GotFocus、LostFocus、KeyPress等事件和SetFocus方法。例：建立三个文本框和两个命令按钮。运行时，用户在文本框Text1中输入内容的同

18、时，文本框Text2和Text3显示相同的内容，但显示的字体不同。单击“清除”，按钮清空三个文本框中的内容，单击“退出”按钮结束程序的运行设计界面运行界面程序代码2) GotFOCUS事件： 当运行时用Tab键或用鼠标选择对象，或用SetFOCUS方法使光标落在对象上时，触发该事件，称之为“获得焦点”。该事件适用于窗体和大部分可接受键盘输入的控件。Text1获得焦点Text2获得焦点3) LostFOCUS事件： 当按下Tab键使光标离开当前文本框，或者用鼠标选择窗体的其他对象时触发该事件，称之为“失去焦点”。4) KeyPress事件： 当在键盘上按下某个键时触发该事件。KeyPress事件返回一个参数KeyAscii，该参数值为整数，表示所按下键的ASC码。 5) SetFocus方法： SetFocus方法是文本框常用的方法，该方法是把光标移到指定的文本框中，使该文本框获得焦点。 当在窗体上建立了多个文本框后，可以使用该方法把光标置于所需要的文本框上。使用格式如下： .SetFocus 例如，将焦点定位在文本框Textl中，使用语句：Textl.SetFocus2.4 2.4 应用程序设计过程实例应用程序设计过程实例 本节以一具体实例