Jawaban Soal 2 (Dedy Frengki Saputra)

Kasus : Klik Disini

Penggunaan ListView

Listing Program

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        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()
        nama.Focus()
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
        nama.Focus()
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        End
    End Sub

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

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        LV.Items.Clear()
    End Sub
End Class

 Desain Form

gambar1(Proses Penginputan data)

gambar2(Hasil Input Data)

gambar3(Proses  Penghapusan data yang di seleksi)

gambar4(Menghapus data yang di pili)

gambar5(Proses Penghapusan data secara keseluruhan)

gambar6(data sudah terhapus)