Visual Basic - Dibujar grafico en visual basic

Life is soft - evento anual de software empresarial
 
Vista:

Dibujar grafico en visual basic

Publicado por alberto (2 intervenciones) el 14/12/2008 20:47:46
Hola, tengo un proyecto en vb 2008. Tengo una ventana principal donde recojo los puntos que el usuario introduce para despues dibujar un triangulo. El problema que tengo es que quiero pintar este triangulo en otra ventana, que ya tiene el contenedor panel para dibujar. Este utlima ventana ya tiene la funcion Panel1_Paint donde pinta el triangulo. El problema es que no se como llamarla desde la otra ventana cuando le doy al boton aceptar.

Aqui os pongo el codigo.

Public Class Principal

Public valorP1X, valorP1Y, valorP2X, valorP2Y, valorP3X, valorP3Y As Integer

Private Sub Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aceptar.Click

valorP1X = P1X.Text
valorP1Y = P1Y.Text
valorP2X = P2X.Text
valorP2Y = P2Y.Text
valorP3X = P3X.Text
valorP3Y = P3Y.Text

End Sub

End Class

Public Class VentanaGraficos

Public Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Dim grafico As Graphics = e.Graphics
Dim p1 As Point
Dim p2 As Point
Dim p3 As Point
Dim punta As Pen
Dim varP1x, varP1y, varP2x, varP2y, varP3x, varP3y As Integer

varP1x = Principal.valorP1X
varP1y = Principal.valorP1Y
p1 = New Point(varP1x, varP1y)
varP2x = Principal.valorP2X
varP2y = Principal.valorP2Y
p2 = New Point(varP2x, varP2y)
varP3x = Principal.valorP3X
varP3y = Principal.valorP3Y
p3 = New Point(varP3x, varP3y)

MsgBox(varP1x)

punta = New Pen(Color.Aqua, 1) 'un ‘lapiz’ del color Aqua

grafico.DrawLine(punta, p1, p2) ' drawline(Pens.Azure,x1,y1,x2,y2)
End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder