添加項目到列表框從一個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