Menampilkan Data Pada Listbox Sebagai Index Teratas di VB6

Pada artikel kali ini Admin akan membagikan sebuah trik yaitu cara menampilkan data pada listbox sebagai index teratas dengan menggunakan kode vb6.

Misalkan Saya mempunyai data Index di listbox sebanyak 100 yaitu Index1 sampai Index100, lalu saya hanya ingin menampilkan Index yang lebih besar atau sama dengan dari 11 atau Index teratas dari 11, maka secara otomatis di listbox akan tampil Index teratas yang lebih besar atau sama dengan dari Index11 yaitu Index11 - Index100, umtuk Index1 sampai Index10 tidak ditampilkan.

Untuk ilustrasi selengkapnya perhatikan pada gambar dibawah ini :

Output

Bagi anda yang penasaran bagaimana cara membuat ikutilah langkah-lngkah dibawah ini 

1. Buka Form VB6 Standar EXE

2. Pada Form1 tanamkan 1 buah Combobox dan 1 buah Listbox

3. Setelah itu ketik kode dibawah ini :

Private Sub Combo1_Click()

Dim indx As Integer

indx = Combo1.Text

List1.TopIndex = indx

End Sub

Private Sub Form_Load()

Dim i As Integer

Dim itemname As String

For i = 0 To 100

itemname = "Data Index ke-" & i

List1.AddItem itemname

Combo1.AddItem i

Next

Combo1.Text = Combo1.List(0)

End Sub

4. Jalankan program anda, jika tidak ada error maka hasilnya kan tampak pada gmbar di atas artikel.

Demikianlah artikel singkat pada hari ini tentang cara menampilkan data pada listbox sebagai index teratas dengan menggunakan kode vb6.Semoga artikel bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil....

Related Post: Uncategories