Sebastian
09 de Febrero del 2005

Hola , en esta oportunidad me estoy castigando con el msflexgrid y sus colores.

la idea es cambiar solamente el color de texto de una sola
fila. Estoy utilizando esto pero no logro hacerl, me pinta tode el texto completo del msflexgrid !!!


Private Sub Command1_Click()
For a = 0 To 5
If MSFlexGrid1.TextMatrix(a, 11) = "Y" Then
MSFlexGrid1.ForeColor = &HFF&
MSFlexGrid1.TextMatrix(a, 3) = MSFlexGrid1.TextMatrix(a, 3)
End If
Next a
End Sub

gracias !

mena
09 de Febrero del 2005

Mira utiliza mejor la propiedad Msflexgrid1.CellBackColor =&H00FF0000& por ejemplo
si quieres colorear toda la fila completa realiza un ciclo asi:

For i=1 to msflexgrid1.cols-1
msflexgrid1.col=i
msflexgrid1.row=1
msflexgrid1.cellbackcolor=&H00FF0000&
next i