摘要: 方法1 ——借助Class' 定义一个有多个变量成员的类Class MultiValue Dim a, b, cEnd ClassFunction ClassMulti(param1, param2, param3) Dim oClass ' 实例化类 Set oClass = New MultiValue oClass.a = param1 oClass.b = param2 oClass.c = param3 ' 指定函数返回为oClass对象 Set ClassMulti = oClassEnd FunctionDim oClassSet oClass = Cla 阅读全文
posted @ 2013-07-16 11:18 芯树 阅读(2047) 评论(0) 推荐(0) 编辑