Private Sub Command1_Click()
lv.ListItems.Add , , "1"
lv.ListItems(1).ListSubItems.Add , , "2"
lv.ListItems.Add , , "2"
lv.ListItems(2).ListSubItems.Add , , "1"
End Sub
Private Sub lv_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
lv.SortKey = ColumnHeader.Index - 1
If lv.SortOrder = lvwAscending Then
lv.SortOrder = lvwDescending
Else
lv.SortOrder = lvwAscending
End If
End Sub
Private Sub Command2_Click()
On Error Resume Next
MsgBox lv.ListItems(1).Text
End Sub
没问题啊,可以按排好序的打出来。