Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Meningkatkan Daya Tarik ListView

| Comments

ListView adalah salah satu komponen VB yang digunakan untuk menampilkan data dalam format tabel, lihat gambar :

Sayangnya secara default ListView tidak mempunyai kemampuan untuk menghasilkan tampilan seperti di bawah ini, tetapi jangan khawatir dengan sedikit permainan kode kita bisa membuat tampilan ListView menjadi seperti berikut :

Oke kita langsung saja, buat design program seperti berikut :

kemudian copy paste kode berikut :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub setBackColorListView(ByVal objList As ListView, ByVal objPic As PictureBox)

    Dim i As Long

    objPic.BackColor = objList.BackColor
    objPic.ScaleMode = vbTwips
    objPic.BorderStyle = vbBSNone
    objPic.AutoRedraw = True

    objPic.Width = objList.Width
    objPic.Height = objList.ListItems(1).Height * (objList.ListItems.Count)
    objPic.ScaleHeight = objList.ListItems.Count
    objPic.ScaleWidth = 1
    objPic.DrawWidth = 1
    objPic.Cls

    For i = 1 To objList.ListItems.Count
       If i Mod 2 = 0 Then
         objPic.Line (0, i - 1)-(1, i), RGB(255, 255, 255), BF

       Else
         objPic.Line (0, i - 1)-(1, i), RGB(239, 239, 239), BF 'ganti warna posisinya disini
       End If
    Next

    objList.Picture = objPic.Image
End Sub

Contoh penggunaan

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
    Dim x As Long

    With ListView1
        .View = lvwReport
        .GridLines = True
        .ColumnHeaders.Add , , "No.", 500
        .ColumnHeaders.Add , , "Item", 4700

        For x = 1 To 10
            .ListItems.Add , , x
            .ListItems(x).SubItems(1) = "Item " & x
        Next
    End With

    Call setBackColorListView(ListView1, Picture1) 'panggil prosedurnya disini
End Sub

Selamat mencoba :)

visual basic

Tentang Penulis

Software developer yang fokus mengembangkan aplikasi di atas platform .NET (Desktop, ASP.NET MVC, Web Service) dan Android. Senang mempelajari teknologi baru terutama di bidang OOP, Design Pattern, ORM, Database dan Continuous Integration & Deployment.
Saat ini bekerja sebagai staf IT di salah satu PTS di Yogyakarta sebagai senior software developer. Di waktu luang insya Alloh akan terus berbagi pengalaman di blog ini :)

« Mengoptimalkan penggunaan fungsi Shell Membuat menu cantik dengan VBSmart Menu XP »

Comments