sekarang saya akan berbagi cara membuat program yang sangat sederhana yaitu program memindahkan semua Item pada ListBox yang sebelah kiri ke
ListBox yang sebelah kanan dan mengembalikan lagi ke Listbox sebelah kiri dengan menggunakan bentuk perulangan For...Next.
dengan bentuk ini kita akan membuat index Item pada ListBox menjadi nilai awal dan akhirnya.
Biar lebih jelas kita praktekan saja!
1. Buat
New Project, Standard EXE
2. Tambahkan
2 ListBox dan 2 Commanbutton
3. Ubah
properti List1,Command1 dan Command2 menjadi seperti berikut :
List1
|
List
|
Anggur
Jeruk
Apel
Melon
Jambu
Semangka
Nanas
|
List2
|
(tidak perlu ada yang diubah)
|
|
Command1
|
Caption
|
>>
|
Command2
|
Caption
|
<<
|
Sehingga
tampak seperti gambar yang diatas (paling awal)
Private Sub Command1_Click()
Dim I As Integer
For I = 0 To List1.ListCount - 1
List2.AddItem List1.List(I)
Next I
List1.Clear
End Sub
Private Sub Command2_Click()
Dim I As Integer
For I = 0 To List2.ListCount - 1
List1.AddItem List2.List(I)
Next
List2.Clear
End Sub
5. Jalankan
Programnya!! Lalu klik button “>>” Semua item di List1 akan berpindah ke
List2. Dan sebaliknya ketika mengklik button “<<” Semua item di List2
akan berpindah ke List1.
Silahkan baca juga :
Thanks for reading Memindahkan Item pada Listbox ke Listbox yang lainnya | Tutorial Visual Basic
No comments:
Post a Comment
Silahkan berkomentar dengan bijak :)