Menggunakan Listbox Visual Basic
Berikut ini ada salah satu contoh dalam penggunaan listbox yang ada pada visual basic. Contoh ini bisa di ubah-ubah sesuai kebutuhan kok. Bagaimana caranya? Ya tinggal mengedit aja sendiri. Hehehehe
Ketikkan kode di bawah ini :
Private
Sub cmdAdd_Click()
'Menampilkan nama kota di lstKunjung sesuai yang dipilih
di lstKota
Dim
CurItem As Integer
CurItem
= 0
Do
'Jika item yang dipilih
If lstKota.Selected(CurItem) Then
'Tambahkan ke lstKunjung.Jika Anda
menambahkannya ke ComboBox,
'ganti "lstKunjung" di
bawah dengan nama ComboBox yang ada.
'Contoh: cboKunjung.AddItem
lstKota.List(CurItem)
lstKunjung.AddItem lstKota.List(CurItem)
'Lalu hapus dari lstKota
lstKota.RemoveItem (CurItem)
Else
CurItem = CurItem + 1
End If
Loop Until CurItem = lstKota.ListCount
End Sub
Private Sub
cmdAddAll_Click()
'Memindahkan
semua kota ke
lstKunjung
For
i = 0 To lstKota.ListCount - 1
lstKunjung.AddItem
lstKota.List(i)
Next
i
lstKota.Clear
End Sub