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
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


0