Membuat Apilkasi dengan menggunakan Listview pada VB.Net

Assalamu'alaikum,,,,,,,

Pada kesempatan kali ini saya akan membagi ilmu tentang Cara "Membuat Aplikasi Listview pada VB.Net ". Tapi sebelumnya anda harus tahu apa itu Vb.Net.

VB.Net aplikasi untuk membuat dan memudahkan User dalam membuat sebuah sebuah program.

Disamping ini adalah sebuah tampilan Aplikasi  dengan Menggunakan Listview :

Dan berikut ini adalah Listing Program Aplikasi Menggunakan Listview :

Public Class Form1
    Dim x As Byte

    Sub buattable()
        lv.Columns.Add("No", 40, HorizontalAlignment.Left)
        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 isitable()
        Dim lst As New ListViewItem
        lst.Text = x
        lst.SubItems.Add(npm.Text)
        lst.SubItems.Add(nama.Text)
        lv.Items.Add(lst)
        x = 1 + x
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattable()
        x = 1
    End Sub

    Private Sub bnt_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnt_simpan.Click
        isitable()
        npm.Text = ""
        npm.Focus()
        nama.Text = ""
    End Sub

    Private Sub nama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nama.KeyPress
        If Asc(e.KeyChar) = 13 Then
            isitable()
            npm.Text = ""
            npm.Focus()
            nama.Text = ""
        End If
    End Sub

    Private Sub bnthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnthapus.Click
        lv.Items.Remove(lv.Items(0))
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Dim k As String
        k = MsgBox("apakah andi ingin keluar", MsgBoxStyle.OkCancel)
        If k = vbOKCancel Then
            Me.Close()
        End If

    End Sub

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

Demikianlah isi Artikel saya tentang cara Mebuat Aplikasi dengan Menggunakan Listview pada Vb.Net...

Wassalamu'alaikum.................