第3章 面向对象程序设计基础.ppt

1、第3章 面向对象程序设计基础,面向对象程序设计概念的引入 Visual Basic工程 创建Visual Basic程序的步骤 赋值语句 数据输入 数据输出,第三章 面向对象程序设计基础,3.1 面向对象程序设计概念的引入,3.1.1 对象 3.1.2 类 3.1.3 属性的设置 3.1.4 事件、方法的编辑,第三章 面向对象程序设计基础,3.1.1 对象,对象（Object）是现实世界中某个客观存在的事物，它可以是有形的，也可经是无形的。 对象是构成客观事物的一个“单位”，它具有静态特征（客观事物属性）和动态特征（客观事物行为和功能）。,第三章 面向对象程序设计基础,3.1.2 类,类（Cl

2、ass）就是同类对象的属性和行为特征的抽象描述。 Visual Basic系统程序的面向对象技术，不仅实现了类的数据抽象，而且通过抽象出相关的类的共性，而形成一般的“基类”，用户可利用类的继承性和封装性，对“基类”增添不同的特性，或完全继承派生出各种各样的对象，完成程序设计的任务。 Visual Basic系统工具箱的各种控件并不是对象，而是代表了各个不同的类。程序设计者通过对类的实例化，便可得到所创建的对象。,第三章 面向对象程序设计基础,3.1.2 类,第三章 面向对象程序设计基础,3.1.3 属性的设置,1.利用“属性”窗口设置对象属性 （1）在“工程设计”窗口，依次选择【视图】【属性窗

3、口】菜单选项，打开“属性”窗口。 （2）在“工程设计”窗口，选中设置属性的“对象”，单击鼠标右键，打开快捷菜单，选择【属性窗口】菜单选项，打开“属性”窗口。 （3）在“工程设计”窗口，选中设置属性的“对象”，单击工具栏中的 按钮，打开“属性”窗口。 2.利用属性设置语句为对象设置属性 格式1： .属性名 = 格式2： With End with,第三章 面向对象程序设计基础,3.1.4 事件、方法的编辑,1.事件 事件（Event）就是每个对象可能用以识别和响应的某些行为和动作。 通常，一个对象可以识别和响应一个或多个事件。 事件过程定义语句格式： Private Sub 对象名称_事件名称(

4、（参数列表）) 程序代码 End Sub,第三章 面向对象程序设计基础,3.1.4 事件、方法的编辑,2.方法 方法（Method）是附属于对象的行为和动作，也可以将其理解为指示对象动作的命令。 方法调用的语句格式： .方法名 方法是面向对象的，所以对象的方法调用一般要明确对象。,第三章 面向对象程序设计基础,3.2 Visual Basic工程,3.2.1 创建工程 3.2.2 更改工程属性 3.2.3 保存工程 3.2.4使用工程 3.2.5 使用工程组,第三章 面向对象程序设计基础,3.2.1 创建工程,方法一： （1）每当启动Visual Basic系统程序时，就会有一个“新建工程”窗

5、口被打开。 （2）在“新建工程”窗口，选择所要创建的工程类型，再按“打开”按钮，便可创建一个工程。 方法二： （1）启动Visual Basic系统程序，同时打开“新建工程”窗口， （2）在“新建工程”窗口，按“取消”按钮，进入Visual Basic系统主工作窗口。 （3）在Visual Basic系统菜单下，依次选择【文件】【新建工程】菜单选项。 （4）在“新建工程”窗口，选择所要创建的工程类型，再按“确定”按钮，便可创建一个工程。,第三章 面向对象程序设计基础,3.2.2 更改工程属性,打开工程属性窗口有如下两种方法： （1）在工程资源管理器窗口，选择所要设置参数的工程，右击工程文件。

6、（2）在“Visual Basic系统菜单下，依次选择【工程】【工程属性】菜单选项。,第三章 面向对象程序设计基础,3.2.3 保存工程,保存工程，首先要逐一将工程的各个部分（窗体、模块等）保存为独立的文件，然后再保存工程文件本身。 操作方法是：在窗体、模块等文件已保存后的情况下，在Visual Basic系统菜单下，依次选择【文件】【保存工程】菜单选项，可保存工程。,第三章 面向对象程序设计基础,3.2.4 使用工程,1.打开工程 操作步骤如下： （1）在Visual Basic系统菜单下，依次选择【文件】【打开工程】菜单选项，进入“打开工程”窗口。 （2）在“打开工程”窗口，选择要打开的工

