Vb 类返回共有结构体

hjessica 2008-04-10 02:31:34
我在一个EXE工程中写了一个类和一个标准模块

我现在在类中写个函数,返回值是标准模块里面的公用结构体,但是一直无法编译,不知道什么错误?
...全文
32 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
vbman2003 2008-04-10
貌似可以传址再用CopyMemory?

标准模块:
Type aa
s As String
b as byte
End Type

类模块:
Function test(lng as long) As Variant
Dim a As aa
CopyMemory a,lng,len(a)
debug.? a.s
debug.? a.b
End Function

窗体:
dim t as ss
t.s="test"
t.b=123

dim c as new class1
c.test(varptr(t))


这样?
回复
hjessica 2008-04-10
找到方法了。。。
回复
标准模块:
Type aa
ss As String
End Type

类模块:
Function test() As Variant
Dim a As aa
a.ss = Now
test = a
End Function
回复
东方之珠 2008-04-10
把代码贴出来看一看!
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-10 02:31
社区公告
暂无公告