Membuat Table Dalam List view

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 )

Posted in: Dreamweaver