• Jueves 28 de Marzo de 2024, 12:40

Autor Tema:  Aplicaciones graficas en VB.net  (Leído 2469 veces)

Gmo

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Aplicaciones graficas en VB.net
« en: Viernes 10 de Junio de 2011, 22:28 »
0
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:

Código: vb.net
  1. Option Explicit On
  2. Option Strict On
  3. Imports System.Drawing
  4.  
  5. Public Class Form1
  6.  
  7. Dim oPen As Pen = New Pen(Color.Chocolate, 2)
  8. Dim oPic As Graphics
  9. Dim cptos() As PointF
  10.  
  11. Private Sub Button1_Click(ByVal sender As System.Object, _
  12. ByVal e As System.EventArgs) Handles Button1.Click
  13.  
  14. oPic = PictureBox1.CreateGraphics
  15. Call Datos(cptos)
  16. oPic.DrawPolygon(oPen, cptos)
  17. End sub
  18.  
  19. Private Sub Datos(ByVal cptos() As PointF)
  20.  
  21. Dim D0 As Integer = 40 ' Lado 1
  22. Dim D1 As Integer = 30 ' Lado 2
  23. Dim D2 As Integer = 50 ' Lado 3
  24.  
  25. Dim Px1 As Double = 0 : Dim Py1 As Double = 0
  26. Dim Px2 As Double = D0 : Dim Py2 As Double = 0
  27. Dim Px3 As Double = Px1 : Dim Py3 As Double = Py2 + D1
  28.  
  29. Dim P1 As New PointF(CSng(Px1), CSng(Py1))
  30. Dim P2 As New PointF(CSng(Px2), CSng(Py2))
  31. Dim P3 As New PointF(CSng(Px3), CSng(Py3))
  32.  
  33. cptos = {P1, P2, P3}
  34.  
  35. End sub
  36.  
  37. End class
  38.  
  39.  

Mil gracias de antemano por la colaboracion
 

pililo

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re: Aplicaciones graficas en VB.net
« Respuesta #1 en: Viernes 24 de Junio de 2011, 23:36 »
0
Código: vb.net
  1.  
  2.  
  3. Option Explicit On
  4. Option Strict On
  5. Imports System.Drawing
  6.  
  7. Public Class Form2
  8.  
  9.     Dim oPen As Pen = New Pen(Color.Black, 4)
  10.     Dim oPic As Graphics
  11.     Dim cptos() As PointF
  12.  
  13.     Private Sub Button1_Click(ByVal sender As System.Object, _
  14.     ByVal e As System.EventArgs) Handles Button1.Click
  15.  
  16.         oPic = PictureBox1.CreateGraphics
  17.         Call Datos(cptos)
  18.         oPic.DrawPolygon(oPen, cptos)
  19.  
  20.     End Sub
  21.  
  22.     Private Sub Datos(ByRef cptos() As PointF)   'notar el uso de ByRef
  23.  
  24.         Dim D0 As Integer = 40 ' Lado 1
  25.         Dim D1 As Integer = 30 ' Lado 2
  26.         Dim D2 As Integer = 50 ' Lado 3
  27.  
  28.         Dim Px1 As Double = 0 : Dim Py1 As Double = 0
  29.         Dim Px2 As Double = D0 : Dim Py2 As Double = 0
  30.         Dim Px3 As Double = Px1 : Dim Py3 As Double = Py2 + D1
  31.  
  32.         Dim P1 As New PointF(CSng(Px1), CSng(Py1))
  33.         Dim P2 As New PointF(CSng(Px2), CSng(Py2))
  34.         Dim P3 As New PointF(CSng(Px3), CSng(Py3))
  35.  
  36.         Dim cptos2() As PointF = {P1, P2, P3}  'aqui me daba error si no indicaba Dim
  37.         cptos = cptos2
  38.  
  39.     End Sub
  40.  
  41. End Class
  42.  
  43.  
  44.  
  45.  
  46.