第2章 VB应用程序设计过程.ppt

1、第2章 VB应用程序设计过程,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.BackColor = v

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

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

5、体是正常、最小化还是最大化,Height 窗体高度 包括边框与标题 单位为Twip Width 窗体的宽度 包括边框与标题 单位为Twip Left 窗体的最左端与包含它的容器的最左端之间的距离 Top 窗体的最上端与包含它的容器的最上端之间的距离 ScaleHeight 窗体数据区的高度，不包括边框、标题、菜单栏等 ScaleWidth 窗体数据区的宽度，不包括边框、标题、菜单栏等 ScaleLeft/ScaleTop 窗体数据区坐标原点（0，0）的位置 ScaleMode 窗体度量单位 StartUpPosition 窗体首次出现在窗体上的位置 Visible 窗体是否可见,在程序中设计颜

6、色的三种方法：,1.直接使用颜色值或VB颜色常量: vbRed &HBBGGRR:&H0000FF 2.RGB函数 格式：RGB(red,green,blue) 0255 3.QBColor函数 格式：QBColor(colorvalue) 015,事件,常用事件有： Click(单击)事件 单击窗体的空白区,响应该事件 DblClick(双击)事件 双击窗体的空白区,响应该事件 Load(装入)事件 当窗体被装入工作区时，响应该事件 Activate(活动)事件 当窗体变为活动窗口时，响应该事件 Unload(卸载）事件 当从内存中卸载窗体时，响应该事件 QueryUnload 事件 当从内

7、存中卸载窗体之前时，响应该事件 Resize事件 当窗体首次显示在屏幕上或窗体大小改变 KeyPress KeyDown KeyUp,三、 事件和方法,四、方法,Load 装载窗体到内存，会引发窗体的Load事件，但不显示窗体 语法格式为： 窗体名.Load Show 显示窗体 语法格式为： 窗体名.Show Style,ownerform Hide 隐藏窗体 语法格式为： 窗体名.Hide Print Cls 清除窗体上用Print方法显示的信息和用绘图方法生成的图形 语法格式为： 窗体名.Cls Move 移动并改变窗体的位置和大小 语法格式为：窗体名.Move ,Top,width,he

8、ight,例：设计一窗体，运行时呈最大化状态，窗体图标为face.ico，标题为“窗体实验”，并在窗体中装入图形。当用户单击窗体的关闭按钮时，弹出询问对话框，询问用户是否要退出，若用户回答“是”，则退出系统，否则不退出，运行界面如图所示。,Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要退出吗？, vbYesNo + vbQuestion, 确认) = vbYes Then Unload Me Else Cancel = True End If End Sub,2.3 最基本

9、控件,一、命令按钮（CommandButton）,VB中最常用的控件之一. 常用来接受用户的操作信息, 激发相应的事件过程, 是用户与程序交互的最简便的方法,命令按钮,主要属性,Name Caption Font Cancel和Default Enabled Style Picture DownPicture和DisabledPicture Value Command1.Value=True 自动触发按钮的Click事件 Visible,Enabled=false,Style属性为0,Style属性为1,事件,命令按钮可以接受许多事件, 如： 鼠标单击(Click) 鼠标按下(MouseDow

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

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

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

13、签控件向右移动50缇，可以通过如下代码实现：,3方法,Private Sub Labeli_C1ick() LabellMove LabellLeft + 50 End Sub,代码,运行界面,例,Private Sub Command1_Click() Label1.BorderStyle = 1 End Sub Private Sub Command2_Click() Label1.BorderStyle = 0 End Sub Private Sub Command3_Click() Label1.BackStyle = 0 End Sub Private Sub Command4_Cl

14、ick() Label1.BackStyle = 1 End Sub,1) 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属性接收的仍是用户输入的文本。 4) ScrollBars属

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

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

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