Color de lineas y columnas en msflexgrid

[XYON126]

Hola!

Tengo una consultilla, he encontrado un codigo en el cual me especifica el color de las columnas y de las filas de un msflexgrid (siempre fijos), en cambio yo lo que necesito es que la ultima fila los colores de las celdas no sean todos iguales sino alternativos ejemplo por celda .: blanco, rosa, blanco, rosa, blanco, rosa, etc. y este codigo lo unico que me hace es que todas las filas sean o amarillo o blanco de color unico (No como un tablero de ajedrez solo la ultima fila) Ah! Tengo un número de filas y columnas fijo siendo 7 y 7. ¿Como podria variarlo? por otro lado os remito el codigo pero podriais explicarme lo que hace y donde pues si lo copio nada mas lo unico que realizo es copy/paste y no aprendo.

Muchas gracias por adelantado.

codigo:

Código vb:

Option Explicit
 
' ----------------------------------------------------------------------------------------------
  ' \\ -- Descripción : Alternar color por Filas en Flexgrid
  '    -- Autor       : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/
  ' ----------------------------------------------------------------------------------------------
  ' ----------------------------------------------------------------------------------------------
 
  Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
  Private Declare Sub InitCommonControls Lib "Comctl32" ()
' ----------------------------------------------------------------------------------------------
  ' \\ -- Descripción : Alternar color por Filas en Flexgrid
  '    -- Autor       : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/
  ' ----------------------------------------------------------------------------------------------
  ' ----------------------------------------------------------------------------------------------
 
  Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
  Private Declare Sub InitCommonControls Lib "Comctl32" ()
 
  
  
' --------------------------------------------------------------------------------------------
' \\ -- Función para Colorear por Filas
  ' --------------------------------------------------------------------------------------------
  Private Sub pvSetColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
      Dim iRow            As Long
      Dim iCol            As Integer
      Dim lCurrentColor   As Long
 
      With objFlexgrid
      ' -- Desahbilitar el repintado del control para agilizar el trabajo
          .Redraw = False
          .BackColor = lColor1
          ' -- Recorrer las filas
          For iRow = 0 To .Rows - 1 Step 2
              ' -- Establecer la Fila actual del flex
              .Row = iRow
              ' -- Recorre por columna y le aplica el color a la celda indicada de la fila actual
              For iCol = 0 To .Cols - 1
                  .Col = iCol
                  .CellBackColor = lColor2
              Next
          Next
          ' -- Reestablecer la propiedad Redraw para poder refrescar el control
          .Redraw = True
      End With
  End Sub
  
  
' --------------------------------------------------------------------------------------------
' \\ -- Función para Colorear por Filas
  ' --------------------------------------------------------------------------------------------
  Private Sub pvSetColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
      Dim iRow            As Long
      Dim iCol            As Integer
      Dim lCurrentColor   As Long
 
      With objFlexgrid
      ' -- Desahbilitar el repintado del control para agilizar el trabajo
          .Redraw = False
          .BackColor = lColor1
          ' -- Recorrer las filas
          For iRow = 0 To .Rows - 1 Step 2
              ' -- Establecer la Fila actual del flex
              .Row = iRow
              ' -- Recorre por columna y le aplica el color a la celda indicada de la fila actual
              For iCol = 0 To .Cols - 1
                  .Col = iCol
                  .CellBackColor = lColor2
              Next
          Next
          ' -- Reestablecer la propiedad Redraw para poder refrescar el control
          .Redraw = True
      End With
  End Sub
  Private Sub pvSetColors2(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
      Dim iRow            As Long
      Dim iCol            As Integer
      Dim lCurrentColor   As Long
 
      With objFlexgrid
      ' -- Desahbilitar el repintado del control para agilizar el trabajo
          .Redraw = False
          .BackColor = lColor1
                  .Row = 6
              ' -- Recorre por columna y le aplica el color a la celda indicada de la fila actual
              For iCol = 0 To .Cols - 1
                  .Col = iCol
                  .CellBackColor = lColor2
           Next
          ' -- Reestablecer la propiedad Redraw para poder refrescar el control
          .Redraw = True
      End With
  End Sub
 
Private Sub Form_Load()
 
Call pvSetColors(MSFlexGrid1, RGB(255, 255, 203), RGB(255, 255, 255))
 
semana_C = Format(Date, "WW")
lbl_nrsemana = semana_C
 
End Sub
 

[erbuson]

Lo único importante a tus efectos que hace esta rutina es colorear filas alternativas, por lo que intentaré explicarte como deberías hacerlo para que lo comprendas que es lo importante.

Primero, para colorear una celda, debe ser la celda activa y esto lo consigues asignando las propiedades .Row y .Col las propiedades adecuadas, por esto, con un doble For / Next puedes recorrer el MsFlexgrid

Código:

For Fila = 0 To Grid.Rows -1  
  ' Asignamos la Fila que vamos a procesar
  Grid.Row = Fila
  For Columna = 0 To Grid.Cols -1 
      ' Asignamos la Columa
      Grid.Col = Columna
       ' Ahora podemos asignarle el color que queramos
      Grid.CellBackColor = Verde
  Next
Next

En tu caso el doble bucle no es necesario ya que SOLO pretendes colorear la Ultima fila, o sea

Fila = Grid.Rows -1

Por tanto aunque si debes asignar la fila activa, te basta con el Bucle de Columnas.

Saludos


A partir de aqui es donde debe jugar tu imaginación con los resultados que quieras obtener, te lo podría poner aqui pero como tu mismo dices, si lo analizas un poco lo aprenderás.

[XYON126]

Muchas gracias erbunson, vamos a pelearnos con el codigo.

Pero ¿Que hacen estas lineas?

Codigo:

Código HTML:

 
  Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
  Private Declare Sub InitCommonControls Lib "Comctl32" ()

 

Gracias.



Un saludo

[seba123neo]

Hola, la api InitCommonControls hace que tu aplicación tenga los temas de XP...solo si tenes un MANIFEST dentro de la carpeta con el .exe, hay otro metodo que es embeber el MANIFEST dentro de un recurso...pero bueno...si tu aplicación no lleva los temas de XP sacaselo...aunque siempre queda mejor que uses los temas..

y la api SetErrorMod se usa para que si estas haciendo un programa con procesos que normalmente Crashean el visual basic...con esta api evitas que te salga el famoso cartelito de microsoft cuando ocurre un error fatal en la aplicación...pero como te digo solo es cuando haces Hooks o subclasificaciones...si tu aplicación no hace nada de eso se lo podes sacar tranquilamente...

saludos.

[XYON126]

Hola seba123neo!

Gracias por tu aportación pero no entiendo nada, piensa que llevo solo 2 semanas con VB y estoy en fase de aprendizaje total, necesito toda la información posteada para tontos o torpes , se lo que son los API,s pero no como se aplican, con que sentencia, etc. incluso si lo que comentas de lo del XP o si Crashea, pues ¿Cmo puedo saberlo? lo que si esta claro es que va ha correr en XP pero creo que estoy mezclando Huevos con gasolina, que no tiene que ver una cosa con la otra.

Un saludo

[erbuson]

Tienes mucha razón amigo Xyon, creo que si llevas 2 semanas, por ahora no te compliques la vida empezando la casa por el tejado.

Es mejor avanzar lentamente e ir aprendiendo que dar grandes zancadas y darte de morros contra problemas que aunque hoy pueden resultar difíciles para ti, poco a poco verás que vas vislumbrando la solución.

Animo y no desesperes si tu intención es llegar a entenderlo y comprenderlo.

Saludos