7451
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
Garfield 2003-09-10
这样做没意义
longfeisoft 2003-09-10
没有办法，只能够做一个过程
Public Function createClass(classname As String) As Variant
Dim retcls As Variant
Select Case classname
Case "myclass"
Set retcls = New myclass
createClass = retcls
Case "...."
......
End Select
End Function
Public Function createClass(classname As String) As Variant
Dim retcls As Variant
Select Case classname
Case "myclass"
Set retcls = New myclass
createClass = retcls
Case "...."
......
End Select
End Function
Garfield 2003-09-10
这个答案我不知道
但我想知道你为什么要这样创建类？
但我想知道你为什么要这样创建类？
progame 2003-09-10
up
j4sxw 2003-09-10
UP
progame 2003-09-10
不错
如果是工程外的类
可以通过createobject创建
可是是同工程的类怎么办？
我现在传过来就是一个类名，希望返回类的实例
如果是工程外的类
可以通过createobject创建
可是是同工程的类怎么办？
我现在传过来就是一个类名，希望返回类的实例
Garfield 2003-09-10
例如有一个 CMyClass 类， 一个 "myclass"
建立一个 CMyClass类的 myclass 变量?
建立一个 CMyClass类的 myclass 变量?
progame 2003-09-10
根本-->根据
progame 2003-09-10
结帖
Ranma_True 2003-09-10
嘿嘿，我就是用的select case。
progame 2003-09-10
为什么要这样做，因为我要实现多态
而VB不支持继承 只支持implements
我现在能够识别不同的类只能通过字符串
如果是.Net 一切都将变得非常简单
而VB不支持继承 只支持implements
我现在能够识别不同的类只能通过字符串
如果是.Net 一切都将变得非常简单
FeelingL 2003-09-10
dim myclass as CClassName
set myClass=new CClassName
set myClass=new CClassName
FeelingL 2003-09-10
i