Saludos a toda la Comunidad, S.O.S
Pido la colaboracion para que me ayuden a depurar el siguiente codigo, hasta ahora empiezo a meter en el cuento del .NET La idea es que en un Picturebox, poder graficar una figura vectorial, al dar Click en un control Button, y obteniendo la informacion del procedimiento DATOS().
No estoy seguro de los parametros para la llamada del procedimiento DATOS
El Codigo es el siguiente:
Option Explicit On
Option Strict On
Imports System.Drawing
Public Class Form1
Dim oPen As Pen = New Pen(Color.Chocolate, 2)
Dim oPic As Graphics
Dim cptos() As PointF
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
oPic = PictureBox1.CreateGraphics
Call Datos(cptos)
oPic.DrawPolygon(oPen, cptos)
End sub
Private Sub Datos(ByVal cptos() As PointF)
Dim D0 As Integer = 40 ' Lado 1
Dim D1 As Integer = 30 ' Lado 2
Dim D2 As Integer = 50 ' Lado 3
Dim Px1 As Double = 0 : Dim Py1 As Double = 0
Dim Px2 As Double = D0 : Dim Py2 As Double = 0
Dim Px3 As Double = Px1 : Dim Py3 As Double = Py2 + D1
Dim P1 As New PointF(CSng(Px1), CSng(Py1))
Dim P2 As New PointF(CSng(Px2), CSng(Py2))
Dim P3 As New PointF(CSng(Px3), CSng(Py3))
cptos = {P1, P2, P3}
End sub
End class
Mil gracias de antemano por la colaboracion
Mostrar Mensajes
