Rabu, 06 Februari 2013

Menampilkan atau Menyimpan Data ke ListView VB Net 2008


Pada postingan sebelumnya kita telah membahas tentang bagaimana membuat tabel kosong pada listview pada 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.
Semoga bermanfaat..!! :-)
Salam Programmer..

1 komentar:
Write komentar