Tutorial Membuat Tabel di ListView VBNET 2008

Form 1

Listview adalah sebuah tempat digambar atau dibuatnya sebuah tabel pada Program VB NET 2008. Pada postingan ini saya akan berbagi pengalaman saya Membuat Tabel di ListView VBNET 2008.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call buattabel()

    End Sub
    Sub buattabel()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub

    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisi.Click
        Call isitable()
        npm.Text = ""
        nama.Text = ""
    End Sub

   

    Private Sub btnhapusnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusnpm.Click
        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        lv.Items.Clear()
    End Sub
End Class


Semoga Artikel Membuat Tabel di ListView VBNET 2008 Bermanfaat!

Share this post

Berlangganan update artikel terbaru via email: