Public Class TUGASHAL32
Sub BUATTABEL()
LV.Columns.Add("npm", 80, HorizontalAlignment.Center)
LV.Columns.Add("nm", 180, HorizontalAlignment.Center)
LV.Columns.Add("jurusan", 80, HorizontalAlignment.Center)
LV.Columns.Add("jenjang", 80, HorizontalAlignment.Center)
LV.Columns.Add("tahun masuk", 80, HorizontalAlignment.Center)
LV.Columns.Add("nangka", 80, HorizontalAlignment.Center)
LV.Columns.Add("nhuruf", 80, 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(nm.Text)
LST.SubItems.Add(jurusan.Text)
LST.SubItems.Add(jenjang.Text)
LST.SubItems.Add(tahun masuk.Text)
LST.SubItems.Add(nangka.Text)
LST.SubItems.Add(nhuruf.Text)
LV.Items.Add(LST)
End Sub
Private Sub TUGASHAL32_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
End Sub
Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
ISITABEL()
npm.Text = ""
nm.Text = ""
jurusan.Text = ""
jenjang.Text = ""
tahun masuk.Text = ""
nangka.Text = ""
nhuruf.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 BTNHAPUSDATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDATA.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
npm.Text = ""
nm.Text = ""
jurusan.Text = ""
jenjang.Text = ""
tahun masuk.Text = ""
nangka.Text = ""
nhuruf.Text = ""
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
End Class