Visual Basic - Print Gráfica de barras

Life is soft - evento anual de software empresarial
   
Vista:

Print Gráfica de barras

Publicado por Leonel (5 intervenciones) el 13/02/2010 00:03:25
Tengo dos programas muy semejantes, en los que la salida imprime en un formulario un texto en un TextBox y dibuja una gráfica de columnas de diferente color en otra zona del formulario.

El problema es que en uno de los formularios la gráfica se dibuja perfectamente y en el otro no dibuja nada y no me reporta ningún error.
Para el código del segundo formulario, lo copié del primero (que sí funciona), y en el segundo sólo cambié los correspondientes nombres de los objetos y el número de barras a dibujar, las coordenadas son semejantes.

Ya revisé letra por letra la sintaxis. los parámetros de las coordenadas los expresa correctamente en un MsgBox. Las instrucciones anteriores y posteriores se realizan. Sólo el dibujo no lo hace.

El código es el siguiente:

'Gráfica en pantalla
For x = 1 To 5: TE(x) = SE(x) * 50: TD(x) = SD(x) * 50: CE(x) = 7200 - TE(x)
CD(x) = 7200 - TD(x): Next x 'Porcentajes y coordenadas
MsgBox "Gráficos:" & vbCrLf & "SE(1)= " & SE(1) & ", SE(2)= " & SE(2) & ", SE(3)= " & SE(3) & _
", SE(4)= " & SE(4) & ", SE(5)= " & SE(5) & vbCrLf & "SD(1)= " & SD(1) & ", SD(2)= " & SD(2) & _
", SD(3)= " & SD(3) & ", SD(4) = " & SD(4) & ", SD(5) = " & SD(5) & vbCrLf & ", CE(1)= " & CE(1) & _
", CE(2)= " & CE(2) & ", CE(3) = " & CE(3) & ", CE(4) = " & CE(4) & ", CE(5)= " & CE(5) & _
vbCrLf & "CD(1)= " & CD(1) & ", CD(2)= " & CD(2) & ", CD(3) = " & CD(3) & ", CD(4) = " & CD(4) & ", CD(5)= " & CD(5), vbOKOnly

FrmResolBLJr.Line (13300, 7200)-(13800, CE(1)), RGB(100, 50, 0), BF 'café
FrmResolBLJr.Line (13300, CE(1))-(13800, CD(1)), RGB(200, 110, 0), BF 'café claro
FrmResolBLJr.Line (14100, 7200)-(14600, CE(2)), RGB(80, 80, 0), BF 'gris verde
FrmResolBLJr.Line (14100, CE(2))-(14600, CD(2)), RGB(150, 150, 0), BF 'gris verde claro
FrmResolBLJr.Line (14900, 7200)-(15200, CE(3)), RGB(40, 70, 70), BF 'acero
FrmResolBLJr.Line (14900, CE(3))-(15200, CD(3)), RGB(70, 140, 140), BF 'acero claro
FrmResolBLJr.Line (15700, 7200)-(16000, CE(4)), RGB(170, 30, 0), BF 'rojo
FrmResolBLJr.Line (15700, CE(4))-(16000, CD(4)), RGB(255, 70, 40), BF 'rojo claro
FrmResolBLJr.Line (16500, 7200)-(16800, CE(5)), RGB(0, 0, 100), BF 'azul
FrmResolBLJr.Line (16500, CE(5))-(16800, CD(5)), RGB(0, 80, 255), BF 'azul claro
FrmResolBLJr.Line (14000, 7200)-(14600, 3200), RGB(0, 0, 0), BF

FrmResolBLJr.Label15.Caption = " Débil " & Format$(SD(1), "###") & Space(13) & Format$(SD(2), "###") & _
Space(13) & Format$(SD(3), "###") & Space(13) & Format$(SD(4), "###") & Space(13) & Format$(SD(5), "###")
FrmResolBLJr.Label14.Caption = "Estable " & Format(SE(1), "###") & Space(13) & Format(SE(2), "###") & _
Space(13) & Format(SE(3), "###") & Space(13) & Format(SE(4), "###") & Space(13) & Format(SE(5), "###")

Agradezco su ayuda

Leonel
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