elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: [Encuesta] ¿Qué editor de código utilizas? (2014)    


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  ayuda vb6
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda vb6  (Leído 646 veces)
ime

Desconectado Desconectado

Mensajes: 71


Ver Perfil
ayuda vb6
« en: 19 Febrero 2013, 19:55 »

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.


En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: ayuda vb6
« Respuesta #1 en: 19 Febrero 2013, 21:38 »

El titulo debería ser mas descriptivo.  :¬¬
Hay mucho material en google sobre el tema.


En línea

ime

Desconectado Desconectado

Mensajes: 71


Ver Perfil
Re: ayuda vb6
« Respuesta #2 en: 19 Febrero 2013, 21:59 »

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
En línea

ime

Desconectado Desconectado

Mensajes: 71


Ver Perfil
Re: ayuda vb6
« Respuesta #3 en: 20 Febrero 2013, 17:47 »

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

En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: ayuda vb6
« Respuesta #4 en: 20 Febrero 2013, 22:33 »

bueno vamos a darte una manito  :rolleyes:

podrías hacerlo así.

Código
  1. Dim i As Long
  2. 'MsgBox (flex.Rows) numero de filas
  3. 'MsgBox flex.TextMatrix(1, 2) tipo matriz
  4. For i = 1 To flex.Rows - 1
  5. Debug.Print flex.TextMatrix(i, 2) 'leo siempre en la columna 2 y respectivamente con I
  6. If flex.TextMatrix(i, 2) = "SOS" Then ' si quieres pintar toda la fila solo haces el inverso.
  7. flex.Col = 2
  8. flex.Row = i
  9. flex.CellBackColor = vbRed
  10. End If
  11. Next i

saludos
« Última modificación: 20 Febrero 2013, 22:44 por Danyfirex » En línea

ime

Desconectado Desconectado

Mensajes: 71


Ver Perfil
Re: ayuda vb6
« Respuesta #5 en: 20 Febrero 2013, 22:57 »

gracias amigo, saludos para ti gracias por tu ayuda.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.19 | SMF © 2006-2008, Simple Machines