Como cambiar de color una columna de MSFlexgrid

Iniciado por ANTRAX, Julio 26, 2010, 11:30:30 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Julio 26, 2010, 11:30:30 AM Ultima modificación: Julio 08, 2011, 10:26:53 AM por ANTRAX
rutina que le permite cambiar el color de las columnas de un MsFlexGrid
Hay que pasarle el nombre del MSFLEXGRID y el valor RGB de color
esta rutinas se tiene que colocar en un BAS

Código: vb
  Public Sub MSFlexGridColors(ColorGrid As MSFlexGrid, R As  Integer, G As Integer, B As Integer)

  For  j = 0 To ColorGrid.Cols - 1

  For  i = 1 To ColorGrid.Rows - 1

  If i / 2 <> Int(i / 2) Then

  ColorGrid.Col = j

  ColorGrid.Row = i

  ColorGrid.CellBackColor = RGB(R, G, B)

  End If

  Next  i

  Next j

  End Sub