Select All ListBox Item VB6

Berikut ini adalah cara melakukan select all item pada listbox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 ListBox, dan 2 Commandbutton.
2. Set properti MultiSelect ListBox menjadi: '1-Simple'
3. Copy-kan coding berikut ke dalam editor form Anda.

          Private Sub Form_Load()   'Masukkan item data ke ListBox
            For i = 0 To 10
               List1.AddItem "List ke-" & i, i
            Next i
          End Sub

          Private Sub Command1_Click()   'Sorot seluruh item data
            For x = 0 To List1.ListCount - 1
                List1.Selected(x) = True
            Next x
          End Sub

          Private Sub Command2_Click()   'Hilangkan semua sorot sebelumnya
            For x = 0 To List1.ListCount - 1
                List1.Selected(x) = False
            Next x
          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