VB类开发有关问题

VB类开发问题
请问个们高手，VB的类开发中能不能实现以下的功能

    Dim mItem As ListItem
    
    Set mItem = Me.ListView1.ListItems.Add
    mItem.Text = "产品编号"
    mItem.SubItems(1) = "描述"
    Set mItem = Nothing

我用集合对象模拟了这个过程，但发现不行，mItem类的数据在后期改变后，但在ListItems集合中对应的项目无法随之而改变．mItem无法直接与ListItems集合关联，请问有其他方法可以达到这个效果吗？


[解决办法]

引用:

　　Dim mItem As ListItem
    
    Set mItem = Me.ListView1.ListItems.Add
    mItem.Text = "产品编号"
    mItem.SubItems(1) = "描述"
    Set mItem = Nothing
    Msgbox me.listview1.listItems(1).text '这时Text属性的值就是"产品编号"

像这个ListView控件mItem后期设置数据值后，就可以在ListItems集合就直接反应出来.

你需要创建一个强类型的集合类。方法是在工具-外接程序中启用VB类生成器，然后点文件-新建-集合，按照提示操作。
[解决办法]
dim mDog as new Dog
dim mDogs as new collection
 
'后期设置条目数据．
With mDog
    .ID="0001"
    .Name="lily"
End With

mDogs.Add myDog,"n" & myDog.ID
Set mDog=Nothing

'修改mDogs集合中的数据
mDogs.item(1).id="001"
mDogs.item(1).Name="Program_andy"

set myDog=myDogs.item(1)
debug.print myDog.ID
debug.print myDog.Name

查看更多 下一篇