GridView
Buat design form seperti gambar diatas, lalu tambahkan sintax pada form_load
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With DataGridView1
.Columns.Add("Nama", "Nama")
.Columns.Add("Alamat", "Alamat")
.Columns("Nama").Width = 100
.Columns("Alamat").Width = 250
End With
End Sub
Jika dijalankan ( tekan F5 ) maka akan tampil seperti gambar dibawah, tapi data masih kosong karena hanya di set header column :
tambahkan sintax pada form_load untuk isi data ke GridView
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With DataGridView1
' nama header column
.Columns.Add("Nama", "Nama")
.Columns.Add("Alamat", "Alamat")
.Columns("Nama").Width = 100
.Columns("Alamat").Width = 250
End With
DataGridView1.RowCount = DataGridView1.RowCount + 1
DataGridView1(0, DataGridView1.RowCount - 2).Value = "John"
DataGridView1(1, DataGridView1.RowCount - 2).Value = "Jl. Kebun Jeruk"
End Sub
Jalankan tekan F5, maka hasilnya akan menjadi :
