個人記事

  Sub ListV_ADD2(ByVal MyLen As Int16)


    ListView1.View = View.Details


    ListView1.GridLines = True


    ListView1.Columns.Clear()


    For a1 = 0 To MyLen - 1


      ListView1.Columns.Add("111", 100, HorizontalAlignment.Left)


    Next


    'ListView1.Columns.Add("列 2", 50, HorizontalAlignment.Left)


    'ListView1.Columns.Add("列 3", 50, HorizontalAlignment.Left)


    'ListView1.Columns.Add("列 4", 50, HorizontalAlignment.Center)


    ListView1.Refresh()


  End Sub

'初始化
  Dim Mylist As ListViewItem = New ListViewItem

'增加 Title Text
    ListV_ADD2(11)

'迴圈開始
    For a = 0 To 2
      For b = 0 To 1

'增加子項目
        Mylist.SubItems.Add("_")


      Next

'把子項目 一次性增加到 listview 內
      ListView1.Items.Add(Mylist)

'因為上面增加後 頭一行會空白，下方就是把頭一行補足
      ListView1.Items(a).Text = "J"

'下方這行 是重點 ，如果不想手動一直增加子項目 那下方的 New ListViewItem 就是重點
      Mylist = New ListViewItem

    Next

'下方這兩行都可以增加列表
    'ListView1.Items.AddRange(New ListViewItem() {Mylist})
    ListView1.Items.Add(Mylist)

大約如下圖