如何用变量调用类的属性

Question

我有一个emp类,属性有 bh,xm ,gzdw,xb,nl,gzsj,gw,sfzh等,如果我想选择的输出其中几个属性的值。我该如何实现

Answer 1

dim oEmp as emp 
set oEmp as New emp '先实例化一个该类的对象：gzsj,gw,sfzhdebug.print oEmp.bh
debug.print oEmp.xm
debug.print oEmp.gzdw
debug.print oEmp.xb
debug.print oEmp.nl
debug.print oEmp.gzsj
debug.print oEmp.gw
debug.print oEmp.sfzh

Answer 2

～～汗，录入错误重来：dim oEmp as emp 
set oEmp ＝New emp '先实例化一个该类的对象：
debug.print oEmp.bh
debug.print oEmp.xm
debug.print oEmp.gzdw
debug.print oEmp.xb
debug.print oEmp.nl
debug.print oEmp.gzsj
debug.print oEmp.gw
debug.print oEmp.sfzh

Answer 3

不是的如果我想用一个变量：xx="bh"
 如果这样用调用 oemp.xx 是错误的,该如何调用

Answer 4

那么使用CallbyName吧，比如xx="bh",oemp.xx就可表示为：debug.print CallByName (oEmp, xx, vbGet) ________________________________________________________________________
CallByName 函数      执行一个对象的方法，或者设置或返回一个对象的属性。语法CallByName(object, procedurename, calltype,[arguments()])CallByName 函数的语法有以下部分：部分 描述 
object 必需的；变体型（对象）。函数将要执行的对象的名称。 
procedurename 必需的；变体型（字符串）。一个包含该对象的属性名称或者方法名称的字符串表达式。 
calltype 必需的；常数。一个 vbCallType 类型的常数，代表正在被调用的过程的类型。 
arguments() 可选的：变体型（数组）。 
说明CallByName 函数用于获取或者设置一个属性，或者在运行时使用一个字符串名称来调用一个方法。在下面的例子中，第一行使用 CallByName 来设置一个文本框的 MousePointer 属性，第二行得到 MousePointer 属性的值，第三行调用 Move 方法来移动文本框：CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1