Minggu, 29 November 2015

Menampilkan atau Menyimpan Data ke ListView VB Net 2008

Nah, bagaimana jika kita ingin menampilkan atau menyimpan data pada ListView?
Itulah yang akan kita bahas pada postingan artikel kali ini tentang Visual Basic 2008.
Desain Form


Coding Program VB Net 2008

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
    End Sub
    Sub buattabel()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Jenjang", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Jurusan", 120, HorizontalAlignment.Center)
        lv.Columns.Add("Telp", 100, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = npm.Text
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(kelas.Text)
        isi.SubItems.Add(jenjang.Text)
        isi.SubItems.Add(jurusan.Text)
        isi.SubItems.Add(telp.Text)
        lv.Items.Add(isi)
    End Sub
    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
    End Sub
End Class


Jika dijalankan programnya, maka hasilnya akan seperti dibawah ini :
Sekian untuk artikel kali ini tentang Visual Basic 2008 atau VB Net 2008 dengan Judul Menampilkan atau Menyimpan Data ke ListView VB Net 2008.

Tidak ada komentar:

Posting Komentar