Mensajes

esta es la imagen solo me selecciona el registro que vale SOS, quiero que me seleccione toda la fila que vale SOS.

este es el codigo, utilizo 2 timer para parpadear la fila que vale SOS

Private Sub Timer4_Timer()
Dim i
Dim j

For i = 1 To flex.Rows - 1
            For j = 1 To flex.Cols - 1
                flex.Row = i
                flex.Col = j
               
                If flex.Text = "SOS" Then
                 
                     flex.CellBackColor = vbRed
                End If
            Next j
        Next i
    Timer4.Enabled = False
    Timer5.Enabled = True
    Timer2.Enabled = True
End Sub


Private Sub Timer5_Timer()

    For s = 1 To flex.Cols - 1
    For c = 1 To flex.Rows - 1
   
        flex.Row = c
        flex.Col = s
    If flex.Text = "SOS" Then
    flex.CellBackColor = vbYellow
    End If
       Next c
    Next s
    Timer4.Enabled = True
    Timer5.Enabled = False
    Timer2.Enabled = True
   
End Sub

Amigos tendrán algún ejemplo de código que pinte la fila de un MSHFlexigrid donde se encuentre el puntero del mouse. gracias de antemano la verdad lo necesito en VB6. saludos

Hola amigos tengo este código usando el MouseMove, el problema es que pinta la fila pero dando click al registro de MSHFlexiGrid, como le haría para que cuando mueva el mouse me vaya pintando la fila donde se encuentre el puntero. ayuda porfa.



Private Sub flex_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
 Dim z
 
   For z = 0 To flex.Cols - 1
   flex.Col = z
   flex.CellBackColor = RGB(140, 198, 255)
   Next z
End Sub

With flex
For i = 1 To flex.Rows - 1
            For j = 1 To flex.Cols - 1
                flex.Row = i
                flex.Col = j
                If .Text = "1" Then
                    flex.CellBackColor = &HC0FFC0
                Else
                    'flex.CellBackColor = &H80FF80
                End If
            Next j
        Next i
    End With

Este codigo estoy utilizando pero no me pinta toda la fila solo me pinta una celda como hacer para que pinte todas las filas que equivalen a uno...Gracias

Hola amigos una ayuda

como puedo pintar las filas de un MSHFlexGrid en vb6 validando una base de datos
por ejemplo  pintar todos lo que tengan un valor a 1 digamos

y que todas la filas se pinten solo los que tengan un uno.




ademas me gustaria saber como pintar filas de MSHFlexGrid cuando voy pasando el mouse. GRACIAS amigos un saludos.

Gracias amigo esta correcto pero solo parpadea la fila primera, digamos si hay 8 filas
que todos los que tenga un valor 1 que parpadeen y los que no, que no hagan nada.

en pocas palabras que parpadee en las demas filas que tengan Bandera==1.  como le aria?

Gracias amigo por tu ayuda te lo agradezco mucho. Hay lo voy a corregir.

ya lo cheque amigo es correcto el codigo el problema esta que estoy usando php y al momento de llamar la funcion  dentro del echo me sale esto:

window.parpadeo(); id="cel" esta tomando los valores que tiene TR

<tr id="cel" <?php if($valor['Bandera'] == 1) echo '<script type="text/javascript">window.parpadeo();</script>';

Gracias amigo, te lo agradezco a lo voy a checar aurita y te comento saludos.

lo que pasa quiero llamar la funcion js desde TR por eso lo aplico dentro del TR para que las filas que sean iguales a 1 sean pintadas y parpaden.