[RESOLVIDO][vb.net] Colorir linhas de uma datagrid

[esquima]

Boas eu carrego uma datagrid com dados da minha bd...agora queira por todas as linhas a vermelho que tivessem o estado = Fechado

[Asgorath]

Boas .

Datagrid ou DatagridView?

[Weasel]

Faz assim

No while em que preenches a Datagrid, ou coisa similar mete assim:

If (DataGridView1.Item("estado", i).Value.ToString() = "Fechado") Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If

Nota: eu usei a var i como contador do index da linha actual.

[esquima]

Uma datagrid... ja agora qual e a diferença de uma datagrid e uma datagrid view

[Asgorath]

A datagridview é tem mais funcionalidades que a datagrid.

http://www.syncfusion.com/FAQ/winforms/FAQ_c44c.aspx#q745q

ve faq 5.14 How do I color a individual cell depending upon its value or some external method?

[esquima]

Poisss.. e que eu tou a usar o vb.2003 e n tem o datagridview pois so ha no 2005...vou ter mesmo de trabalhar com datagrid

[esquima]

ja tou farto de pesquisar e n encontro nada para vb.2003, para o que quero fazer 

[Asgorath]

Public Class DataGridColoredTextBoxColumn
     Inherits DataGridTextBoxColumn

     Public Sub New()
     End Sub

     Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal source As CurrencyManager, ByVal rowNum As Integer, ByVal backBrush As Brush, ByVal foreBrush As Brush, ByVal alignToRight As Boolean)

     ' the idea is to conditionally set the foreBrush and/or backbrush
     ' depending upon some crireria on the cell value
     ' Here, we color anything that begins with a letter higher than 'F'
     Try
          Dim o As Object
          o = Me.GetColumnValueAtRow(source, rowNum)
          If (Not (o) Is Nothing) Then
               Dim c As Char
               c = CType(o, String).Substring(0, 1)
               If (c > "F") Then
                     ' could be as simple as
                    ' backBrush = new SolidBrush(Color.Pink);
                    ' or something fancier...
                    backBrush = New LinearGradientBrush(bounds, Color.FromArgb(255, 200, 200), Color.FromArgb(128, 20, 20), LinearGradientMode.BackwardDiagonal)
                    foreBrush = New SolidBrush(Color.White)
               End If
          End If
          Catch ex As Exception
               ' empty catch
          Finally
               ' make sure the base class gets called to do the drawing with
                ' the possibly changed brushes
               MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)
          End Try

     End Sub
End Class 

[Weasel]

Não tinha reparado que era DataGrid e não DataGridView...

Vb.net 2003 realmente é bem mais complicado de fazer isso

UPGRADE para VB.NET 2005!!!!

[esquima]

Poisss..ja vi que e bem mais dificil...vou passar para 2005 depois deste projecto..agora n vem convem fazer o upgrade...entrentanto continuo entalado com isto  🙂

[Gooden]

porque é que em vez de usares uma datagrid não usas uma listview?

pelo menos e um concelho que te dou que fica muito melhor esteticamente 🙂

[esquima]

Pessoal...mudei para o vb.2005..bem mais facil trabalhar com as datagridview...ja consegui me orientar a colorir as linhas conforme o meu estado=fechado....se no futuro alguem precisar apitem  🙂