Selasa, 02 Agustus 2011

Cara Mengurutkan (Sorting) Item ListView (ACS-DESC) Saat Header Di Click VB6

Berikut ini adalah cara mengurutkan item listview saat heaer listview di klik di visual basic 6, untuk mempraktekannya siapkan :
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 yang bertalian

          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

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Ditulis Oleh : Wahyu Aji // 07.21
Kategori:

0 komentar:

Posting Komentar