Buenas,

He encontrado un codigo en VB6 que hace exactamente lo que yo necesito pero como no conozco VB.net no sé cómo modificarlo para poder aplicarlo en VB.net.

Me pueden ayudar a convertirlo?

El código en VB6 es el siguiente:

----------------------------------------------------------------------------------------------

Dim X1 As Long 'This Is The X Position Of The Last Line Drawn
Dim Y1 As Long 'This Is The Y Position Of The Last Line Drawn
Dim X2 As Long 'This Is The Start Mark Of The Box or Circle
Dim Y2 As Long 'This Is The Satrt Mark Of The Box or Circle
Private Sub Combo1_Click()
LblType.Caption = Combo1.Text
If Combo1.ListIndex = 1 Then Check1.Enabled = True Else Check1.Enabled = False
End Sub
Private Sub Command1_Click()
FrmMenu.Show vbModal, Me
End Sub
Private Sub Command2_Click()
Picture1.Picture = CaptureScreen
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
End Sub
Private Sub Form_Resize()
'Resize and Move Objects To Fit New Form Size...
On Error Resume Next
Frame1.Left = (Me.Width - Frame1.Width) / 2
Frame1.Top = Me.Height - (Frame1.Height + 480)
Picture1.Width = Me.Width - 360
Picture1.Height = Frame1.Top - 180
End Sub
Private Sub HScroll_Change(Index As Integer)
Shape1.BorderColor = RGB(HScroll(0).Value, HScroll(1).Value, HScroll(2).Value)
Shape1.FillColor = RGB(HScroll(0).Value, HScroll(1).Value, HScroll(2).Value)
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
X2 = X
Y2 = Y
'If Using Box or Circle Plot a Dot (PSet) to Mark The Begin of Either...
If LblType.Caption = "Box" Or LblType.Caption = "Circle" Then _
Picture1.PSet (X, Y), Shape1.FillColor
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
'Draw Continuous Line...
If LblType.Caption = "Continuous" Then
Picture1.Line (X1, Y1)-(X, Y), Shape1.FillColor
X1 = X: Y1 = Y
End If

'Draw Dots Using PSet...
If LblType.Caption = "PSet" Then
Picture1.PSet (X, Y), Shape1.FillColor
End If
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
X1 = 0
Y1 = 0
''Draw Box...
If LblType.Caption = "Box" Then
If Check1.Value = 0 Then
Picture1.Line (X2, Y2)-(X, Y), Shape1.FillColor, B
Else
Picture1.Line (X2, Y2)-(X, Y), Shape1.FillColor, BF
End If
End If
'
''Draw Circle...
If LblType.Caption = "Circle" Then
If X > X2 Then Picture1.Circle (X2, Y2), X - X2, Shape1.FillColor
If X2 > X Then Picture1.Circle (X2, Y2), X2 - X, Shape1.FillColor
End If
End Sub

----------------------------------------------------------------------------------------------

Gracias de antemano.

HOLA
Primero tendrias que leer la doumentacion de ayuda de GDI+. Al principio es dificil de entender y no te sale lo que queres, pero despues si. Para crear dibujos en .NET tenes que olvidarte de los metodos que usabas antes como Pset por ejemplo. Lo primero que hay que hacer es crear un objeto Grapics y un objeto Pen.
En las declaraciones escribí:
Dim GR As Graphics
Dim Lapiz As New Pen (Color.Red)

Despues tenes que cargar en GR algun valor, para eso:
GR = (Nombre del control).CreateGraphics ' al principio hacelo con Form Me.Creat....

En algun evento Escribi:
GR.DrawLine(100,100,300,300,Lapiz) 'o GR.DrawLine(Lapiz, 100,100,300,300) no me acuerdo el orden, probalos a ambos.

Si lees los tutoriales de ayuda vas a aprenderlo, pero esto cambio mucho entre VB6 y VB:NET

Hola,proba este ejemplo facil:

Código:

 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 Me.CreateGraphics.DrawLine(Pens.Blue, New Point(20, 20), New Point(50, 50))
 End Sub

saludos.

Hola, he logrado avanzar un poco. El código lo he probado en Windows Applicationy me ha trabajado bien, ahora quiero pasarlo a DeviceApplication pero me envia unos mensajes de error que no sé cómo corregirlos.
[color=#0000ff size=2]


Private[/color] [color=#0000ff size=2]Sub[/color] Panel1_MouseDown([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Object[/color], [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.Windows.Forms.MouseEventArgs) [color=#0000ff size=2]Handles[/color] Panel1.MouseDown


m_Drawing = [color=#0000ff size=2]True[/color]


[color=#008000 size=2]'Me.CreateGraphics().Clear(Me.BackColor)[/color]


m_MaxPoint = 0


[color=#0000ff size=2]ReDim[/color] m_Points(m_MaxPoint)


m_Points(m_MaxPoint).X = e.X


m_Points(m_MaxPoint).Y = e.Y


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] Panel1_MouseMove([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Object[/color], [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.Windows.Forms.MouseEventArgs) [color=#0000ff size=2]Handles[/color] Panel1.MouseMove


[color=#0000ff size=2]Dim[/color] p [color=#0000ff size=2]As[/color] System.Drawing.Pen


[color=#0000ff size=2]If[/color] [color=#0000ff size=2]Not[/color] m_Drawing [color=#0000ff size=2]Then[/color] [color=#0000ff size=2]Exit[/color] [color=#0000ff size=2]Sub[/color]


m_MaxPoint += 1


[color=#0000ff size=2]ReDim[/color] [color=#0000ff size=2]Preserve[/color] m_Points(m_MaxPoint)


m_Points(m_MaxPoint).X = e.X


m_Points(m_MaxPoint).Y = e.Y


[color=#0000ff size=2]Me[/color].CreateGraphics().DrawLine(p.Color.Black, m_Points(m_MaxPoint - 1), m_Points(m_MaxPoint))


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] Panel1_MouseUp([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Object[/color], [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.Windows.Forms.MouseEventArgs) [color=#0000ff size=2]Handles[/color] Panel1.MouseUp


[color=#0000ff size=2]Dim[/color] p [color=#0000ff size=2]As[/color] System.Drawing.Pen


m_Drawing = [color=#0000ff size=2]False[/color]


[color=#0000ff size=2]If[/color] m_MaxPoint < 1 [color=#0000ff size=2]Then[/color] [color=#0000ff size=2]Exit[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Dim[/color] gr [color=#0000ff size=2]As[/color] Graphics = [color=#0000ff size=2]Me[/color].CreateGraphics()


[color=#008000 size=2]'Dim br As New TextureBrush(PictureBox1.Image)[/color]


[color=#008000 size=2]'gr.FillPolygon(br, m_Points)[/color]


gr.DrawPolygon(p.Color.Black, m_Points)


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub






Me podrían ayudar a corregir el código?

Gracias de antemano.[/color]

Se me olvidó mencionar los errores.... los mismos son los siguientes:

Error1Argument not specified for parameter 'x2' of 'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)'.

Error2Argument not specified for parameter 'y2' of 'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)'.

Warning3Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.

Error4Value of type 'System.Drawing.Color' cannot be converted to 'System.Drawing.Pen'.

Error5Value of type 'System.Drawing.Point' cannot be converted to 'Integer'.