Thursday, October 25, 2018

Memberi Warna Header List View di Vb.net


Salah satu cara mempercantik tampilan list view di Visul Basic Vb Net adalah memberi warna pada header dari list view. Berikut saya akan memberikan cara memberi warna pada header dari List View.

Berikut langkah-langkah memberi warna pada header dari list view :
1. Buatlah sebuah form pada project visual basic net kalian kemudian tambahkan sebuah list view dan atur list view kalian dari pemberian nama colom header misal seperti gambar berikut
2. Pada properties dari list view ubah bagian Owner draw menjadi true kemudian selanjutnya tambahkan coding berikut pada list view

Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
        Dim strFormat As New StringFormat()
        If e.Header.TextAlign = HorizontalAlignment.Center Then
            strFormat.Alignment = StringAlignment.Center
        ElseIf e.Header.TextAlign = HorizontalAlignment.Right Then
            strFormat.Alignment = StringAlignment.Far
        End If

        e.DrawBackground()
        e.Graphics.FillRectangle(Brushes.SteelBlue, e.Bounds)
        Dim headerfont As New Font("Arial", 10, FontStyle.Bold)

        e.Graphics.DrawString(e.Header.Text, headerfont, Brushes.Black, e.Bounds, strFormat)

    End Sub

    Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewItemEventArgs) Handles ListView1.DrawItem
        e.DrawDefault = True
    End Sub

3. Selanjutnya coba jalankan program kalian maka hasilnya akan seperti gambar di bawah ini
Jika sudah mengikuti lagkah-langkah di atas maka kalian sudah bisa memberikan warna pada header list view.

Demikian tips menambahkan warna pada header list view Visual Basic Net. Semoga tips ini berguna buat kalian. Jika ada pertanyaan bisa tinggalan komentar pada bagian komentar di bawah ini.
Disqus Comments