Sorting Pada Listview

Pada kesempatan kali ini saya akan Tutorial VB mengenai cara mensorting data atau mengurutkan data pada listview langsung saja pada intinya.

1. Buat project baru Visual Basic

2. Tambahkan Components Microsoft Windows Common Controls 5.0 (6.0 juga boleh)

3. Buat listview pada form (nama untuk listview tidak usah dirubah)

4. Copy paste code dibawah ini.

option explicit

Dim CUR_COL as integer
private sub load_virtual_data ()
Dim cnt As Long
Dim itm As ListItem
'menset kolom header listview dengan kolom no,waktu,user,tag

With ListView1

.ListItems.Clear

.ColumnHeaders.Clear

.ColumnHeaders.Add , , "No"

.ColumnHeaders.Add , , "Waktu"

.ColumnHeaders.Add , , "User"

.ColumnHeaders.Add , , "Tag "

.View = lvwReport

End With

' disini akan membuat data palsu untuk keperluan sorting (1 - 1000)

For cnt = 1 To 1000

Set itmX = Form1.ListView1.ListItems.Add(, , Format$(cnt, "###"))

itm.SubItems(1) = Format$(Time, "hh:mm:ss am/pm")

itm.SubItems(2) = "USR" & cnt

itm.SubItems(3) = "SYS" & cnt

Next cnt

End sub

Private Sub Form_Load()

load_virtual_data

End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

If ColumnHeader.Index - 1 <> CUR_COL Then

ListView1.SortOrder = 0

Else

ListView1.SortOrder = Abs(ListView1.SortOrder - 1)

End If

ListView1.SortKey = ColumnHeader.Index - 1

ListView1.Sorted = True

CUR_COL = ColumnHeader.Index - 1

End Sub

Sekian dulu Tutorial VB, disini penulis hanya memberikan informasi yang penulis ketahui dan apabila ada kesalahan, penulis mohon maaf. happy Codding....=)