Volver al Inicio Microsoft Student Tech Club: Universidad Libre

Escalamiento de figuras en Visual Basic .NET 2008

Este es el resultado



El código es el siguiente

OJO, debe importar una librería primero

Imports System.Drawing.Drawing2D

Y este es el código que va dentro del paint

'Creamos un objeto que nos sirve para dibujar los gráficos
Dim objGrafico As Graphics = e.Graphics

'creamos los objetos para dibujar un elipse
Dim lapiz As New Pen(Color.Blue, 4)

'dibujamos el elipse y el rectángulo que vamos a ampliar o reducir
objGrafico.DrawEllipse(lapiz, 50, 50, 80, 30)
objGrafico.DrawRectangle(lapiz, 200, 50, 80, 30)

'llamamos a la función "ScaleTransform" la cual recibe 2 valores decimales
'el primero afecta el eje X y el segundo afecta el eje Y
'aplicamos la escala
objGrafico.ScaleTransform(0.5, 0.8)

' dibujamos el objeto al que le aplicamos la escala.
objGrafico.DrawEllipse(lapiz, 100, 150, 80, 30)

'aplicamos la escala
objGrafico.ScaleTransform(2, 4)

' dibujamos el objeto al que le aplicamos escala.
objGrafico.DrawRectangle(lapiz, 200, 30, 80, 30)

 

Volver al Inicio Célula Microsoft. Universidad Libre