Labels

Jumat, 22 April 2011

Membuat Tabel Menggunakan ListView

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.


2 komentar:

Related Posts Plugin for WordPress, Blogger...