VisualaBsic程序的设计.ppt

本章主要内容： ● 类的创建 ● 在程序中访问类;11.1 类的创建 无论是简单的类还是复杂的类，其创建步骤基本一致，一般分为4个步骤：插入一个类模块、定义类的属性、添加类的方法、响应缺省事件和创建自定义事件。 下面以一个工资卡（SalaryCar）为例，说明类的创建过程。设工资卡由银行于每月的15日将工资向卡内入账，持卡的职工随时可以通过自动取款机，在正确回答了密码后从卡中取款。 根据工资卡的特点，新建类应有的属性为：账号（No）、密码（PassWord）、余额（Balance）、入账日期(AddDate)。 新建类应具有的方法为：取款（Draw）、入账（Add）。 用户定义事件有：一旦超过了入账日期，就要发出入账日期到的事件（DateUp）。;11.1.1 插入一个类模块 插入一个类模块的步骤为： ① 创建一个标准EXE工程，执行“工程”菜单中的添加“类模块”命令，选择“新建”选项卡中的“类模块”。 ② 单击“打开”按钮，如图11-1所示，即可在当前工程中插入一个类模块。 在工程管理器中可以看到该类模块，如图11-2所示。其缺省名称为“Class1”，用户可以根据需要在属性窗口中进行更改。当保存工程时类模块的信息将保存在后缀为.cls的文件中。;11.1.2 定义类的属性 1. 使用公共变量 创建属性最简单的方法就是使用公共变量，只要在类模块的声明段声明它们即可，其语法格式如下： Public 〈属性名〉 As 〈类型〉 例如：Public No As String 设置类的账号属性为字符型。 2. 使用属性过程 在类中建立属性最安全、最灵活的方法是使用属性过程。属性过程具有封装功能，一般在应用于下列场合时应当使用属性过程： l??????? 属性为只读或一旦设置就不能更改的情况。 l??????? 属性已设置的值需要合法性验证。; l??????? 属性的设置可导致一些对象状态的改变或改变其他属性及内部变量值。 尤其属性过程提供了建立只读属性的功能，这在使用公共变量时是不可能的。系统提供的3种可用的属性过程，见表11-1。 表11-1 可用的属性过程; 建立属性过程可以执行“工具”菜单下的“添加过程”命令，选择“属性”，填入“名称”（这个名称将成为对象的属性名），本例填入了“DateAdd”表示入账日期，单击“确定”按钮完成添加操作，如图11-3所示。; 此时在类模块的代码窗口中将自动出现图11-4所示的属性代码框架。属性过程一般都是成对出现（具有相同属性名的Property Get过程和Property Let过程），表示该属性可读可写。如果只有Property Get过程，则表示该属性为只读属性，也就是说应用程序不能直接修改该属性的值，若要更改必须通过类方法编程来实现。缺省情况下，VB认为所有的属性及参数均为Variant类型，可以在代码窗口中进行修改，也可以不使用添加过程对话框而直接在代码窗口中输入。 在本例中，属性PassWord和Balance为只读属性，持卡人不能直接更改，属性DateAdd可读可写，程序代码如下： Private mPassWord As String Private addPassWord Private mDateAdd As Date Private mBalance As Currency; Public Property Get DateAdd() As Date DateAdd = mDateAdd End Property Public Property Let DateAdd(ByVal NewDate As Date) 规定每月15日为入账日期，同时要比较前次入账的日期关系，以避免同日重复入账 If NewDate mDateAdd And Day(NewDate) = 15 Then mDateAdd = NewDate End If End Property Public Property Get Balance() As Currency Balance = mBalance End Property Public Property Get PassWord() As String PassWord = mPassWord End Property;11.1.3 添加类的方法 类的方法定义了由类创建的全部对象的行为，每个对象可以随后执行这些行为。例如，PictureBox控件有Move方法，所以在窗体上的图片框可以调用该方法将对象移动到其他位置。