有关自定义结构的问题!谢谢

fjhnuaa 2003-01-02 07:55:17
模块中
Public Type dataid
a As Integer
b As Integer
End Type
--------------------------------
Sub a()
Dim data1 As dataid
data1.a = 100
data1.b = 13
sum (data1)
End Sub

Function sum(dataid)
Dim sum As Integer
sum = data.a + data.b
End Function


错误:
只有在公共对象模块中定义的公共用户定义类型可以被使用为类模块公共过程的参数或返回类型、或作为公共用户定义类型的字段


...全文
6 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

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