triangulo
Publicado por Francisco (162 intervenciones) el 09/01/2013 19:44:54
estoy intentando pintar un triangulo con el vertice hacia abajo y no hay
manera de conseguirlo
hay alguien que me pueda echar una mano
gracias
Imports System.Drawing.Drawing2D
Dim grafico As New GraphicsPath
Private Sub arrriba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' puinta arriba
Dim oPuntos(2) As Point
oPuntos(0) = New Point(100, 0) 'parte superior primera linea indica el valor horizontal
oPuntos(1) = New Point(0, 200) 'altura del triangulo
oPuntos(2) = New Point(200, 200) 'base del triangulo
grafico2.AddPolygon(oPuntos)
Button5.Region = New Region(grafico2)
End Sub
aqui pinta el triangulo pero on el vertice hacia arriba pero como seria con el vertice hacia abajo
Gracias por la ayuda
manera de conseguirlo
hay alguien que me pueda echar una mano
gracias
Imports System.Drawing.Drawing2D
Dim grafico As New GraphicsPath
Private Sub arrriba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' puinta arriba
Dim oPuntos(2) As Point
oPuntos(0) = New Point(100, 0) 'parte superior primera linea indica el valor horizontal
oPuntos(1) = New Point(0, 200) 'altura del triangulo
oPuntos(2) = New Point(200, 200) 'base del triangulo
grafico2.AddPolygon(oPuntos)
Button5.Region = New Region(grafico2)
End Sub
aqui pinta el triangulo pero on el vertice hacia arriba pero como seria con el vertice hacia abajo
Gracias por la ayuda
Valora esta pregunta


1