Menampilkan List view Dengan Microsoft Visual Basic

Menampilkan List view Dengan Microsoft Visual Basic

Menggunakan List View 

Buat Design terlebih dahulu

seperti di bawah ini :

Selanjutnya
buat syntax pada form load, dengan mengklik dua kali di luar listview ataupun textbox

Public Class Form1

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

Sub BuatTabel()

        LV.Columns.Add("NPm", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = NPm.Text

        Lst.SubItems.Add(Nama.Text)

        LV.Items.Add(Lst)

    End Sub

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

        BuatTabel()

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        IsiTabel()

        NPm.Text = ""

        Nama.Text = ""

    End Sub

End Class

Author : Tri

Share this

Related Posts