Program Listview pada Pembelian Barang

Public Class Form1

    Sub BuatTabel()

        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)

        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        Storage.View = View.Details

        Storage.GridLines = True

        Storage.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Kd_Barang.Text

        Lst.SubItems.Add(Nm_Barang.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Merk.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Total.Text)

        Storage.Items.Add(Lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Kd_Barang.Items.Add("PL101")

        Kd_Barang.Items.Add("PL102")

        Kd_Barang.Items.Add("VG101")

        Kd_Barang.Items.Add("VG102")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)

        If x = "PL" Then

            Merk.Text = "Sony"

        ElseIf x = "VG" Then

            Merk.Text = "V-Gen"

        End If

        x = Microsoft.VisualBasic.Right(Kd_Barang.Text, 3)

        If x = "101" Then

            Nm_Barang.Text = "Flashdisk 4GB"

        ElseIf x = "102" Then

            Nm_Barang.Text = "Flashdisk 2GB"

        End If

        Select Case Kd_Barang.Text

            Case "PL101"

                Harga.Text = "108000"

            Case "PL102"

                Harga.Text = "85000"

            Case "VG101"

                Harga.Text = "70000"

            Case "VG102"

                Harga.Text = "80000"

        End Select

    End Sub

    Private Sub Btn_Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

        IsiTabel()

        Kd_Barang.Text = ""

        Nm_Barang.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress

        Total.Text = Harga.Text * Val(Jumlah.Text)

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click

        Storage.Items.Clear()

    End Sub

    Private Sub Btn_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Kd_Barang.Text = ""

        Nm_Barang.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhp.Click

        Storage.Items.Remove(Storage.SelectedItems(0))

    End Sub

End Class