Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net

Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net

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..........