Menampilkan Data ke ListView
Code::
|
'Persiapan: 1. Buat 1 Project baru dengan 1 Form. ' 2. Tambahkan component sesuai yang disebut di atas.
' 3. Tambahkan ListView ke dalam form.
' 4. Copy-kan coding berikut ke dalam editor form ybt.
'--------------------------------------------------------------- Private Sub Form_Load() Dim i As Integer x = 0
With ListView1
.View = lvwReport 'Buat tampilan report... 'Tambahkan 3 kolom...
.ColumnHeaders.Add , , "Kolom ke-1"
.ColumnHeaders.Add , , "Kolom ke-2"
.ColumnHeaders.Add , , "Kolom ke-3"
'Tambahkan data sebanyak 20...
For i = 1 To 20
.ListItems.Add 1, Key:="", Text:="Data 1 ke-" & i
.ListItems(1).ListSubItems.Add , , "Data 2 ke-" & i
.ListItems(1).ListSubItems.Add , , "Data 3 ke-" & i
Next i
End With
End Sub Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 'Jika header kolom diklik, data akan disortir 'secara Ascending atau Descending Select Case ColumnHeader
Case "Kolom ke-1"
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
Else
ListView1.SortOrder = lvwDescending
End If
ListView1.Sorted = True
Case "Kolom ke-2"
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
Else
ListView1.SortOrder = lvwDescending
End If
ListView1.Sorted = True
Case "Kolom ke-3"
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
Else
ListView1.SortOrder = lvwDescending
End If
ListView1.Sorted = True
End Select
End Sub |
0 komentar:
Posting Komentar