menggunakan-listview-pada-visual-besic.html

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buatTabel()
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
  
    End Sub
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
       nama_barang.items.clear()
dim x as string
x=microsoft.visualbasic.left(kode.text,2)
if x="TS"then
merek_barang.text="Toshiba"
else if x="TS"then
merek_barang.text="Toshiba"
if x="VG"then
merek_barang.text="V-Gen"
else
merek_barang.text="V-Gen"

end if

dim y as string
y=microsoft.visualbasic.right(kode.text,3)
dim y as string
if y="002"then
nama_barang.items.add=" Flashdisk 4GB"
else if x="001"then
merek_barang.items.add="Flashdisk 2GB"
else if x="001"then
merek_barang.items.add="Flashdisk 4GB"
else if x="002"then
merek_barang.items.add="Flashdisk 2GB"

    End Sub

    Private Sub tot_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        
End Select
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        End Select
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        total.Text = Harga.text * Jumlah_Beli.text
    End Sub
    Private Sub baru_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click
    
    End Sub
    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
    Sub buatTabel()
        LV.Columns.Add("no pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("kode", 100, HorizontalAlignment.Left)
        LV.Columns.Add("nama_barang", 100, HorizontalAlignment.Left)
        LV.Columns.Add("merek", 100, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 100, HorizontalAlignment.Left)
        LV.Columns.Add("jumlah beli", 100, HorizontalAlignment.Left)
        LV.Columns.Add("total_harga", 100, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.gridlines = True
        LV.fullrowselect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = nik.Text
        Lst.SubItems.Add(no pembelian.Text)
        Lst.SubItems.Add(kode.Text)
        Lst.SubItems.Add(nama_barang.Text)
        Lst.SubItems.Add(merek.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(jumlah beli.Text)
        Lst.SubItems.Add(total_harga.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isitabel()
       no pembelian.Text = ""
        kode.Text = ""
        nama_barang.Text = ""
        merek.Text = ""
        status.Text = ""
        harga.Text = ""
        jumlah beli.Text = ""
        total_harga.Text = ""
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        LV.Items.Clear()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class