1. Buatlah tampilan seperti di bawah ini
2. copy koding dibawah ini untuk membuat variabel array (nama variabel bisa di seting sesuai keinginan).
(5) berarti ada 5 item yang ingin dimasukan. anda tinggal menyesuaikannya.
Dim list(5) As String
Dim itemlist As ListViewItem
3. Double klik pada form, dan copy koding dibawah ini.
Call setlistview()
4. Copy koding dibawah ini pada button simpan
list(1) = Trim(txtnama.Text)
list(2) = Trim(txtumur.Text)
list(3) = Trim(txttinggi.Text)
list(4) = Trim(txtberat.Text)
itemlist = New ListViewItem(list)
ListView1.Items.Add(itemlist)
5. Tambahakn koding seperti dibawah ini untuk menyeting Listview
Sub setlistview()
ListView1.View = View.Details
ListView1.Columns.Add("ID", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Nama", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Umur (th)", 70, HorizontalAlignment.Left)
ListView1.Columns.Add("Tinggi (m)", 70, HorizontalAlignment.Left)
ListView1.Columns.Add("Berat (kg)", 70, HorizontalAlignment.Left)
End Sub
6. Selesai. dan lakukanlah debug program.
Simple kan ...
Selamat mencoba :)
0 komentar:
Posting Komentar