7、程文件，按“打开”按钮，工程文件被打开（同时也打开了工程文件所包含的窗体、模块等文件。,第三章 面向对象程序设计基础,3.2.4使用工程,2.添加窗体 操作步骤如下： （1）在Visual Basic系统菜单下，打开工程文件。 （2）在Visual Basic系统菜单下，依次选择【工程】【添加窗体】菜单选项，进入“添加窗体”窗口。 （3）在“添加窗体”窗口，若选择“新建”选项卡，可以新建一个窗体，并将新窗体添加到工程文件中；若选择“现存”选项卡，可以向工程文件添加一个已有的窗体。,第三章 面向对象程序设计基础,3.2.4使用工程,3.添加模块 操作步骤如下： （1）在Visual Basic系

8、统菜单下，打开工程文件。 （2）在Visual Basic系统菜单下，依次选择【工程】【添加模块】菜单选项，进入“添加模块”窗口。 （3）在“添加模块”窗口，若选择“新建”选项卡，可以新建一个模块，并将新模块添加到工程文件中；若选择“现存”选项卡，可以向工程文件添加一个已有的模块。,第三章 面向对象程序设计基础,3.2.5 使用工程组,操作步骤如下： （1）在Visual Basic系统菜单下，打开工程文件。 （2）在Visual Basic系统菜单下，依次选择【文件】【添加工程】菜单选项，进入“添加工程”窗口。 （3）在“添加工程”窗口，若选择“新建”选项卡，可以新建一个工程，并将新工程添加

9、到工程组文件中；若选择“现存”选项卡，可以向工程组文件添加一个已有的工程。,第三章 面向对象程序设计基础,3.3 创建Visual Basic程序的步骤,（1）分析问题，确定目标； （2）进入Visual Basic的集成环境； （3）新建工程（创建一个应用程序首先要新建一个新的工程）； （4）创建对象、设计对象的属性（设计应用程序界面）； （5）设计对象事件或方法（事件、方法过程的编程）； （6）保存文件（保存窗体，保存工程）； （7）程序运行与调试，再次保存修改后的程序。,第三章 面向对象程序设计基础,3.3 创建Visual Basic程序的步骤,例3.1 设计一个窗体，利用两个文本框控

10、件，进行短信交互 。,赋值语句,1. 格式 = 或: .= 2. 功能 计算表达式的值,再将此值赋给变量或对象属性。,3. 说明 (1) : 应符合VB变量命名约定。 (2) : 常量、变量、表达式、属性。 (3) : 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1,(5) 赋值号左边必须是变量或对象属性。 例: X=1 MyStr=Good Morning Command1.Caption=确定 X+1=X 错误，赋值号左边是表达式 Y=5 正确 5=Y 错误，赋值号左边是常量 (6) 变量名或对象属性名的类型应与表达式类型相容。 类型相容：指变量名或

11、对象属性名能够正确存取赋值号右边的表达式的值。,例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 将整型数100赋给整型变量A S = 123.45 将字符串123.45赋给变量S A = S 将数字字符串变量赋给整型变量， 变量A中存放123 S = A S中存放字符串123 B = 12345.67 A = B 高单度变量赋值给整型变量， 先四舍五入后取整, A中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量， 变量B中存放123456.8。有效数字7位 S =

12、abc A = S 错误，类型不匹配,(7) 变量未赋值时，数值型变量值为0，字符串变量值为空串。 (8) 给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型。 例: 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8,可用TypeName函数显示变量的数据类型。 如:Print TypeName(A),【例】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。 代码如下: A = 5 B =

13、 8 C = A A = B B = C,数据输入,把要加工的初始数据从某种外部设备（例如键盘）输入到计算机中，并把处理结果输出到指定设备（如显示器），这是程序设计语言所应具备的基本部分。,用输入框(InputBox)输入数据,1. InputBox函数的格式 InputBox( , , ) 2. 功能 提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。 3. 说明 : 字符串表达式。 可用Chr(13)、Chr(10)、 Chr(13) R; AREA=; AREA End Sub,单击“确定”，返回文本框中的文本到变量R中 单击“取消”，返回一个零长度的字符串,用文本

14、框输入数据时，也就是将文本框的Text属性的内容赋值给某个变量。 例：将文本框Text1中输入的字符串赋给字符串变量Mystr Dim MyStr As String MyStr = Text1.Text 例：将文本框Text1中输入的字符串作为数据赋给整型变量 Dim A As Integer A = Val(Text1.Text),用文本框(TextBox)输入数据,1. 焦点 当前可以接收用户输入的对象称为具有焦点。 注意: 并非所有控件都可以接收焦点。而且, 只有Enable和Visible属性为True时，才可以接收焦点。 2. 事件 GotFocus 发生在对象得到焦点时 Lost

15、Focus 发生在对象失去焦点时 3. 对象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键) 在代码中使用SetFocus方法,焦点和Tab键序,4. 对象何时失去焦点 运行时用Tab键移动、用访问键或用鼠标单击选择另一个对象。 在代码中对另一个对象使用SetFocus方法改变焦点。 5. Tab键序 指按Tab键时光标在各个控件之间移动的顺序。 每个窗体都有自己的Tab键序。 默认键序与控件的建立次序一致。 TabIndex属性: 决定Tab键序 改变TabIndex属性可以改变Tab键序 TabStop属性: 决定是否能够使用 TAB 键将焦点移动到当前对象。,【例】设计如下图所示的

16、界面，运行时，输入某学生三门课的成绩，计算平均成绩。按要求编程。,要求： 单击“计算”按钮求平均成绩； 当输入成绩的文本框获得焦点时，选中其中的文本； 当输入成绩的文本框内容发生变化时，清除平均值； 单击“清除”按钮清除所有内容，将焦点定位在Text1中； 单击“退出”按钮结束程序的运行。,单击“计算”按钮求平均成绩 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub,当输入成绩的文本框获得焦点时

17、,选中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Sub,当输入成绩的文本框内容发生变化时,清除平均

18、值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End Sub Private Sub Text3_Change() Text4.Text = End Sub,单击“清除”按钮清除所有文本框的内容，并将焦点定位在文本框Text1中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub 单击“退出”按钮结束程序的

19、运行。 Private Sub Command3_Click() End End Sub,数据输出,在程序设计中对输入的数据进行加工后，往往需要将处理结果、提示信息等呈现给用户，即输出。,用文本框输出数据时，也就是将数据赋给文本框的Text属性。例如输出一个字符串（或数值）, 输出多个字符串（或数值） 例：用文本框Text1输出一个字符串 Text1.Text = hello 例：用文本框Text1输出一个数值型数据 X = 3 5 Text1.Text = Str(X) Str可以省略或用Format 例：用文本框Text1输出多个数，分多行输出。 首先将文本框的MultiLine设置为Tr

20、ue，必要时可以进一步设滚动条属性ScrollBars。 X = 3 5: Y = 7 4 Text1.Text = Str(X) 设置三个文本框的Alignment属性为1-Right Justify; 设置标签Label2的Caption属性为空; 设置标签Label2的BorderStyle属性为1 Fixed Single。,代码如下：,Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Va

21、l(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 显示时保留两位小数 Label2.Caption = Format(S, 0.00) End Sub,消息框常用于在屏幕上显示一个对话框，给出一些提示或警告信息，并允许用户进行选择。程序可根据该选择确定进一步的操作。 1. MsgBox函数的格式 =MsgBox(,) 或： MsgBox , 2. 功能 在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。 3.说明 : 字符串表达式。

22、可用换行符换行。 : 按钮类型+图标类型+默认按钮。 : 字符串表达式。 返回值: 由在对话框中按下哪种按钮决定。,用消息框(MsgBox)输出数据,例: Private Sub Command1_Click() MsgBox 提示信息 End Sub,例: 换行 Private Sub Command1_Click() MsgBox 第一行 | , : 窗体 如 Form1.Print Hello 图片框 如 Picture1.Print Hello 打印机 如 Printer.Print Hello 立即窗口 如 Debug .Print Hello 省略: 默认为当前窗体。 : 多个表达

23、式使用逗号或分号隔开。 逗号: 以14个字符位置为单位把一个输出行分成若干区段。 分号: 后一项紧跟前一项输出。,输出时，数值型数据前有一个符号位(正号不显)，后面留一个空格位；字符串原样输出，前后无空格。,例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub,例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub,例: Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 产生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗号的作用 Print 2-4=; Print 2 - 4 End Sub,输入Print时可用?代替，VB将其自动转换成Print,2. 与Print方法有关的函数 (1) Tab函数