Minggu, 15 November 2015

Membuat Tabel Pada isi Listview

syalom pada sore ini saya posying VB.NET 2008 memmindahkan file ke listview pertama-tama kita lakukan adalah membuka program VB NET yang kita punya hingga tampil sebuah form1 yang
kosong seperti gambar berikut ini�
setelah kita lakukan langkah di atas kita buat seperti gambar berikut ini dengan menggunakan dua label dua textbox empat buah button dan satu listview hingga tampilah gambar di bawah ini,�
setelah selesai sesuaikan gambar tersebut sesuai dengan gambar di bawah ini dengan menggantikan teks pada porperti,sehingga terlihat seperti gambar di bawah ini,�
kemudian masukan kode di bawah ini
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Call buattable()
End Sub
Sub buattable()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub Sub isitable()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
LV.Items.Add(lst)
End Sub Private
Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisi.Click Call isitable()
npm.Text = ""
nama.Text = ""
End Sub
Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
LV.Items.Clear()
End Sub
Private Sub btnhapusnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusnpm.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub End Class
pada button di atas sesuikan namanya de kode yeahhh soalnya belum saya bikin keterangannya biar sobat sekalian belajar seperti saya kemarin belajar,jika kita tau di mana salahnya pasti kita bisa dan susah untuk lupa mgingisi kodenya. itu sengaja saya tidak membuat keterangannya yahh maaf jika ada kesalahan dalam artikel ini sampai jumpa dan selamat belajar VB NET 2008�
Referensi�

Tidak ada komentar:

Posting Komentar