formulario estrella

Mis Respetos...

Que Arrecho, yo reprobe esa clase de trigonometría.

Saludos
Luis Cisneros

Te confieso que estoy un poco soñoliento como para

dibujar la

estrella, pero te paso la forma de hacer un formulario

con forma de

triangulo.

Nada que no se pueda hacer con un poco de trigonometria:

Function Estrella( _
ByVal puntas As Integer, _
ByVal radioMayor As Integer, _
ByVal radioMenor As Integer, _
ByVal angulo As Single) As Drawing2D.GraphicsPath

puntas *= 2

Dim transform As New Drawing2D.Matrix
Dim puntos(puntas - 1) As Point
Dim separacion As Double = 2 * Math.PI / puntas

For i As Integer = 0 To puntas - 1
If i Mod 2 = 0 Then
puntos(i) = New Point(radioMayor + CInt

(Math.Cos(i * separacion)

* radioMenor), _
radioMayor + CInt

(Math.Sin(i * separacion)

* radioMenor))
Else
puntos(i) = New Point(radioMayor + CInt

(Math.Cos(i * separacion)

* radioMayor), _
radioMayor + CInt

(Math.Sin(i * separacion)

* radioMayor))
End If
Next

transform.RotateAt(angulo, New PointF(radioMayor,

radioMayor))

Estrella = New Drawing2D.GraphicsPath
Estrella.AddPolygon(puntos)
Estrella.Transform(transform)

End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo


.