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 )
0 komentar:
Posting Komentar