Problema con Zoom
Publicado por alberto (81 intervenciones) el 08/09/2007 18:32:10
Estoy realizando un programa para visualizar gráficos vectoriales, que se cargan de un archivo, pero se debe hacer un zoom sobre el gráfico, y si aplico (ver código) una transformación sobre el objeto gráfico, no solo realiza el Zoom sobre el dibujo sino que además el grosor del perímetro tambien se incrementa.
Estoy usando VBNET 2005.
¿Hay algún error en el código?, ¿Que se debe hacer para solucionar este problema?
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim Puntos(3) As PointF
Puntos(0) = New PointF(10, 10)
Puntos(1) = New PointF(20, 10)
Puntos(2) = New PointF(20, 20)
Puntos(3) = New PointF(10, 20)
'Si ejecutamos la siguiente sentencia además de realizar un Zoom sobre
'el poligono el perímetro aumenta también su grosor????
e.Graphics.Transform = New System.Drawing.Drawing2D.Matrix(5, 0, _
0, 5, _
0, 0)
e.Graphics.DrawPolygon(Pens.Black, Puntos)
End Sub
Gracias.
Estoy usando VBNET 2005.
¿Hay algún error en el código?, ¿Que se debe hacer para solucionar este problema?
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim Puntos(3) As PointF
Puntos(0) = New PointF(10, 10)
Puntos(1) = New PointF(20, 10)
Puntos(2) = New PointF(20, 20)
Puntos(3) = New PointF(10, 20)
'Si ejecutamos la siguiente sentencia además de realizar un Zoom sobre
'el poligono el perímetro aumenta también su grosor????
e.Graphics.Transform = New System.Drawing.Drawing2D.Matrix(5, 0, _
0, 5, _
0, 0)
e.Graphics.DrawPolygon(Pens.Black, Puntos)
End Sub
Gracias.
Valora esta pregunta
0