Cara Membuat Penomoran Otomatis Pada Listview VB6

Bagi para sahabat yang masih bingung dan belum menemukan cara untuk membuat penomoran otomatis pada Listview VB6. Kali ini saya akan  membagikan kepada para sahabat cara membuat penomoran otomatis pada listview dengan langkah yang mudah  tidak panjang lebar dan tentunya lebih efisien.

Dibawah ini tampilan listview dengan penomoran otomatis

 yang perlu teman - teman persiapkan adalah sebagi berikut :

- komponen listview yang bisa anda aktifkan dengan cara tekan Ctrl + T kemudian pilih / centang Microsoft   Common Controls 6.0 (SP4) kemudian klik tombol ok.

sebelumnya anda harus mengganti terlebih dahulu name/nama dari listview1 menjadi LV1 [didalam coding saya menggunakan nama demikian ^_^] / bisa teman - teman sesuaikan..

selanjutkan kita mulai menulis codingnya =>

hal pertaman yang harus teman - teman lakukan ialah membuat variabl, dalam contoh kasus saya menggunakan module untuk memasukkan variable yang ingin digunakan. cara mengaktifkan module klik menu project - add module. kemudian masukkan coding seperti dibawah ini :

public kon as new ADODB.connection

public rsmhs as new ADODB.Recordset

public vbutir as Listitem

setelah pembuatan variable selesai, dilanjutkan dengan pembuatan procedure untuk menampilkan data dari database ke listview.

langkah - langkah membuat procedure sbb :

ketikkan coding sebagi berikut :

tempatkan cursor di areah kosong pada jendela coding vb kemudian tuliskan coding sbb :

Sub listview()

  With LV1.ListItems

        .Clear

        rsmhs.Open "select * from mahasiswa", kon, adOpenKeyset

        While Not rsmhs.EOF

            Set Vbutir = LV1.ListItems.Add(, , LV1.ListItems.Count + 1 & ".")

            Vbutir.SubItems(1) = rsmhs!nim

            Vbutir.SubItems(2) = rsmhs!nmmhs

            'Vbutir.SubItems(3) = rsmhs!jurusan

           

            rsmhs.MoveNext

        Wend

    End With

End Sub

Ket :

1 . pada contoh kasus saya menggunakan tabel mahasiswa [bisa diganti dengan tabel yang teman - teman buat]

2.  untuk nim,nmmhs,jurusan [merupakan field-field dari tabel mahasiswa ]. bisa teman - teman ganti dengan field yang ada pada tabel yang teman - teman buat.

langkah selanjutnya, setalah coding telah selsai teman - teman tulis.  masukan nama procedure Listview ke Event Load dengan nama object Form. kalau yang masih bingung bisa lihat gambar dibawah ini.

Setelah sudah berada pada area coding form_load kemudian masukkan coding dibawah ini :

Private sub Form_Load()

db

Listview

End Sub

KET :

Coding yang dimasukkan yang berwarna merah.  untuk coding "db". itu merupakan procedure koneksi ke database yang tentunya teman-teman sudah mengetahuinya.

Untuk pengaturan nama Column Headers Listview. bisa teman-teman atur dengan cara klik kanan pada komponen listview - properties. kemudian Tab Column Headers - Insert Column tuliskan nama Headernya pada kolom Text. ^_^

sampai disini contoh kasus pembuatan penomoran otomatis telah selesai. semoga postingan saya kali ini bisa memberikan manfaat bagi teman-teman.

mohon maaf bila project finalnya  saya tidak ikut sertakan untuk di download.