PREGUNTAS CONTESTADAS - Visual Basic

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