Sección de códigos , trucos y ejemplos para visual basic

171 - Propiedad CellForeColor del control Flexgrid

Ejemplo del uso de la propiedad CellForeColor del control Flexgrid para poder colorear y remarcar el texto de las celdas.

El ejemplo, agrega algunas filas y cada ves que se presiona un botón se rellena con valores aleatorios desde el 1 hasta el 100. Luego se realiza un bucle por las filas, y los valores que son menores a 15, se remarcan con el color Rojo, si no, el color del texto de la celda queda en color negro.

Nota: Este ejemplo, por decir uno, puede ser útil para remarcar y resaltar valores en las celdas del FlexGrid, donde el Stock de un producto se encuentra por debajo del StockMínimo, o cualquier otro dato que se necesite.

Captura de pantalla

Colocar para el ejemplo

un Control MsFlexgrid llamado MSFlexGrid1
un Command1

Código fuente en un formulario :

Option Explicit ' \\ Declaraciones Apis ( para el manifest y los temas de windows) ' ------------------------------------------------------------------------------------------ Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () Private Sub Command1_Click() Dim Fila As Integer Dim Columna As Integer With MSFlexGrid1 ' -- Agregar filas al Flexgrid .Rows = 500 ' -- Agregar una Columna .Cols = 1 .FixedCols = 0 .AllowUserResizing = flexResizeColumns .Redraw = False .FormatString = "Gastos" Randomize ' -- Agregar valores aleatorios como máximo de 100 For Fila = 1 To .Rows - 1 .TextMatrix(Fila, 0) = FormatCurrency(Int(((100 + 1) * Rnd) + 1), 2) Next ' -- Recorre todas las filas y las celdas menores a 15 las colorea _ ' -- en color Rojo, si no en color Azul For Fila = 1 To .Rows - 1 .Col = 0 .Row = Fila If .Text < 15 Then ' -- Celda del flexgrid en color Rojo .CellForeColor = vbRed Else ' -- Celda Negra .CellForeColor = vbBlack End If Next Fila .ColWidth(0) = 1500 .Redraw = True End With End Sub Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub ' \\ -- Inicio Private Sub Form_Load() Command1.Caption = "Cargar valores" End Sub

Buscar en Recursos vb