vb类模块的举例说明百度文库

1、vb类模块的举例说明百度文库【篇一：vb类模块的举例说明白度文库】vb类模块的使用_it/计算机一专业资料。vb类模块【篇二：vb类模块的举例说明白度文库】这里简单地介绍vba中的类模块，使大家能够在应用程序中创建并使用简单的类。类是对象的模板。对象可以是任何事物，而类不会做任何事情，也不会占用内存，只有当类成为对象并使用set语句和new关键字实例化为具体对象后，才能做事情并占用内存。实例化类为具体对象的语法为：dimcasclasslsetc=newclassl上述语句创建了一个名为c的对象，该对象的数据类型为定义的类classl。在详细介绍类之前，让我们先看看vba的用户自定义数据类型，

2、即使用type关键字定义的变量。例如，下面的type变量定义了雇员的信息：typeemployeenameasstringaddressasstringsalaryasdoubleendtype上面的语句定义了变量employee，包含元素name、address和salary。接着，您可以声明一个employee型的变量，并为其中的每个元素赋值：subtest()=fanjyfan.address=yichangfan.salary=1000endsub用户自定义类型是很有用的，但是有三个主要的局限：1、在编译时必须声明所有的自定义类型变量。虽

3、然可以使用动态数组来处理多个自定义类型，但必须使用redimpreserve关键词。并且，不能在运行时添加新的自定义类型变量。2、不能控制赋给自定义类型中元素的值。例如，在上述代码中，有可能给salary元素赋一个负值。3、自定义类型不做任何事情，只是静态地存储数据。用户自定义类型被广泛用于在对windowsapi函数调用时，除此之外，使用类模块是更好的选择。类克服了用户自定义类型的局限。1、使用new关键字，可以创建任意数量的类的新实例，并且能够将其存储在collection对象中。2、使用propertylet/set/get语句，可以编写代码验证赋给类元素的值，并且可以编写当值改变时执行

4、的相应代码。例如，能够编写代码确保salary的值不为负值。3、类可以定义方法(使用sub过程和function过程)，执行某项动作。下面，让我们将自定义类型employee转换为类。首先，在vbe编辑器中插入一个类模块，并将其重命名为cemployee，如图1所示(类模块由属性和方法组成，类本身类似于名词；属性可以当作形容词，用来描述类；方法则为动词，执行操作。)cemployee类应该有三个属性：name、address和salary。在类模块的声明部分声明三个private变量来存储这些值，属性的实际值被存储在这三个私有变量中。privatepnameasstringprivatepad

5、dressasstringprivatepsalaryasdouble因为这些变量都被声明为私有的，因此仅能在类内部访问，在类的外部是不可见的。如何为这些变量赋值呢？这就是propertylet语句要做的工作。每个私有变量都有相应的propertylet语句。propertyletname(sasstring)pname=sendpropertypropertyletaddress(sasstring)paddress=sendpropertypropertyletsalary(dasdouble)psalary=dendpropertypropertylet语句用于给属性赋值，即将值引入类。

6、在上例中，简单地将引入的值赋给私有变量。由于propertylet语句中能够包含代码，因此能够编写用于数据验证的代码。例如，改写propertyletsalary函数中的代码，使之不允许接受负值：propertyletsalary(dasdouble)ifd0thenpsalary=delse错误提示msgbox薪水怎能为负呢？endifendproperty与propertylet函数相对应的是propertyget函数，用于从类中获取属性的值。在cemployee类中，相应的propertyget语句为：propertygetname()asstringname=pnameendprope

7、rtypropertygetaddress()asstringaddress=paddressendpropertypropertygetsalary()asdoublesalary=psalaryendpropertylet语句和get语句的数据类型必须相匹配。例如，letsalary接受double类型的值作为其参数，这意味着其返回的相应的get属性的值必须是double。如果数据类型不一致，就会导致编译错误。这些get语句简单地将三个属性向外公开。要创建只读属性，则忽略propertylet语句而仅使用propertyget语句。例如，withholdingtax属性是只读的，在get语

8、句中的代码计算合适的值并将其公开，但避免从外部改变该属性的值：propertygetwithholdingtax()asdoublewithholdingtax=some_tax_calculationendproperty该属性没有对应的let语句，因此该属性只读，没有办法将值赋给withholdingtax。类模块能够包含方法，例如cemployee类有一个用于雇员复核薪水的方法：publicsubprintpaycheck()放置打印复核的实际代码endsub好了，我们已经完成了cemployee类的初步定义，如图1所示。图1:cemployee类下面，在标准模块的代码中实例化类，并使用

9、其属性和方法。首先，在vbe编辑器中插入一个模块，声明一个cemployee类型的变量。（注意，在复杂的应用程序中，在类模块中声明并实例化另一个类是完全合法的）dimempascemployee接下来，实例化该类，创建一个可用来工作的实际对象，如下列语句：setemp=newcemployee上述语句创建了一个名为emp的对象，能够使用cemployee类中的属性来引用特定的雇员信息，例如：=fanjyemp.address=yichangemp.salary=1000这三个语日调用在cemployee类中声明的propertylet语句来赋值给类中的私有变量。我们能够使用下列

10、代码读取对象的属性的值：debug.printemp.addressdebug.printemp.salary上述语句调用类模块中的propertyget语句并获取数据。我们也能读取类中的只读属性withholdingtax:debug.printemp.withholdingtax由于withholdingtax属性没有相应的let语句，因此不能给该属性赋值。如果试图赋值：emp.withholdingtax=4000则会导致：编译错误：不能给只读属性赋值。也能够调用方法来执行操作：emp.printpaycheck在集合中存储类的多个实例如果到运行时还

11、不知道有多少个雇员，那么能够在运行时按需要创建多个emp对象，每创建一个emp对象之后将其存储在集合中。例如：dimcollasnewcollectiondimndxaslongdimempascemployeeforndx=1tonumberofemployeessetemp=newcemployee设置emp对象的属性coll.additem:=emp,key:=nextndx上面的fornext循环将创建cemployee类的numberofemployees个实例，具体数量由运行时决定，并将其存储在名为coll的集合对象中。之后，能够使用foreach循环从coll集合

12、中获取每个雇员信息或执行操作：foreachempincollemp.printpaychecknextemp类的instancing属性类的instancing属性决定其可见性(或称作作用域)，默认属性值为1-private,意味着类仅能在包含该类的工程中创建和访问。其他工程不能基于该类创建对象。对于绝大多数应用程序来说，private是足够了。instancing属性的另一个值是2-publicnotcreatable,表明其他工程能够将变量声明为该类，但是不能使用set语句创建该类的实例。在多个工程间使用类如果一个工作簿需要使用定义在另一个工作簿中的类，则需要在包含类模块的工作簿中编写代

13、码导出类到另一个工程。该类的instancing属性必须是2-publicnotcreatable。假设book1.xls工作簿中包含一个名为class1的类模块，book2.xls需要使用该类。首先，将book1工作簿的工程名称从缺省的vbaproject修改为唯一的名称，例如myproject。然后，在vbe编辑器中激活book2工作簿的界面，设置对book1工作簿的引用，即在vbe中选择工具引用，然后在列表中选择myproject。然后，在book2中，创建如下声明：publiccasmyproject.class1因为instancing的属性值为publicnotcreatable,所以可以声明一个class1类的变量，但不能创建该类的实例。因此，需要在book1中编写一个函数来创建class1的新实例，并返回该实例给book2。在b