Jierger's Note

新增 利用一個副程式去新增一列(可多欄 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...