Listbox Warna Visual Basic.Net

alfa6661
- December 20, 2011
0 (0 votes)
Rate :
Mengubah warna item pada listbox Visual Basic .Net

Listbox merupakan salah satu object dari Visual Basic yang memungkinkan pengguna untuk memilih satu atau lebih item dari daftar yang terkandung dalam Listbox tersebut. Pengguna dapat klik di dalam listbox tersebut untuk memilihnya.

Kita bisa mengubah ukuran huruf, jenis huruf ataupun warna dari item yang di pilih.Mungkin ada diantara kalian yang bosan dengan warna dari listbox.

Untuk langkah pertama ubah property DrawMode ListBox Menjadi OwnerDrawFixed . caranya bisa dengan menuliskan script berikut pada Form_Load

ListBox1.DrawMode = DrawMode.OwnerDrawFixed

setelah itu tuliskan script di bawah ini pada ListBox1_DrawItem

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
 
    e.DrawBackground()
    Dim myBrush As Brush = Brushes.White
    Dim itemColor As Brush = Brushes.Black
    Dim myPen As Pen = Pens.Yellow
 
    If e.State And DrawItemState.Selected = DrawItemState.Selected Then
        myBrush = Brushes.Black
        myPen = Pens.Red
    End If
 
    Select Case e.Index
        Case 0
            itemColor = Brushes.DarkOrange
        Case 1
            itemColor = Brushes.Green
        Case 2
            itemColor = Brushes.Black
        Case 3
            itemColor = Brushes.Chocolate
        Case 4
            itemColor = Brushes.Gold
        Case 5
            itemColor = Brushes.Cyan
        End Select
 
        e.Graphics.FillRectangle(myBrush, e.Bounds)
        e.Graphics.DrawRectangle(myPen, e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)
        e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, itemColor, e.Bounds)
 
End Sub

Computer science education cannot make anybody an expert programmer any more than studying brushes and pigment can make somebody an expert painter

– Eric S. Raymond

Have a better explanation?

If you have comments about this post. Please write your comments below

No comments associated with this article