如何根本一个类名字符串创建一个类

progame 2003-09-10 11:41:53
类的定义在本工程内
...全文
6 点赞 收藏 13
写回复
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
回复
Garfield 2003-09-10
这个答案我不知道
但我想知道你为什么要这样创建类?
回复
progame 2003-09-10
up
回复
j4sxw 2003-09-10
UP
回复
progame 2003-09-10
不错

如果是工程外的类
可以通过createobject创建
可是是同工程的类怎么办?

我现在传过来就是一个类名,希望返回类的实例
回复
Garfield 2003-09-10
例如有一个 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 一切都将变得非常简单
回复
FeelingL 2003-09-10
dim myclass as CClassName
set myClass=new CClassName
回复
FeelingL 2003-09-10
i
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告