SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Gmo en Viernes 10 de Junio de 2011, 22:28

Título: Aplicaciones graficas en VB.net
Publicado por: Gmo en Viernes 10 de Junio de 2011, 22:28

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
 

Título: Re: Aplicaciones graficas en VB.net
Publicado por: pililo en Viernes 24 de Junio de 2011, 23:36

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.