Cara Membuat Form untuk Menambahkan/Menghapus Isi Antar Listbox - Pada form yang Saya buat kali ini adalah berfungsi untuk menambahkan item dari suatu daftar yang ada di listbox untuk di pindahkan atau ditambahkan ke listbox yang lain dalam satu form.
Adakalanya kita membutuhkan suatu program yang didalamnya bisa menambahkan antar item file satu dengan yang lain karena kondisi item berada pada sumber yang berbeda, sehingga kita tdak perlu lagi membuka dan mencari item tesebut dengan membuka dimana sumber item tersebut berada,disini Anda cukup memindahkan saja.menambahkan item tersebut ke list yang akan di tambahkan.Selain bisa menambahkan juga Anda bisa menghapus item tersebut bila sudah tidak digunakan lagi.
Bagi Anda yang penasaran bagaimana cara membuatnya mari kita simak langkah pembuatannya berikut dibawah ini :
Cara Membuat Form untuk Menambahkan/Menghapus Isi Antar listbox
1. Buka Form VB6 Anda
2. Tanamkan 2 ListBox ke dalam Form, ListBox1 ubah Name-nya menjadi : lstAvail
dan ListBox2 ubah Name-nya menjadi : lstSelected
3. Kemudian Tambahkan 2 Commandbutton yaitu
Commandbutton1 ubah Name-nya menjadi : cmdAdd dan Caption-nya : Add >
Commandbutton2 ubah Name-nya menjadi : cmdRemove dan Caption-nya : < Remove
4. Kemudian Anda ketik kode dibawah ini :
Option Explicit
Private Sub Form_Load()
Dim intX As Integer
For intX = 1 To 100
lstAvail.AddItem "Item # " & Format$(intX, "000")
Next
End Sub
Private Sub cmdAdd_Click()
Dim intListX As Integer
For intListX = lstAvail.ListCount - 1 To 0 Step -1
If lstAvail.Selected(intListX) Then
lstSelected.AddItem lstAvail.List(intListX)
' If you are using the optional ItemData property array,
' add the following line to carry the "ItemData baggage" along ...
lstSelected.ItemData(lstSelected.NewIndex) = lstAvail.ItemData(intListX)
lstAvail.RemoveItem intListX
End If
Next
End Sub
Private Sub cmdRemove_Click()
Dim intListX As Integer
For intListX = lstSelected.ListCount - 1 To 0 Step -1
If lstSelected.Selected(intListX) Then
lstAvail.AddItem lstSelected.List(intListX)
' If you are using the optional ItemData property array,
' add the following line to carry the "ItemData baggage" along ...
lstAvail.ItemData(lstAvail.NewIndex) = lstSelected.ItemData(intListX)
lstSelected.RemoveItem intListX
End If
Next
End Sub
5. Simpan hasil pekerjaan Anda dan jalankan Program.
 |
| Listbox Add/Remove |
Jalannya Program :
Jika berjalan dengan baik coba klik salah satu atau beberapa item dari Listbox kemudian tekan Add, maka item yang terpilih akan pindah atau ditambahkan ke ListBox sebelahnya yang kosong,Jika Anda mengklik item yang ditambahkan kemudian Anda menekan tombol Remove maka item tersebut akan terhapus dan pindah ke Listbox asal.
Demikian tip Cara Membuat Form untuk Menambahkan/Menghapus Isi Antar Listbox. Selamat mencoba semoga berhasil.
No comments:
Post a Comment