Jawaban Soal 2 ( May Aprina Saragih )

Kasus : Klik Disini 

 Listing Program

Public Class Form1

    Sub BuatTable()

        list.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        list.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        list.View = View.Details

        list.GridLines = True

        list.FullRowSelect = True

    End Sub

    Sub IsiTable()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nama.Text)

        list.Items.Add(lst)

    End Sub

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

        BuatTable()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        IsiTable()

        nama.Text = ""

        npm.Text = ""

    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        list.Items.Clear()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        list.Items.Remove(list.SelectedItems(0))

    End Sub

End Class

Hasil