terça-feira, 30 de outubro de 2012

on


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With DgdGrade
            .Rows.Add("Analista de TI", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")
            .Rows.Add("Analista de Sistemas", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")
            .Rows.Add("Analista de Negócios", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")
            .Rows.Add("Supervisor", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")
            .Rows.Add("Diretor", "A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein")
        End With

        'Carrega as informações do checkBox
        PColoreCelulas()

    End Sub

    Private Sub PColoreCelulas()

        For Each linha As DataGridViewRow In Me.DgdGrade.Rows

            If linha.Cells(2).Value = True Then 'Verifica se o CheckBox foi marcado
                linha.Cells(2).Style.BackColor = Color.Red 'Se o checkBox for marcado a célula recebe a cor vermelha
            End If

            If linha.Cells(2).Value = False Then 'Verifica se o CheckBox foi marcado
                linha.Cells(2).Style.BackColor = Color.Silver 'Se o checkBox for marcado a célula recebe a cor cinza
            End If

        Next

    End Sub

    Private Sub DgdGrade_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgdGrade.CellClick
        PColoreCelulas()     
    End Sub

End Class


Pegue o projeto neste link:  http://www.mediafire.com/?bzg6oc9e47zh7bf
Espero ter ajudado, até mais... Abraços.

0 comentários:

Postar um comentário