Dim SomeThing As String = "อะไรสักอย่าง"
Listview1.ListViewEx1.Items.Clear()
Listview1.ListViewEx1.BeginUpdate()
With Listview1
.Items.Add("SomeThing")
With .Items(ุ6).SubItems
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
End With
End With
Next
Listview1.ListViewEx1.EndUpdate()
Dim SomeThing As String = "อะไรสักอย่าง"
Listview1.ListViewEx1.Items.Clear()
Listview1.ListViewEx1.BeginUpdate()
With Listview1 'ตั้งแต่นี่
.Items.Add("SomeThing")
With .Items(ุ6).SubItems
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
.Add(SomeThing)
End With
End With 'ถึงนี่ เค้าไม่ได้เรียกว่า Add หรอค่ะ
Listview1.ListViewEx1.EndUpdate()