用自定义类型变量给TreeView的Node的tag赋值时出错，求救

[sinall]

Compile error:
Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions

请问，如何解决这个问题？
public object modules是怎么回事？我可以自己生成吗？

[落伍者]

public object modules是标准模块的意思
就是.bas文件的那个，可以新增的

[sinall]

类我已经建好了？比如说student 有id 和name两个属性
怎么生成一个对象，再赋给node.tag呢？
感谢！！！！！！！！！

[James0001]

不可以给Variant赋予私有模块里定义的自定义类型。
但可以用类，

Dim var As Variant, ca As Class1
Set ca = New Class1
Set var = ca

[of123]

Tag 属性（ActiveX 控件）

返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag 属性值不被 Visual Basic 使用；可以用该属性来标识对象。

语法

object.Tag [= expression]

Tag 属性语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
expression *字符串表达式*用来标识对象，缺省值为零长度字符串 ("")。


说明

利用该属性可以给对象赋予一个标识*字*符*串*，......
————————————————————————————————
建议你仅仅在 Tag 中保存一个标识（Index），用它来引用你所定义的类型变量数组的成员。