添加项目到列表框从一个ListView

Question

公共MaintenanceMenuList作为ListView的

功能为addItems（）

Dim lstModules As New ListBox() 

MaintenanceMenuList.Items.Add("item_1") 
lstModules.Items.Add(MaintenanceMenuList) 

端功能

我收到诸如“未设置为的实例对象引用一个错误一个东西”。这里似乎是什么问题？

Answer 1

的MaintenanceMenuList列表视图对象尚未与A/New关键字创建

Public MaintenanceMenuList As ListView 

Function AddItems() 

    Dim lstModules As New ListBox() 

    ' if the object is nothing, create it 
    If MaintenanceMenuList Is Nothing Then 
     MaintenanceMenuList = New ListView 
    End If 

    MaintenanceMenuList.Items.Add("item_1") 
    lstModules.Items.Add(MaintenanceMenuList) 

End Function 

而且，你的函数不返回任何东西，或提起它会返回什么类型的...

编辑 - 添加回应置评

变化：

lstModules.Items.Add(MaintenanceMenuList) 

到：

For Each lvi As ListViewItem In MaintenanceMenuList.Items 
    lstModules.Items.Add(lvi.Text) 
Next