Public Class Form1
Sub
buattabel()
ListView1.Columns.Add("Npm", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
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 hapus_smua_data_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_smua_data.Click
ListView1.Items.Clear()
End Sub
Private Sub hapus_dipilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_dipilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
End Class
Sumber : Esra
Handayani
Tidak ada komentar:
Posting Komentar