Untuk keperluan tertentu ListView juga dapat digunakan sebagai tabel, misalkan untuk menanpilkan hasil perpangkatan dan lain-lain.Sebagai contoh dalam posting ini kita akan menghitung nilai perpangkatan dan menampilkannya kedalam ListViewl yang telah di design menjadi tabel.
Untuk membuat tabel gunakan komponen ListView
Atur Properties ListView
Properties ListView1 | ||
GridLines | True | - |
Views | Details | - |
Colums | ColumsHeader1 ColumsHeader2 ColumsHeader3 | Pangkat-1 Pangkat-2 Pangkat-3 |
Tambahka 4 Textbot, 1 Label dan 1 Buttons
Setelah itu masukan listing kode dibawah ini.
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim baris As Integer, batas As Integer, tot1 As Integer, tot2 As Integer, tot3 As Integer
batas = txtbatas.Text
'melakukan perhitungan pangkat'
For baris = 1 To batas Step 1
lsttable.Items.Add(baris)
lsttable.Items(baris - 1).SubItems.Add(baris * baris)
lsttable.Items(baris - 1).SubItems.Add(baris * baris * baris)
'melakukan perhitungan total'
tot1 = tot1 + baris
tot2 = tot2 + baris * baris
tot3 = tot3 + baris * baris * baris
Next
txtp1.Text = tot1
txtp2.Text = tot2
txtp3.Text = tot3
End Sub
Kemudian jalankan progra ( tekan F5 )
Jika berhasil hasil/output akan sesuai dengan inputan tang kita masukan..sekian postingan kali ini semoga bermanfaat untuk kita semua..Amiiin.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :