Membuat Program Menggunakan Listview Dengan VB.Net

Tampilan Sebelum Program Dijalankan

  

 Listing Programnya:

Public Class Form1

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

        NPM.Items.Add("12111007")
        NPM.Items.Add("10100987")
        NPM.Items.Add("12072133")
    End Sub

    Sub BuatTabel()
        With LV
            .Columns.Add("NPM", 80, HorizontalAlignment.Center)
            .Columns.Add("Nama", 160, HorizontalAlignment.Left)
            .Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
            .Columns.Add("Jurusan", 160, HorizontalAlignment.Left)
            .Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
            .Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
            .Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = NPM.Text
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jenjang.Text)
        Lst.SubItems.Add(Jurusan.Text)
        Lst.SubItems.Add(TahunMasuk.Text)
        Lst.SubItems.Add(NilaiAngka.Text)
        Lst.SubItems.Add(NilaiHuruf.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x, y As String
        TahunMasuk.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

        Select Case NPM.Text
            Case "12111007"
                Nama.Text = "Erni Hura"
            Case "10100987"
                Nama.Text = "Eko July"
            Case "12072133"
                Nama.Text = "Beny Syahputra"
            Case Else
                Nama.Text = "_"
        End Select

        Select Case x
            Case "11"
                Jenjang.Text = "Strata 1"
            Case "10"
                Jenjang.Text = "Diploma 3"
            Case "07"
                Jenjang.Text = "Diploma 1"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "1"
                Jurusan.Text = "Teknik Informatika"
            Case "0"
                Jurusan.Text = "Manajemen Informatika"
            Case "2"
                Jurusan.Text = "Akutansi"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub

    Private Sub NilaiAngka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiAngka.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            NilaiHuruf_TextChanged(sender, e)
        End If
    End Sub

    Private Sub BtnSimpanKeLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeLV.Click
        IsiTabel()
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        TahunMasuk.Text = ""
        NilaiAngka.Text = ""
        NilaiHuruf.Text = ""
    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
        LV.Items.Clear()
    End Sub

    Private Sub BtnHapusDataygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataygdipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

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

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        TahunMasuk.Text = ""
        NilaiAngka.Text = ""
        NilaiHuruf.Text = ""
    End Sub

    Private Sub NilaiHuruf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiHuruf.TextChanged
      
    End Sub

    Private Sub NilaiAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiAngka.TextChanged
       
    End Sub
End Class

Tampilan Setelah DiJalankan:

Belajar Bahasa Pemrograman (Quis)