[VB.NET] ListView【新增】

新增

利用一個副程式去新增一列(可多欄

Example:       
            Dim ListViewTxt As New ArrayList
            ListViewTxt.Add("Test1")
            ListViewTxt.Add("Test2")
            ListView_AddItem(ListView1, ListViewTxt)

Public Sub ListView_AddItem(ByVal ListView As ListView, ByVal ItemTxt As ArrayList)
        Dim ItemSum As Integer = ItemTxt.Count
        Dim Item As New ListViewItem

        If ItemSum = 1 Then
            Item.Text = ItemTxt(0)
            ListView.Items.Add(Item)
        ElseIf ItemSum > 1 Then
            Item.Text = ItemTxt(0)
            For i = 1 To ItemSum - 1
                Item.SubItems.Add(ItemTxt(i))
            Next
            ListView.Items.Add(Item)
        End If
    End Sub

刪除

刪除滑鼠所點選的那一項

     
Example:       
            ListView_DelItem(ListView1)

  Public Sub ListView_DelItem(ByVal ListView As ListView)
 If ListView.Items.Count = 0 Then
            MsgBox("找不到任何項目")
        Else
            ListView.Items.RemoveAt(ListView.SelectedItems.Item(0).Index)
        End If
End Sub