Memindah nilai/text antar listbox

Baca Juga

Tanya :
Bagaimana cara memindahkan text antar listbox, seperti pada aplikasi-aplikasi wizard/instalasi?

Jawab :
Mungkin caranya (codenya) kurang lebih seperti ini :

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click() ' code command Pilih >
On Error Resume Next
If Not List1.Text = "" Then List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command3_Click()' code command Pilih Semua >>
On Error Resume Next
'List2.Clear
For i = 1 To List1.ListCount
List2.AddItem List1.List(i - 1)
Next i
List1.Clear
End Sub

Private Sub Command4_Click() ' code command < Hapus
On Error Resume Next
If Not List2.Text = "" Then List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex

End Sub

Private Sub Command5_Click() ' code command << Hapus Semua
On Error Resume Next
'List1.Clear
For i = 1 To List2.ListCount
List1.AddItem List2.List(i - 1)
Next i
List2.Clear

End Sub

Private Sub Form_Load()
With List1
    .AddItem "Tinggi"
    .AddItem "Pendek"
    .AddItem "Kurus"
    .AddItem "Gemuk"
    .AddItem "Lurus"
    .AddItem "Keriting"
    .AddItem "Putih"
    .AddItem "Gelap"

End With
End Sub

Sebelumnya tambahkan 2 buah listbox dan lima buah command ke dalam form. Kenudian susun seperti gambar di bawah ini :

Selamat mencoba.