Underc0de - Hacking y seguridad informática

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: Visual Basic
  1.   Public Sub MSFlexGridColors(ColorGrid As MSFlexGrid, R As  Integer, G As Integer, B As Integer)
  2.  
  3.         For  j = 0 To ColorGrid.Cols - 1
  4.  
  5.                 For  i = 1 To ColorGrid.Rows - 1
  6.  
  7.                          If i / 2 <> Int(i / 2) Then
  8.  
  9.                                  ColorGrid.Col = j
  10.  
  11.                                  ColorGrid.Row = i
  12.  
  13.                                  ColorGrid.CellBackColor = RGB(R, G, B)
  14.  
  15.                          End If
  16.  
  17.                 Next  i
  18.  
  19.          Next j
  20.  
  21.   End Sub