如何为用户控件增加一个用户定义类型的属性
编号：QA000124
建立日期: 1998年11月22日 最后修改日期：1998年11月22日
所属类别：
Li Shengqiang:
请教利用VB5创建ActiveX控件的问题
[问题]：请问如何为用户控件增加一个用户定义类型[Type... End Type]的属性。在[Property Let, Property Get]中如何赋值，并取得该属性的值。VB的TreeView控件有Nodes属性，这个属性的实现方式可以用于解决我的问题，请VB高手不吝赐教。我为用户控件增加了用户定义属性后，打开测试工程的Form时，出现编译错误：“用户定义类型和定长串不能作为对象模块的公共成员；私有对象模块不能作为公共对象模块的公共成员类型”为方便起见，不妨在此指定用户定义类型：
Type NewPP
ID as String
Count as Integer
ANNO as Variant '目的是存储一个具有Count个元素的数组
End Type
其中ANNO的每一个元素又是一个用户定义类型(如果过于复杂，不便回答，将您姑且将ANNO定义为Integer)
回答:
我对ActiveX控件最感兴趣，如果你看了我的答复设计了什么控件，别忘了送一套给我哟;-)
其实TreeView控件的Nodes属性看起来象个Type类型，但它不是！很吃惊吗？实际上你所说的用户定义类型对于ActiveX控件来说是个Class。首先在你的项目中增加一个Class Module，然后将这个Class Module的名字改为NewPP，再将下述定义写在这个Class Module中：
Public ID As String
Public Count As Integer
Public ANNO As Variant
这便是你所要的。
此问题由李海回答。
| |
|
|
| |
|
|
