yuks! belajar pemrograman visual basic.net di mesran.net

Public Class Form1
   
    Sub buatTabel()
        LV.Columns.Add("kodelistrik", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nama", 180, HorizontalAlignment.Left)
        LV.Columns.Add("tarif", 180, HorizontalAlignment.Left)
        LV.Columns.Add("pakai", 180, HorizontalAlignment.Left)
        LV.Columns.Add("total", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isiTabel()
        Dim lst As New ListViewItem
        lst.Text = kodelistrik.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(Tarif.Text)
        lst.SubItems.Add(pakai.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)
    End Sub

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

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        isiTabel()
        kodelistrik.Text = ""
        nama.Text = ""
        Tarif.Text = ""
        pakai.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        LV.Items.Clear()
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class

hasil output