Underc0de

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 11:30:30 AM

Título: Como cambiar de color una columna de MSFlexgrid
Publicado por: ANTRAX en Julio 26, 2010, 11:30:30 AM
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) [Seleccionar]
  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