hal 33

Code Programm:

Public Class Form2

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

        lv.Items.Clear()

    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 Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kb.Items.Add("TS001")

        kb.Items.Add("TS002")

        kb.Items.Add("VG001")

        kb.Items.Add("VG002")

        Call buattabel()

    End Sub

    Sub buattabel()

        lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Merk", 90, HorizontalAlignment.Center)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        lv.FullRowSelect = True

        lv.GridLines = True

        lv.View = View.Details

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = no.Text

        lst.SubItems.Add(kb.Text)

        lst.SubItems.Add(nb.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jml.Text)

        lst.SubItems.Add(tharga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged

        Select Case kb.Text

            Case "TS001"

                Microsoft.VisualBasic.Right(kb.Text, 3)

                nb.Text = "Flashdisk 4GB"

                Microsoft.VisualBasic.Left(kb.Text, 2)

                merk.Text = "Toshiba"

          

            Case "TS002"

                Microsoft.VisualBasic.Right(kb.Text, 3)

                nb.Text = "Flashdisk 2GB"

                Microsoft.VisualBasic.Left(kb.Text, 2)

                merk.Text = "Toshiba"

            Case "VG001"

                Microsoft.VisualBasic.Right(kb.Text, 3)

                nb.Text = "Flashdisk 4GB"

                Microsoft.VisualBasic.Left(kb.Text, 2)

                merk.Text = "V-Gen"

            Case "VG002"

                Microsoft.VisualBasic.Right(kb.Text, 3)

                nb.Text = "Flashdisk 2GB"

                Microsoft.VisualBasic.Left(kb.Text, 2)

                merk.Text = "V-Gen"