Volver al Inicio Microsoft Student Tech Club: Universidad Libre

Rotación 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 el lápiz para dibujar la figura. Le asignamos un color y un grosor de punta.
Dim lapiz As New Pen(Color.LightGreen, 4)

' creamos un rectángulo el cual vamos a rotar.
Dim rectangulo As New Rectangle(100, 100, 90, 50)

'dibujamos la figura la cual vamos a rotar
objGrafico.DrawRectangle(lapiz, 120, 50, 80, 40)

'aplicamos la función "RotateTransform" y recibe como parámetro un decimal
'este numero representa el angulo que va a rotar
objGrafico.RotateTransform(20)

'dibujamos la figura con la rotación aplicada
objGrafico.DrawRectangle(lapiz, 120, 50, 80, 40)

 

Volver al Inicio Célula Microsoft. Universidad Libre