7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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
