Minggu, 14 Oktober 2012

Menampilkan Data ke ListView



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:

Poskan Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah