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 :
