Minggu, 29 April 2012

Membuat Tabel dengan ListView

Diposting oleh fajar wati di 01.59
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

Tambahkan 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 program( tekan F5 )
Jika berhasil hasil/output akan sesuai dengan inputan tang kita masukan..sekian postingan kali ini semoga bermanfaat untuk kita semua..Amiiin.

0 komentar:

Posting Komentar

 

Goresan m3 Template by Ipietoon Blogger Template | Gadget Review