怎样用 Collection 添加自定义数据类型?
在模块中有一个
Public Type op
a As Integer
End Type
在Form1中有
Dim cop As New Collection
Private Sub Command1_Click()
Dim o As op
o.a = Val(Text1)
cop.Add o
End Sub
可是运行时却有错误提示:
只有定义在公共对象模块中用户定义类型能和变体类型相互转换或传递给后期绑定功能。
这是什么意思?我改怎么解决呢。