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

207 - Propiedad CellForecolor del control FlexGrid

Ejemplo que muestra como resaltar con un color, valores en un control FlexGrid utilizando la propiedad CellForeColor de la grilla

El mismo se conecta mediante un Data a una base de datos que tiene una tabla llamada Produtos. Esta tabla tiene dos campos, una NombreProducto y otra Stock

Al presionar un command1, se recorre en un For-Next las filas de la grilla, y de acuerdo al valor introducido en Text1, cambiará el color de la celda usando la propiedad CellForecolor.

vista del formulario con el flexgrid que visualiza los datos que estén por debajo de un valor de color color rojo

Para el ejemplo enlazar el control MsFlexGrid a un control Data en la propiedad DataSource.

En el FormLoad especificar el nombre y ruta de la base de datos y el nombre de la tabla.

Nota: si se va a utilizar para remarcar valores de tipo Currency u otro formato, cambiar la siguiente línea:

If CDbl(MsFlexGrid.Text) < CDbl(Text1) Then

Código fuente en un formulario:

Option Explicit Private Sub Command1_Click() Dim Fila As Integer 'error al no ingrsar un número If Not IsNumeric(Text1) Then MsgBox "Debe ingresar un número", vbInformation, "Error" Exit Sub End If With MSFlexGrid1 ' Recorre las filas For Fila = 1 To MSFlexGrid1.Rows - 1 'Indica la fila y la columna .Row = Fila .Col = 2 'si el valor es menor a 10 se resalta en color rojo _ mediante la propiedad CellForeColor de la celda actual If CDbl(.Text) < CDbl(Text1) Then .CellForeColor = &HFF& End If .Col = 2 Next .ColWidth(0) = 0 .ColWidth(1) = 2000 .ColWidth(2) = 1500 End With End Sub Private Sub Form_Load() 'Cambiar acá la base de datos Data1.DatabaseName = App.Path & "\bd1.mdb" 'Nombre de la tabla para enlazar el Data Data1.RecordSource = "Productos" Me.Caption = " Ejemplo para resaltar valores en MsFlexGrid " End Sub

Recursos Visual basic 6.0 - enlaces relacionados

Cambiar color de items en un Listview

Buscar en Recursos vb