Visual Basic 程序设计 清华大学出版社 第二章课件.ppt

1、第二章 类与对象,TIPS,Only those who have the patience to do simple things perfectly ever acquire the skill to do difficult things easily 。 只有有耐心圆满完成简单工作的人，才能够轻而易举地完成困难的事。,2.1.1对象和类的概念,对象是代码和数据的集合，类是同类对象集合的抽象。 简单来说：,属性是用于描述对象特征的参数。如控件的名称（Name）、控件的高度（Height）、字体（Font）、背景颜色（BackColor）等。 对象的属性设置可通过两种方法进行： 1）在设计

2、阶段选择某个对象，利用属性窗口直接设置所选对象属性。 2）在代码窗口编辑程序代码时，通过给属性赋值来设置，其格式为：对象名.属性名属性值 例如：text1.text=“上海”,2.1.2 属性,2.1.2 属性,VB为每类控件规定了一个属性，引用这个属性时可不必给出属性名，通常把这个属性称为默认属性 例如：Text1=“hello”等价于 Text1.text=“hello”,出错指数：,方法是附属于对象的行为和动作，其实际上是对象本身内含的一些特殊的函数或过程。 对象方法的调用格式是： 对象名. 方法名 参数表 例如：Form1.Print “程序设计基础” 注意： 若当前窗体(活动窗体)就

3、是Form1，可简化为 Print “程序设计基础”,2.1.3方法,事件是由VB预先设置的、能被对象识别和响应的动作。当在对象上触发某个事件后，就执行与事件相关的事件过程。 事件过程的形式是： Sub 对象名_事件过程名(参数列表) 事件过程代码 End Sub 例如：Sub Text1_Click() Text2.Text=Text1.Text End Sub,2.1.4 事件,（1）启动应用程序，窗体、控件载入 （2）用户界面上的对象等待事件发生，事件可由用户操作发生，也可由系统引发。 （3）如为相应的对象和事件设计了事件过程代码，则就执行，实现相应功能。 （4）用户界面上的对象等待下一

4、事件发生。,事件驱动应用程序典型的工作方式是：,VB中控件的分类,标准控件（内部控件) 出现在工具箱上的20个控件。 ActiveX控件 扩展名为.OCX或.DLL的独立文件，通过“工程”-“部件”-“控件”添加到工具箱 可插入对象 通过“工程”-“部件” -“可插入对象”添加 到工具箱,VB控件介绍,本节将介绍几种VB的常用控件；每个控件都将从属性、事件、方法三个层面进行介绍。,VB控件常用属性,有这样几种属性几乎每个控件都具有： Name-定义对象名称。只能在设计状态下设置。 Caption-定义控件标题。 Enabled 设置控件激活或禁止。 Visible-设置可见性。True可见；F

5、alse不可见 Height、Width、Left、Top 定义控件大小和位置 Font 字形设置 Aligment-内容的对齐方式。0-左对齐；1-右对齐；2-居中,VB控件常用方法,有这样几种方法很常见： Click 单击鼠标左键的事件 DblClick 双击鼠标左键的事件,2.2窗体,窗体类似一块“画布”，是所有控件的容器，各种控件可以建立在窗体内，一个窗体对应工程资源管理器中的一个窗体模块。,BorderStyle-设置窗体边框。共6种。 MaxButton、MinButton- True时有最大、最小按钮；False时没有。只能在设计状态下设置。 ControlBox- True时有

6、窗口控制框；False时没有。 Icon-窗体最小化图标。 ControlBox为True时才可设置。 BackColor-背景色。可用十六进制数或符号常量表示颜色。 WindowsState-窗体运行时状态。0-正常，1-最小，2-最大 Picture 设置显示图形。 AutoRedraw-屏幕图像重画。当使用Print方法时应为True。,出错指数：,2.2.1窗体属性,2.2.2事件 Load 窗体装入工作区的事件 Unload 窗体卸载时触发的事件 Activate 成活动窗体时的事件 Deactivate 其它窗口变成活动窗口事件 Paint 移动放大或覆盖时事件,2.2.3方法 窗

7、体常用的方法有Cls（清除）、Move（移动）、Print（显示或打印）等。 Cls方法：清除运行时窗体上显示的文本或图形。但不能清除设计状态下设置的内容。 窗体名.Cls 例如： Form1.Cls Move方法：用来在屏幕上移动窗体。调用的格式是： 窗体名.Move Left,Top,Width,Height 例如：Form.Move 50,50,10000,8000 Print方法：用来在窗体上显示或打印。 窗体名.Print 例如：Form1.Print “hello”,2.3.1文本框属性,Text-设置文本框中显示的内容。文本框没有Caption属性 MaxLength-设置文本框

8、中内容的最大长度.值为0表示最大长度受系统限制 MultiLine-内容超出文本框宽度时是否可以多行显示。True-可以；False-不可以。,接上页,ScrollBars-文本是否具有水平和垂直滚动条。0-没有；1-水平；2-垂直；3-水平和垂直。 Locked-设置文本框的内容是否可以编辑。True-不可以；False-可以。 PasswordChar 设置掩盖字符。若设为*，则任何输入的字符都显示为* 。属性值只能是一个字符。 SelStart、SelLength、SelText-只能在代码中设置使用。分别是设置所选文本的起始位置或光标插入点的位置；所取字符个数；选定的内容。 例如： T

9、ext1.SelStart = 1 Text1.SelLength = 3 Form1.Print Text1.SelText,2.3.2文本框事件与方法 Change事件-文本框的Text值改变时会触发该事件。 KeyPress事件 按下并释放键盘上的键时触发，并有与所按键相对应的整数返回值存放于KeyAscii参数。回车键返回的KeyAscii参数值为13。 private sub Text1_KeyPress(KeyAscii As Integer) if KeyAscii=13 then . End if End Sub LostFocus事件-文本框失去焦点时触发 SetFocus方

