Cara Memindahkan Item Antara ListBox dan ComboBox VB6

Berikut ini adalah cara memindahkan lisbox item dan combobox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 2 ListBox, dan 1 Commandbutton.
2. Set property MultiSelect milik List1 menjadi '1 - Simple'.
3. Copy-kan coding berikut ke editor Form yang bertalian.

          Private Sub Command1_Click()

             'Jika List1 kosong, langsung keluar prosedur
             'untuk menghindari error.
             If List1.ListCount = 0 Then Exit Sub
             Dim CurItem As Integer

             CurItem = 0
             Do
               'Jika item yang dipilih
               If List1.Selected(CurItem) Then

                 'Tambahkan ke ListBox kedua. Jika Anda menambahkannya ke ComboBox,
                 'ganti "List2" di bawah dengan nama ComboBox yang ada.
                 'Contoh: Combo1.AddItem List1.List(CurItem)
                 List2.AddItem List1.List(CurItem)
                   'Lalu hapus dari List1

                   List1.RemoveItem (CurItem)
                Else
                  CurItem = CurItem + 1
                End If

              Loop Until CurItem = List1.ListCount
          End Sub

          Private Sub Form_Load()

          'Tambahkan beberapa item ke dalam ListBox
              For i = 1 To 10
                  List1.AddItem "Item " & i
              Next
          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