LISTBOX ZEBRADA?

DOVAHSM 09/09/2014 22:21:19
#441105

Álguem sabe me dizer se é possível deixar uma linha cinza outra não e assim por diante...?

OMAR2011 09/09/2014 23:57:09
#441108 Resposta escolhida

Cabra, este código faz colorir uma linha desejada.

Private Sub cadcli_estado_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cadcli_estado.DrawItem

Dim cor As Brush = Brushes.Black

If e.Index = 5 Then [ô]Por exemplo colorir a linha 5 de uma cor diferente.

cor = Brushes.Blue
Else
[ô] cor = Brushes.Red
End If

e.DrawBackground()

Dim mybrush As Brush = Brushes.Beige
e.Graphics.FillRectangle(mybrush, e.Bounds)
If (e.Index > -1) Then
e.Graphics.DrawString(cadcli_estado.Items(e.Index).ToString, e.Font, cor, e.Bounds)
End If
e.DrawFocusRectangle()

End Sub

DOVAHSM 10/09/2014 13:17:37
#441116

Queria alternado cinza branco.. cinza branco... mas assim já ajuda muito =)

Antes de encerrar vc sabe como posso mudar a cor de um nome clicando com o mouse? para destacar..

OMAR2011 10/09/2014 14:14:43
#441119

Não cabra. Achei isto na net.
Não faço muito uso do listbox tanto vbnet quanto vb6.
Acho muito limitado. Dou preferência para Listview ou Datagridview.
Não consegui um post na net, como zebra um Listbox.