listbox di visual basic
kali ini, hanya mebuat memindahkan suatu entry data di satu list box ke list box berikutnya.
tanpa tamahan animasi. untuk animasinya, nanti saya akan buat di post terbaru.
langsung saja ya. desain form seperti gambar di samping ini.
listing code dan penjelasannya:
'--------------------------------------------------------------------------------------------
Option Explicit
'--------------------------------------------------------------------------------------------
Private Sub Form_Load()
'--------------------------------------------------------------------------------------------
'penggunaan sub bernama intX menggunakan integer, untuk proses berupa angka
Dim intX As Integer
For intX = 1 To 100
'Di atas adalah proses perulangan angka dari 1-100
'dan dibawah adalah proses pencetakan angka tersebut dengan tambahan format 000
lstAvail.AddItem "Item # " & Format$(intX, "000")
'dibawah ini digunakan untuk tetap melanjutkan perulangan sampai nilai max
'karena nilai max 100, maka akan menampilkan nilai sampia 100
Next
End Sub
'--------------------------------------------------------------------------------------------
Private Sub cmdAdd_Click()
'--------------------------------------------------------------------------------------------
'list box 1stselect ini berada di sebelah kiri, kalo yang kanan 1stavail.
'penggunaan code movelistboxitems bertujuan memindahkan langsung dari suatu tempat, ke tempat yang masih 1 form
MoveListBoxItems lstSelected, lstAvail
End Sub
'--------------------------------------------------------------------------------------------
Private Sub cmdRemove_Click()
'--------------------------------------------------------------------------------------------
'penjelasan sama dengan di atas. hanya saja istilah yang saya gunakan adalah remove atau biasa dikenal hapus
MoveListBoxItems lstAvail, lstSelected
End Sub
eitsss...ini belum selesai. kamu disini harus menuliskan sebuah modules untuk proses kerja form, dengan listing code:
Option Explicit
'penggunaan ToAddTo untuk menambahkan dari list1 ke list2
'penggunaan ToRemoveFrom ini bertujuan memberi kesan ke listbox1, bahwa data telah berpindah ke listbox2
'--------------------------------------------------------------------------------------------
Public Sub MoveListBoxItems(lstListToAddTo As ListBox, _
lstListToRemoveFrom As ListBox)
'--------------------------------------------------------------------------------------------
Dim intListX As Integer
For intListX = lstListToRemoveFrom.ListCount - 1 To 0 Step -1
If lstListToRemoveFrom.Selected(intListX) Then
lstListToAddTo.AddItem lstListToRemoveFrom.List(intListX)
lstListToAddTo.ItemData(lstListToAddTo.NewIndex) _
= lstListToRemoveFrom.ItemData(intListX)
lstListToRemoveFrom.RemoveItem intListX
End If
Next
End Sub
