|
Bimbingan -
Pemrograman
|
|
Jumat, 12 September 2008 10:28 |
|
Jika Header Kolom ListView VB6 di klik maka data yang ada pada kolom tersebut dapat di sortir dengan menyisipkan code program seperti di bawah ini
Private Sub LstKaryawan_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If LstKaryawan.Sorted And _
ColumnHeader.Index - 1 = LstKaryawan.SortKey Then
LstKaryawan.SortOrder = 1 - LstKaryawan.SortOrder
Else
LstKaryawan.SortOrder = lvwAscending
LstKaryawan.SortKey = ColumnHeader.Index - 1
End If
LstKaryawan.Sorted = True
End Sub
|
