TextBox Control Event Item_Click/DoubleClick Listview vb6

Assalamualaikum wr.wb
Sesuai dengan topic diatas saya akan memberikan screenshot bagaimana memindahkan data yang ada di listview ke textbox atau yang lainnya, Yang bisa disesuaikan dengan kebutuhan sobat.

Berikut salah satu kelebihan dari listview dibandingkan dengan daftar list yang
lainnya baik dengan menggunakan datagrid, msflexgrid, dbgrid dan lainnya, dengan listview sobat bisa memecahkan beberapa parameter untuk merubah tampilan atau fungsi dari listview itu sendiri sesuai
dengan selera.

Sebelumnya pernah saya ulas bagaimana menampilkan data dari database access ke table listview, Apabila sobat belum membuatnya silahkan buka Disini Menampilkan data listview vb6 Commont control

Langsung saja ke point source code untuk listview, disini saya akan memberikan contoh dengan listview dengan event ItemClick.

Berikut Sourcodenya : “Copy Paste Saja kalau tidak mau repot”

Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)

Dim mylist1 As ListItem

If Not Me.ListView2.SelectedItem Is Nothing Then

'Set variabel myList Set mylist1 = Me.ListView2.SelectedItem

'Isikan pada TextBox

Me.T4.Text = mylist.Text

Me.T4.Text = mylist1.SubItems(6)

Me.T5.Text = mylist1.SubItems(8)

Me.L12.Caption = mylist1.SubItems(8)

Me.L15.Caption = mylist1.SubItems(9)

Me.T6.Text = mylist1.SubItems(10)

Me.L7.Caption = mylist1.SubItems(5)

Me.L6.Caption = mylist1.SubItems(7)

Me.L11.Caption = mylist1.SubItems(5)

Me.L9.Caption = mylist1.SubItems(1)

End If

End Sub

Untuk bentuk form bisa sobat buat dengan menambahkan komponen listview pada project form, untuk text box sesuaikan dengan kebutuhan supaya penampilan lebih dinamis.

Semoga bermanfaat

Wassalamualaikum wr.wb

Link Download Contoh project, [.dll],[.ocx]