10、法 将焦点设为该文本框，用法为： 对象.SetFocus 例如： Text1.SetFocus,2.4命令按钮,2.4.1属性 Style-设置按钮风格。0-标准风格；1-图形风格。 Default-设置是否为缺省命令按钮。窗体中只能有一个命令按钮可以为缺省命令按钮。当某个命令按钮的Default设置为True 时，窗体中其它的命令按钮自动设置为False。当命令按钮的Default 设置为True而且其父窗体是活动的，用户可以按ENTER键选择该按钮。 Cancel 设置默认的“取消”按钮。True-是；False-不是 ToolTipText-设置光标停留在按钮上时的文字提示 Pictur

11、e-设置按钮上显示的图形。Style的属性值 应设为1。,2.4.2事件与方法 命令按钮常用的事件有Click、MouseDown和MouseUp。 这三个事件有一定关联，单击命令按钮时，三个事件发生的先后顺序是： MouseDownClickMouseUp。 命令按钮常用的方法有Move、SetFocus等。,2.5标签,2.5.1属性 BorderStyle-设置标签的边框。 BackStyle-标签背景是否透明。0-透明；1-不透明。 AutoSize-是否随内容自动调整标签大小。True-是；False-否。 WordWrap 是否可多行显示。True-是；False-否。AutoSi

12、ze应为真。 BackColor、ForeColor-设置标签的背景色、前景色。,2.5.2事件与方法 标签的事件有Click、DblClick、Change等。 标签主要是用于文本显示，一般不需要设计事件代码。 标签的方法有Move、Refresh等 。,(真题)为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为( ) A)0 B)1 C)2 D)3,D,例题2.1 在窗体上建立一个命令按钮Command1和Command2，先在属性窗口设置窗体和命令按钮的Caption属性，再进一步用代码分别设置窗体和命令按钮的有关属性

13、。 注意： 将 Form1.MousePointer=k 改为Form1.MousePointer=val(k) 修改后选弹出窗口选择“取消”键也不会出错,Option Explicit Dim k 定义变量k Private Sub Command2_Click() k = InputBox(输入鼠标指针形状参数0-15, 鼠标指针形状参数, 0) Form1.MousePointer =val(k ) 设置窗体区域鼠标指针形状 End Sub Private Sub Command1_Click() 改变命令按钮属性 Command1.FontName = 黑体 Command1.Font

14、Size = 10 10磅 Command1.FontBold = True 加粗 Command1.FontItalic = True 斜体 Command1.FontUnderline = True 带下划线 Command1.Enabled = False 失效，呈暗淡色 Command2.FontName = 隶书 Command2.Enabled = True End Sub,(真题)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( ) A)工程资源管理器窗口 B)工具箱窗口 C)代码窗口 D)属性窗口,C,(真题)要使一个标签透明且具有边框，则应( ) A)将其BackSty

15、le属性设置为0，BorderStyle属性设置为0 B)将其BackStyle属性设置为0，BorderStyle属性设置为1 C)将其BackStyle属性设置为1，BorderStyle属性设置为0 D)将其BackStyle属性设置为1，BorderStyle属性设置为1,B,(真题)我们可以在设计时(属性窗口中)和运行时(程序代码中)设置属性的属性值，以下关于属性设置的说法正确的是( ) A)在属性窗口中可以设置所有属性的属性值 B)在程序代码中可以设置所有属性的属性值 C)属性的名称由VB事先定义，用户不能改变 D)所有对象的属性都是可见的,C,(真题) 以下说法中正确是的( )

16、A)当焦点在某个控件上时，按下一个字母键,就会执行该控件的keypress事件过程B)因为窗体不接受焦点,所以窗体不存在自己的keypress事件过程C)若按下的键相同,keypress事件过程中的keyascii参数与keydown事件过程中的keycode参数的值也相同D）在keypress事件过程中，keyascii参数可以省略,A,2.6创建应用程序,2.6.1程序的组成 在Visual Basic中，一个应用程序就是一个工程，以.vbp工程文件的形式保存。一个工程应包含一个（或多个）.frm窗体文件、自动产生的.frx二进制文件（如属性窗口装入的图片等），还可有.bas 标准模块文件

17、及.cls类模块文件。,2.6.2程序的保存 保存一个工程时不要遗漏文件，一般先保存frm文件（若有多个frm或有bas、cls，应分别对其加以保存），最后保存工程文件。 注意：要区分窗体名称和 窗体文件名，窗体名称是在程序中使用的窗体对象名；窗体文件名是存放在磁盘上的文件名。 例如在程序中叫做Form.frm的窗体可以Main.frm名称保存。,出错指数：,例题2.2 设计一个应用程序，实现人民币和欧元双向兑换。,Option Explicit Private Sub Command1_Click() 清空文本框 Text1 = Text2 = Text3 = End Sub Private

18、 Sub Command2_Click() 人民币换成欧元 Text3 = Val(Text1) / (Text2) Val为文本转换成数值函数 End Sub Private Sub Command3_Click() 欧元换成人民币 Text1 = Val(Text3) * Val(Text2) End Sub Private Sub Command4_Click() 结束程序 End End Sub,2.6.3常见错误类型与调试 语法错误 ：系统显示编译错误。 运行时错误 ：单击“调试”按钮，修改错误。 逻辑错误 ：程序正常运行但没有得到预期结果。 调试方法： 设置断点 利用Debug.Print在立即窗口中显示相关变量的值,2.6.4创建应用程序的过程 建立用户界面的控件对象。 控