Artikel kali ini Admin akan berbagi sebuah kode untuk memindahkan isi Listbox dari Listbox1 ke Listbox2 dimana pemindahan ini dilakukan dengan mengklik ittem yang di pilih kemudian menekan sebuah tombol maka ittem terpilih akan berpindah isinya dari Listbox1 ke Listbox2.
Untuk lebih jelasnya perhatikan pada model form dibawah ini :
 |
| Desain Form |
Berikut adalah langkah-langkah cara mendesain form seperti gambar diatas untuk memindahkan ittem antar listbox
1. Buka Form VB6 Standar EXE
2. Pada Form1 tanamkan 2 buah Listbox dan 1 Commandbutton
3. Desainlah Form seperti gambar diatas
4. Setelah mendesain form, sekarang kita akan lanjut untuk pembuatan kodenya
5. Berikut dibawah ini adalah kode yang Anda harus ketikan :
Private Sub Command1_Click()
If List1.ListCount = 0 Then Exit Sub
Dim CurItem As Integer
CurItem = 0
Do
If List1.Selected(CurItem) Then
List2.AddItem List1.List(CurItem)
List1.RemoveItem (CurItem)
Else
CurItem = CurItem + 1
End If
Loop Until CurItem = List1.ListCount
End Sub
Private Sub Form_Load()
For i = 1 To 20
List1.AddItem "Item " & i
Next
End Sub
6. Dan langkah terakhir jalankan program Anda,jika tidak ada error maka hasil yang telah dijalankan seperti gambar dibawah in :
 |
| Output |
Cara Pengoperasian :
Pilih dan klik nama ittem yang ingin dipindahkan pada Listbox1, kemudian klik tombol Commandbutton, maka ittem yang terpilih akan berpindah ke Listbox2 (Lihat Gambar Output).
Demikian artikel kali tentang cara Untuk Memindahkan Ittem Antar Listbox di VB6.Semoga artikel ini bermanfaat buat kita semua.Amin.
Selamat mencoba semoga sukses
No comments:
Post a Comment