基于VB的桌面系统开发方案T4.ppt

* 本课总结（续） 创建对象时要求的三个主要原则是： 封装 多态 继承 类模块的属性可以有下面两种创建方法： 创建一个公有变量 创建一个属性过程 Visual Basic提供了三种类型的属性过程： Property Let Property Set Property Get * 本课总结（续） 使用Public Sub和Function过程来为类创建方法 Visual Basic提供了内部事件和用户自定义事件 Visual Basic提供的内部事件中最重要的是Initialize和Terminate事件 使用关键字Event在类中创建自定义事件 使用RaiseEvent语句来触发类中的自定义事件 关键字WithEvents用来声明支持自定义事件的对象 * 创建一个类 在Visual Basic中创建一个类需要下面四个基本步骤： 添加一个类模块并设置它的属性 创建类的属性 创建类的方法 创建类的事件 * 类模块 Visual Basic中的面向对象编程最基本的构成是类模块 类模块包含一个类的定义，以及这个类的属性和方法的定义 每个类都保存在一个扩展名为.CLS的文件里 与标准代码模块很相似，包括一些可以在应用程序中被其它模块调用的函数 * 类模块和标准模块的区别 两者数据存储不同,标准模块的数据不能有多个拷贝 从类模块创建的每个对象都可以拥有一份独立的自己的数据标准模块中的数据的生存时间和应用程序是一样的 对象中的数据则随着对象的存在而存在，随着对象的消亡而消亡 标准模块中的全局变量在应用程序的任何部分都可见，然而类模块的全局变量只可以通过引用这个对象来访问 * 添加类模块 选择“工程（Projects）”菜单中的“添加类模块（Add Class Module）”子菜单 * 创建类的属性 属性可以有两种创建方式： 创建一个公有变量 创建一个属性过程 公有变量 通过在类模块的声明部分使用关键字Public来创建公有变量 Public Ac_num As Integer Public Balance As Integer * 创建类的属性（续） 为访问类的信息提供完全开放的接口。 不能创建在类中经常要用到的只读属性。 私有变量只能被类模块内部的代码访问。 Private Ac_num As Integer Private Balance As Integer * 创建类的属性（续） 属性过程 增强了数据的隐藏性 可以隐藏对象的部分数据，同时也向外界显示部分数据 三种类型的属性过程： Property Set Property Let Property Get * 创建属性过程 属性过程的创建： 在类模块的代码窗口中键入代码 或者 使用“添加过程（Add Procedure）”对话框来创建，在“工具（Tools）”菜单中选择“添加过程（Add Procedure…）”选项就可以显示“添加过程”对话框 * 属性过程对话框 * 属性过程 键入过程的名称 在“类型”（type）选项中选中“属性”（property） 在“范围”(scope)选项中选中“公有”（public） 单击“确定”按钮 如下图为属性过程窗口 * 属性过程（续） * 属性过程（续） 属性过程 说明 Property Set 唯一不能自动由过程对话框创建的过程。该过程设置一个对象引用 Property Let 指定一个参数，用来给属性传递值。参数按值传递，以防止过程改变传递给过程的变量的值 Property Get 用来从类返回一个值。如果只创建Get 过程，而不创建Set 和 Let过程的话，就相当于创建了一个只读的属性 * 属性过程（续） 下面的例子生成以大写方式显示的属性： Dim getcap As String Public Property Get CapText() As String CapText = getcap End Property Public Property Let CapText (ByVal vNewValue As String) getcap = Ucase(vNewValue) End Property * 属性过程（续） Private Sub Command1_Click() Dim cs As Class1 Set cs = New Class1 cs.CapText = Text1.Text Text1.Text = cs.CapText End Sub Public Property Set(newob As Object) Set curr = newob