yuk ! belajar pemograman visual basic dot net dimesran.net

selamt sore teman* ..
saya kembali lagi dengan pembalajaran visual basic .sebenarnya ini tugas kuis admin .tapi admin mau berbagi ilmu kepada teman* semua .
disini saya akan membahas listview penjualan barang.diahima.blogspot
langkah pertama ,buat dulu design nya sebagai berikut :

selanjutnya ,double klik pada form 1 .lalu isikan kode sebagai berikut.


Public Class kuis
    Sub buattabel()
        Lv.Columns.Add("nopembeli", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("kode barang", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("nama barang", 180, HorizontalAlignment.Right)
        Lv.Columns.Add("merk", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("harga", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("jumlah beli", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("total harga", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopembeli.Text
        lst.SubItems.Add(kodebarang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        Lv.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

langkah selajutnya ,double klik pada simpan ke listview?btnproses dan isi kan kodenya sebagai berikut ;


Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        isitabel()
        nopembeli.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

setelah semua kode sudah diisikan dengan benar ,dijalankan dengan tekan f5 maka hasilnya seperti ini .

sekian lah postingan dari saya ,semoga bermanfaat buat kita semua .
see u letter.. :)mesran.net