Bisa gak ya kalo transfer item antar listview?? mau coba??
1. Buat design kaya dibawah ini ya
2. Setelah Itu tambahin coding untuk form loadnya ya
With ListBox1.Items
.Add("rujak")
.Add("bakso")
.Add("nasi goreng")
.Add("siomay")
.Add("gado2")
End With
With ListBox2.Items
.Add("teh manis")
.Add("kopi")
.Add("es jeruk")
.Add("aqua")
.Add("es cokelat")
End With
3. Kemudian tambahkan codinh untuk button 1 (untuk pindah), dengan ivent click
If ListBox1.SelectedIndex <> -1 Then
ListBox3.Items.Add("01 - " & ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
ElseIf ListBox2.SelectedIndex <> -1 Then
ListBox3.Items.Add("02 - " & ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If
4. Tambahin coding untuk button 2 (untuk kembali), dengan event click
id = Microsoft.VisualBasic.Left(ListBox3.SelectedItem, 2)
nama = Mid(ListBox3.SelectedItem, 6, Len(ListBox3.SelectedItem))
If id = "01" Then
ListBox1.Items.Add(nama)
ElseIf id = "02" Then
ListBox2.Items.Add(nama)
End If
ListBox3.Items.Remove(ListBox3.SelectedItem)
5. Kemudian yang terakhir tambahin coding untuk listview1 dengan ivent GotFocus
Select Case sender.name
Case ListBox1.Name
ListBox2.SelectedIndex = -1
Case ListBox2.Name
ListBox1.SelectedIndex = -1
End Select
Kalo udah coba dah jalanin, kalo bener hasilnya kaaya dibawah ini :
Terus coba dah pindahin ke listview sebelah
dan yang terakhir coba aja dindah lagi kesebelah, kembaliin ke tempat semula
skip to main |
skip to sidebar
Pages
cuma buat tempat share aja, ama bagi hal yang ga jelas, hehehe :)
0 komentar:
Posting Komentar