Jawaban Quiz No.2 dengan VB.Net

Jawaban Soal No.2

Nama  :LAHUDDIN

NPM   :0911062

#Listing Program #

Public Class Form1

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

        buattabel()

    End Sub

    Sub buattabel()

        LV.Columns.Add("NPM", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 110, 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 Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        isitabel()

        NPM.Text = ""

        Nama.Text = ""

    End Sub

    Private Sub BTNHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BTNHapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapuspilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click

        Dim x As String

        x = MsgBox("Are You Sure Want to Exit??????", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Exit")

        If x = vbYes Then

            Me.Close()

        Else

            MsgBox("Thank'ssssssssss!!!!!")

        End If

    End Sub

End Class

#Tampilan Hasil Program#

 

Rujukan Soal Klik Disini