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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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 10 filas y cada ves que se presiona un Command1 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.

Colocar para el ejemplo

un Control MsFlexgrid llamado MSFlexGrid1
un Command1

Código fuente en un formulario :

Option Explicit Private Sub Command1_Click() Dim Fila As Integer, Columna As Integer With MSFlexGrid1 'Agrega 11 filas al Flexgrid .Rows = 11 'una Columna .Cols = 1 .FixedCols = 0 'Agrega valores aleatorios como máximo de 100 For Fila = 1 To 10 .TextMatrix(Fila, 0) = Int(((100 + 1) * Rnd) + 1) Next End With 'Recorre todas las filas y las celdas menores a 15 las colorea _ en color Rojo, si no en color Azul For Fila = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0 MSFlexGrid1.Row = Fila If MSFlexGrid1.Text < 15 Then ' celda del flexgrid en color Rojo MSFlexGrid1.CellForeColor = vbRed Else 'celda Negra MSFlexGrid1.CellForeColor = vbBlack End If Next Fila End Sub

Buscar en Recursos vb