Kita Buat terlebih dahulu tampilan formnya, Disana tedapat
Textbox Kode Pihak dan Textbox Nama Pihak. Berikut Program sebelum dijalankan. Semua
textbox dan listview masih kkosong tidak tampil data apapun.
Setelah Program dijalankan sudah tampil database pada
listview yang sudah kita bahas sebelumnya, tampil listview Berikut gambarnya.
Untuk menampilkan database pada textbox pilih data di
listview terlebih dahulu, double klik pada listview. Berikut source code nya :
Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
With Me.ListView1
Dim i As Integer
For Each item As ListViewItem In ListView1.SelectedItems
i = item.Index
Next
Dim innercounter As Integer = 0
For Each subItem As ListViewItem.ListViewSubItem In ListView1.Items(i).SubItems
Dim myString As String = ListView1.Items(i).SubItems(innercounter).Text
Select Case innercounter
Case 0
TextBox1.Text =
myString
Case 1
TextBox2.Text =
myString
End Select
innercounter += 1
Next
End With
End Sub
Sekian contoh source code untuk tampil listview ke textbox kali ini, untuk ke combobox juga sama tinggal ganti saja textbox dengan combobox yang kalian inginkan. Terima kasih telah membaca artikel ini.
Senangnya
berbagi.
makasih gan, masalah teratasi . :)
BalasHapus