Pages

Minggu, 24 Oktober 2010

Transfer item antar listview di Visual Studio 2008

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

0 komentar: