ListView
Tambahkan sintax pada form_load
Private Sub Form_Load()
' untuk membuat header listview column
listview.Columns.Add("Kode", 80, HorizontalAlignment.Center)
listview.Columns.Add("Nama", 180, HorizontalAlignment.Center)
listview.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
listview.Columns.Add("Waktu", 60, HorizontalAlignment.Center)
listview.GridLines = True
listview.View = View.Details
listview.FullRowSelect = True
' menambahkan isi data pada Listview
Dim isi As New ListViewItem
isi.SubItems.Add("01")
isi.SubItems.Add("Matematika")
isi.SubItems.Add("1 SMP ")
isi.SubItems.Add("1 Jam")
listview.Items.Add(isi)
isi.SubItems.Add("02")
isi.SubItems.Add("Komputer")
isi.SubItems.Add("1 SMP ")
isi.SubItems.Add("1.5 Jam")
listview.Items.Add(isi)
End Sub
Jalankan tekan F5
