colocar color a la celda de un msflegrid - VB-MUNDO

Lordouc · #1 (**permalink**) 10-01-2007, 19:09:28

hola a todos como estas bueno tengo el siguiente problema estoy realizando en un msflexgrid un ingreso de calificaciones de alumnos de un colegio ,bueno mi problema pasa por lo siguiente es que quiero que me muestre todas las notas de los alumnos que sea insufuciente con color rojo el problema me sucede cuando ago la consulta para cargar el listado de alumnos en la grilla no se como dejar las casillas en rojo segun corresponda con la calificacion pero si lo e podido realizar mientras ingreso la notas no tengo ningun problema pero al hacer la consulta no logro dejarlas en rojo

lo que habia pensado es hacer esto dentro del ciclo en donde lleno la grilla y darle color a la celga segun la posision en que este pero no se como hacerlo lo e intentado hacer pero no me funca
agradeceria mucho la ayuda

saluda atte
oscar
santiago de chile

J.M.Movilla · #2 (**permalink**) 10-01-2007, 19:42:10

If MSFlexGrid1.Text < 5 Then MSFlexGrid1.CellBackColor = vbRed

jrios03 · #3 (**permalink**) 10-01-2007, 19:54:23

Hola... lo que te recomiendo que hagas es algo así:

* Primero cargas las Notas de los alumnos en la Grilla. (Todos los datos)
* Luego de tener llena la Grilla con los datos haces una búsqueda dentro de otro ciclo... se supone que la búsqueda la haces por Lines (Row)...
* Cuando encuentres la Linea que contiene una nota insuficiente, entras a otro ciclo, este ciclo debería ser algo así:

Código:

For i = 1 To MSFlexGrid.Rows - 1
  MSFlexGrid.Col = i
  MSFlexGrid.CellBackColor = vbRed
Next i

* Este código debería prodecer cada vez que encuentres una Nota Deficiente... y lo que hace es marcar toda la Linea en Rojo...

Si quieres cambiar el Color de la Letra, sólo debes agregar antes del Next i esta Linea:

Código:

MSFlexGrid1.CellForeColor = vbWhite

Esto es para que se destaque aún más...

Espero que te sirva de ayuda...

Saludos... :smt004 :smt004 :smt004

zape · #4 (**permalink**) 10-01-2007, 20:27:58

Excelente aporte...

Lordouc · #5 (**permalink**) 11-01-2007, 02:23:22

me funciona como me dijiste la unica lata es que solo me sale la primera linea pero ya tengo la base le echare una revisada gracias se agradece muchismo

se despide oscar

jrios03 · #6 (**permalink**) 11-01-2007, 02:58:28

Disculpa... estuve errado en el POST...

Debería ser algo así:

Código:

Dim i As Integer
Dim j As Integer
Dim X As Integer
'Supongamos que X le damos el valor de la columna que muestra la Nota, en este caso diremos que es la Columna 5
X = 5
For i = 1 To Grilla.Rows - 1
  If Val(Grilla.TextMatrix(i, X)) < 4 Then
    For j = 1 To Grilla.Cols - 1
      Grilla.Row = i
      Grilla.Col = j
      Grilla.CellBackColor = vbRed
      Grilla.CellForeColor = vbWhite
    Next j
  End If
Next i

Con esto debería funcionarte en un 100%... si no te funciona... te pido disculpas... pero no tengo el VB instalado en este PC...

Saludos... y suerte... :smt004 :smt004 :smt004 :smt004 :smt004

Lordouc · #7 (**permalink**) 12-01-2007, 02:11:35

hola muchas gracias por tu ayuda me sirvio muchisimo se agracede mucho

saluda atte
Oscar