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
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