CELULA FLEX

IRENKO 08/10/2009 07:45:23
#324766
Bom dia! Estou tentado colocar no laod do form do exemplo anexo a coluna (Status), quando o texto da linha for igual a (Inativo) o mesmo fica vermelho, não estou conseguindo. Tambem ao clicar a partir da linha 1 carregue os textbox, isso tá funcionado so que se eu do o click na linha 0 tambem mostra. Alguem pode ajudar, principalmente na primeira questão?
ASHKATCHUP 08/10/2009 08:14:30
#324767 Resposta escolhida
Não entendi a sua dúvida.. é só testar

If Grid.TextMatrix(Grid.Row, 10) = [Ô]Inativo[Ô] Then
Grid.CellForeColor = vbRed
End If
ASHKATCHUP 08/10/2009 08:37:34
#324770
E, para resolver o segundo problema, você deve usar o evento MOUSE_DOWN do grid, ao invés do CLICK.


Private Sub Grid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    [ô]
    If y < Grid.RowHeight(0) Then Exit Sub
    [ô][ô]Mostrar os dados ao clicar no Grid
    With Grid
        If .Rows <> 0 Then
            lblCodigo = .TextMatrix(.RowSel, 0)
            txtNome = .TextMatrix(.RowSel, 1)
            TxtEndereco = .TextMatrix(.RowSel, 2)
            txtTelefone = .TextMatrix(.RowSel, 3)
            TxtCelular = .TextMatrix(.RowSel, 4)
            TxtMail = .TextMatrix(.RowSel, 5)
            TxtN_Animal = .TextMatrix(.RowSel, 6)
            TxtData = .TextMatrix(.RowSel, 7)
            TxtRaca = .TextMatrix(.RowSel, 8)
            TxtSexo = .TextMatrix(.RowSel, 9)
            TxtStatus = .TextMatrix(.RowSel, 10)
        End If
        OP = ALTERAR
    End With
    [ô]
End Sub
IRENKO 08/10/2009 08:44:37
#324772
tentei assim, porem muda a cor da linha inteira, gostaria q mudace a cor somente da celula que contem o texto (Inativo).

For i = 1 To Grid.Rows - 1
If Grid.TextMatrix(i, 10) = [Ô]Inativo[Ô] Then

For coluna = 0 To Grid.Cols - 1
Grid.Col = coluna
Grid.Row = i
Grid.CellForeColor = &HC0&
Next coluna
End If
Next i
ASHKATCHUP 08/10/2009 08:54:01
#324774
Está mudando a cor da linha pois você está usando um FOR de colunas. Caro você queira colorir somente uma coluna, tire o laço de repetição.


For i = 1 To Grid.Rows - 1
	If Grid.TextMatrix(i, 10) = [Ô]Inativo[Ô] Then
		Grid.Col = 10
		Grid.Row = i
		Grid.CellForeColor = &HC0&
	End If
Next i
Tópico encerrado , respostas não são mais permitidas
Voltar