Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net

Assalamu'alaikum..

Sudah lama juga jari-jari saya tidak mencet-mencet tombol keyboard heheh...
Hai Guys kali ini saya aka memostingkan Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net ... Nah kali ini jika karakter diinputkan maka akan bisa disimpan dilistview,.. Nah berikut ini adalah tampilan dari Program Aplikasi Barang Menggunkan Listview. 

Berikut ini adalah Listing Programnya..:

Public Class Barang
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = kd_barang.Text
        lst.SubItems.Add(nm_barang.Text)
        lst.SubItems.Add(satuan.Text)
        lst.SubItems.Add(harga.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub Pelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kd_barang.Items.Add("KL001")
        kd_barang.Items.Add("TV002")
        kd_barang.Items.Add("SK003")
        kd_barang.Items.Add("KB004")
        satuan.Items.Add("Elektronik")
        satuan.Items.Add("Listrik")
        nm_barang.Enabled = False
        harga.Enabled = False
    End Sub
    Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged
        If kd_barang.Text = "KL001" Then
            nm_barang.Text = "Kulkas"
        ElseIf kd_barang.Text = "TV002" Then
            nm_barang.Text = "Televisi"
        ElseIf kd_barang.Text = "SK003" Then
            nm_barang.Text = "Sakelar"
        Else
            nm_barang.Text = "Kebel"
        End If
    End Sub
    Private Sub satuan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satuan.SelectedIndexChanged
        Select Case satuan.Text
            Case "Elektronik"
                Select Case kd_barang.Text
                    Case "KL001"
                        harga.Text = 2400000
                    Case "TV002"
                        harga.Text = 1200000
                End Select
            Case "Listrik"
                Select Case kd_barang.Text
                    Case "SK003"
                        harga.Text = 45000
                    Case "KB004"
                        harga.Text = 5000
                End Select
        End Select
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
    End Sub
    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        kd_barang.Text = ""
        nm_barang.Text = ""
        satuan.Text = ""
        harga.Text = ""
        kd_barang.Focus()
    End Sub
    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        kd_barang.Text = ""
        nm_barang.Text = ""
        satuan.Text = ""
        harga.Text = ""
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnhapuslv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslv.Click
        lv.Items.Remove(lv.Items(0))
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
    End Sub
End Class
Demikianlah artikeldari saya yang berjudul Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net Semoga bermanfaat bagi taman taman semua..........


Wassalamu'alaikum....