Latihan Listview Penjualan Barang

Hasil Outputnya:

 
Listing programnya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kd_barang.Items.Add("TS001")
        kd_barang.Items.Add("TS002")
        kd_barang.Items.Add("VG001")
        kd_barang.Items.Add("VG002")
    End Sub

    Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged
        Dim X As String
        Dim Y As String
        X = Microsoft.VisualBasic.Left(kd_barang.Text, 2)
        Y = Microsoft.VisualBasic.Right(kd_barang.Text, 3)
        Select Case X
            Case "TS"
                merk.Text = "TOSHIBA"
                Select Case Y
                    Case "001"
                        nama_barang.Text = "FLASHDISK 4GB"
                        harga.Text = 105000
                    Case "002"
                        nama_barang.Text = "FLASHDISK 2GB"
                        harga.Text = 75000
                End Select
            Case "VG"
                merk.Text = "V-GEN"
                Select Case Y
                    Case "001"
                        nama_barang.Text = "FLASHDISK 4GB"
                        harga.Text = 90000
                    Case "002"
                        nama_barang.Text = "FLASHDISK 2GB"
                        harga.Text = 60000
                End Select
        End Select
    End Sub

    Sub BuatTabel()
        With LV
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details
            .Columns.Add("No Pembelian", 110)
            .Columns.Add("Kode", 100)
            .Columns.Add("Nama", 140)
            .Columns.Add("Merk", 120)
            .Columns.Add("Jumlah", 100)
            .Columns.Add("Total Harga", 100)
        End With
    End Sub

    Sub Isitabel()
        Dim lst As New ListViewItem
        With lst
            .Text = noPembelian.Text
            .SubItems.Add(kd_barang.Text)
            .SubItems.Add(nama_barang.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(jumlahbeli.Text)
            .SubItems.Add(totalHarga.Text)
        End With
        LV.Items.Add(lst)
    End Sub


    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged
        If harga.Text = "" Then
            Exit Sub
        ElseIf jumlahbeli.Text = "" Then
            Exit Sub
        Else
            totalHarga.Text = jumlahbeli.Text * harga.Text
        End If
    End Sub

    Private Sub Btn_simpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpankelistview.Click
        Isitabel()
        bersih()
    End Sub

    Private Sub Btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_bersih.Click
        bersih()
    End Sub

    Private Sub Btn_hapussmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapussmuadata.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btn_hapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapusdatayangdipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
        Me.Close()
    End Sub

    Sub bersih()
        noPembelian.Text = ""
        kd_barang.Text = ""
        nama_barang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalHarga.Text = ""
    End Sub
End Class