Memindah nilai/text antar listbox

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Memindah nilai/text antar listbox, Diterbitkan oleh scodeaplikasi pada Jumat, 18 Mei 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.