entah kenapa saya lebih suka menggunakan listview dari pada yang lain untuk menampilkan suatu data.
disebut lebih simple ternyata tidak juga... tampilan nya lebih bagus tidak juga, jadi apa alasannya menggunakan listview........ jawabannya meneketehe.... he he he

mumpung lagi mood, saya akan memberikan suatu kode listview yang sering saya gunakan untuk membuat suatu program. langsung gan....

buat satu modul isi kode berikut

'Procedure Pengaturan Header ListView

Public Sub AturListView(ListView1 As ListView, ParamArray lstView())

    On Error Resume Next

    Dim i, Lebar

      ListView1.View = lvwReport

      Lebar = ListView1.Width - 80

      With ListView1.ColumnHeaders

          .Clear

          For i = 0 To UBound(lstView) - 1 Step 2

              .Add , , lstView(i), (lstView(i + 1) * Lebar) / 100

          Next i

      End With

  Exit Sub

End Sub

kode tersebut untuk mengatur header listview yang akan saya buat......... tapi sabar yach, saya buat kode lagi di modul sbb:


'Procedure pengurutan item list view berdasarkan column header
Public Sub SortingListViewColumn(ByRef olistView As MSComctlLib.ListView, _
                                 ByRef oColumnHeader As MSComctlLib.ColumnHeader)
    On Error Resume Next
    'Beri cekbox pd setiap objek listview pada property sorted
    Dim oListItem As MSComctlLib.ListItem
    Dim i              As Integer
    Dim iTempColIndex  As Integer
    Dim iTagColumn     As Boolean

      With olistView
          If .ListItems.Count < 2 Then GoTo Exit_Err
              iTempColIndex = .ColumnHeaders.Count
          If oColumnHeader.Index = 1 Then
                For i = 1 To .ListItems.Count
                   Set oListItem = .ListItems(i)
                   oListItem.ListSubItems(iTempColIndex) = oListItem.Tag
                Next i

                If Len(Trim$(oListItem.Tag)) = 0 Then iTagColumn = True
          Else
                 For i = 1 To .ListItems.Count
                    Set oListItem = .ListItems(i)
                    oListItem.ListSubItems(iTempColIndex) = oListItem.ListSubItems(oColumnHeader.Index - 1).Tag
                 Next i
                 If Len(Trim$(oListItem.ListSubItems(itemcolindex))) = 0 Then iTagColumn = True
          End If

          If iTagColumn Then
              'Jika kosong
              .SortKey = oColumnHeader.Index - 1
            Else
              'dummy
              .SortKey = iTempColIndex
          End If

          If .SortOrder = lvwAscending Then
              .SortOrder = lvwDescending
            Else
              .SortOrder = lvwAscending
          End If

          '--remove data
          For i = 1 To .ListItems.Count
              Set oListItem = .ListItems(i)
              oListItem.ListSubItems(iTempColIndex) = ""
          Next i
      End With 'OLISTVIEW
Exit_Err:
      Set oListItem = Nothing
End Sub

nah kode tersebut diatas digunakan sebagai pengaturan dalam urutan berdasarkan kolom header
pusing yach............. pasti ,soalnya hasil copy paste dari projek ku, wah jadinya kelihatan amburadul.
dah kedua kode listview tersebut sengaja di tulis di modul agar memudahkan kita memanggil