Langkah pertama,desainlah
form seperti di bawah ini
Kemudian ketik
listing programmnya
Public Class Listview
Sub
BuatTabel()
LV.Columns.Add("nmrpmb",
50, HorizontalAlignment.Left)
LV.Columns.Add("kode",
50, HorizontalAlignment.Left)
LV.Columns.Add("nama",
100, HorizontalAlignment.Left)
LV.Columns.Add("merk",
80, HorizontalAlignment.Left)
LV.Columns.Add("harga",
60, HorizontalAlignment.Left)
LV.Columns.Add("jumlah",
50, HorizontalAlignment.Left)
LV.Columns.Add("tothrga",
70, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub
IsiTabel()
Dim Lst
As New
ListViewItem
Lst.Text = nmrpmb.Text
Lst.SubItems.Add(kode.Text)
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(merk.Text)
Lst.SubItems.Add(harga.Text)
Lst.SubItems.Add(jumlah.Text)
Lst.SubItems.Add(tothrga.Text)
LV.Items.Add(Lst)
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim x As String
x =
Microsoft.VisualBasic.Left(kode.Text, 2)
Select Case x
Case
"PS" : merk.Text = "Panasonic"
Case
"LG" : merk.Text = "LG"
End Select
Dim x2 As String
x2 =
Microsoft.VisualBasic.Right(kode.Text, 3)
Select Case x2
Case
"001" : nama.Text = "Televisi 14inchi"
Case
"002" : nama.Text = "Televisi 21inchi"
End Select
If x = "PS" And
x2 = "001" Then
harga.Text = "2000000"
ElseIf
x = "TS" And
x2 = "002" Then
harga.Text = "2500000"
ElseIf
x = "LG" And
x2 = "001" Then
harga.Text = "1500000"
ElseIf
x = "LG" And
x2 = "002" Then
harga.Text = "2000000"
End If
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
BuatTabel()
kode.Items.Add("PS001")
kode.Items.Add("PS002")
kode.Items.Add("LG001")
kode.Items.Add("LG002")
End Sub
Private Sub Btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnproses.Click
tothrga.Text = harga.Text * jumlah.Text
End Sub
Private Sub Btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapus.Click
nmrpmb.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tothrga.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 btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnsimpan.Click
IsiTabel()
nmrpmb.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tothrga.Text = ""
End Sub
Private Sub btnhapuspilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapuspilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnclear_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnclear.Click
LV.Items.Clear()
End Sub
End Class
Setelah itu
,clikk debug atau tekan F5
Lalu
inputkan nilai di text box nya..
Maka tampilannya
akan sperti ini
Lalu klik
simpan ke listview,maka hasilnya akan seperti ini :
Tidak ada komentar:
Posting Komentar