VB.net Listview 使用方式

'設定標題ListView1 Header
'********************************************************************************************************
With ListView1
.View = View.Details
.Columns.Add("A", 200, HorizontalAlignment.Left) '每次增加一個 欄名稱 欄寬度 對齊
.Columns.Add("B", 150)
.Columns.Add("C", 50)
.Columns.Add("D", 110)
.Columns.Add("開始時間", 180
.GridLines = True
.LargeImageList = ImageList1 '增加 ICON 圖示對應
.SmallImageList = ImageList1 '增加 ICON 圖示對應
End With


'清除ListView1項目
ListView1.Items.Clear()


'以程式碼新增一筆資料
Dim Nitem As New ListViewItem(dr(0).ToString, 4) '4 wav.icon圖示
Nitem.SubItems.Add(TalkDirection)
Nitem.SubItems.Add(dr(2).ToString)
Nitem.SubItems.Add(dr(3).ToString)
Nitem.SubItems.Add(dr(4).ToString)
Nitem.SubItems.Add(dr(5).ToString)
ListView1.Items.Add(Nitem)