Tutorial kali ini saya akan memberikan contoh VisualBasic 2008 yang kedua
Langkah-langkahnya:
1. Membuka Program Visual Basic (VB) 2008
2. Klik create : Project
3. Ubah Project dengan Nama Anda sendiri
4. Maka setelah itu akan muncul sebuah FROM1 pada project Anda
5. Desain from dengan label, Textbox, Buttom, ListView
Tampilan From
6. Listing Program
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Sub buattabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
LV.Items.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
7. Tampilan Form setelah dijalankan
NB :
- Ketikan NPM Anda pada TextBox NPM
- Ketikan Nama Anda pada TextBox Nama
- Klik => buttton (Simpan Ke ListView)
- Jika Anda ingin menghapusnya : Klik saja button (Hapus data yang Dipilih) atau jika ingin menghapus semua Datanya Klik saja button (Hapus Semua Data)
Silahkan di coba programnya ya :-* :-)
Tidak ada komentar:
Posting Komentar