Visual Basic - semafo de criticidad

Life is soft - evento anual de software empresarial
   
Vista:

semafo de criticidad

Publicado por Mariano (41 intervenciones) el 26/02/2015 19:17:21
Hola es en visual basic 6.0


tengo un combo box con alta media y baja
cada uno tiene una color
Alta = rojo
Media = Amarillo
baja = verde
y después cuando lo valla a buscar en otro formulario que tiene un datagrid quiero que en la columna que me aparezca el grado de criticidad me aparezca pintado con dichos colores

Aguardo comentarios
GRacias


formulario1
formulario2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

semafo de criticidad

Publicado por Andres Leonardo (698 intervenciones) el 26/02/2015 20:01:58
Como estas .. para este tipo de cosas yo utilizaria un MSFLEXGRID que permite muchas mas cosas .. entre ellas dar un color ...

Espero que te ayude esta guia, en todo caso por ahi tengo un ejemplo ... me avisas si puedes cambiar el grid te lo paso.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

semafo de criticidad

Publicado por Mariano (41 intervenciones) el 02/03/2015 18:08:56
Hola, si puedo cambiar al msflexgrid, agradecería mucho tu ayuda

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Megamind

semafo de criticidad

Publicado por Megamind (121 intervenciones) el 02/03/2015 19:29:57
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Const Color1 As Long = &HFF&
Const Color2 As Long = &HFFFF&
Const Color3 As Long = &HFF00&
 
Private Sub Command1_Click()
  Dim Columna As Long, Fila As Long
  Dim Color As Long
 'Color inicial de la fila
  Color = Color1
 
  With MSFlexGrid1
   FixedCols = 0
  'Deshabilita el repintado del control para agilizar
  .Redraw = False
  'Recorre las filas
  For Fila = 1 To .Rows - 1
  'Establecemos la Fila actual del flex
  .Row = Fila
  'Intercambia el color para cada fila
  'If Color = Color1 Then
   Color = Color2
  'Else
  'Color = Color1
  'End If
  'Recorre por columna y le aplica el color a la celda indicada de la fila actual
  'For Columna = 0 To .Cols - 1
  .Col = 2 'Columna
  .CellBackColor = Color
  'Next
   Next
  'Reestablece la propiedad Redraw
  .Redraw = True
  End With
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

semafo de criticidad

Publicado por Mariano (41 intervenciones) el 03/03/2015 15:15:41
Hola

Gracias por los aportes
ya casi lo tengo pero falta algo adjunto el print
Remplace el MSFlexGrid por MSHFlexGrid1 y me funciono mas o menos

En la fila 7 ya deja de tener efecto lo realizado

Mil disculpas y muchas gracias por sus aportes

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Megamind

semafo de criticidad

Publicado por Megamind (121 intervenciones) el 03/03/2015 16:51:28
Ya veo, el problema es que en algunas celdas, la criticidad empieza en mayúsculas y en otras no
Así pasa el contenido a mayúsculas antes de comparar, por ejemplo

1
2
3
4
5
6
7
If UCase(MSFlexGrid1.TextMatrix(.Row, 2)) = "ALTA" Then
     Color = Color1
  ElseIf UCase(MSFlexGrid1.TextMatrix(.Row, 2)) = "MEDIA" Then
     Color = Color2
  ElseIf UCase(MSFlexGrid1.TextMatrix(.Row, 2)) = "BAJA" Then
     Color = Color3
   End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

semafo de criticidad

Publicado por Mariano (41 intervenciones) el 04/03/2015 14:04:56
Estimados

MUCHAS GRACIAS

SALUDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar