Dibular lineas entre 2 puntos en un formulario

"Erick" escribió:

... quisiera saber si me pueden explicar como hago para trazar
lineas entre 2 pares de cordenadas sobre un formulario, si me
pueden pasar un fragmento de codigo mucho mejor.

Hola, Erick:

Deberás de utilizar los métodos existentes en el espacio de nombres
System.Drawing.

Por ejemplo, para dibujar una línea, ejecutarías en el evento Paint del
formulario lo siguiente:

Private Sub Form1_Paint(...) Handles Me.Paint

' Definimos dos puntos
Dim pt1 As New Point(10, 50)
Dim pt2 As New Point(200, 50)

' Creamos un objeto Graphics
Dim g As Drawing.Graphics = e.CreateGraphics

' Dibujamos la línea de color azul
g.DrawLine(Pens.Blue, pt1, pt2)

End Sub

Para más información, consulta en la ayuda los miembros de la clase Drawing.

Un saludo


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Gracias SoftJaén muy util tu informacion, voy a implementarlo y en caso de
problemas vuelvo a escribir

Erick

"SoftJaén" wrote:

"Erick" escribió:

> ... quisiera saber si me pueden explicar como hago para trazar
> lineas entre 2 pares de cordenadas sobre un formulario, si me
> pueden pasar un fragmento de codigo mucho mejor.

Hola, Erick:

Deberás de utilizar los métodos existentes en el espacio de nombres
System.Drawing.

Por ejemplo, para dibujar una línea, ejecutarías en el evento Paint del
formulario lo siguiente:

Private Sub Form1_Paint(...) Handles Me.Paint

' Definimos dos puntos
Dim pt1 As New Point(10, 50)
Dim pt2 As New Point(200, 50)

' Creamos un objeto Graphics
Dim g As Drawing.Graphics = e.CreateGraphics

' Dibujamos la línea de color azul
g.DrawLine(Pens.Blue, pt1, pt2)

End Sub

Para más información, consulta en la ayuda los miembros de la clase Drawing.

Un saludo


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Hola grupo:

De nuevo yo con otra pregunta, solo puedo ejecutar este codigo dentro del
evento paint, no lo puedo hacer por ejemplo cuando oprima un boton???

Saludos
Erick

"SoftJaén" wrote:

"Erick" escribió:

> ... quisiera saber si me pueden explicar como hago para trazar
> lineas entre 2 pares de cordenadas sobre un formulario, si me
> pueden pasar un fragmento de codigo mucho mejor.

Hola, Erick:

Deberás de utilizar los métodos existentes en el espacio de nombres
System.Drawing.

Por ejemplo, para dibujar una línea, ejecutarías en el evento Paint del
formulario lo siguiente:

Private Sub Form1_Paint(...) Handles Me.Paint

' Definimos dos puntos
Dim pt1 As New Point(10, 50)
Dim pt2 As New Point(200, 50)

' Creamos un objeto Graphics
Dim g As Drawing.Graphics = e.CreateGraphics

' Dibujamos la línea de color azul
g.DrawLine(Pens.Blue, pt1, pt2)

End Sub

Para más información, consulta en la ayuda los miembros de la clase Drawing.

Un saludo


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Erick ha escrito:

Hola grupo:

De nuevo yo con otra pregunta, solo puedo ejecutar este codigo dentro del
evento paint, no lo puedo hacer por ejemplo cuando oprima un boton???

Saludos
Erick

Private Sub Form1_Paint(...) Handles Me.Paint
DibujarLinea()
End Sub

Private Sub Button1_Click(...) Handles Button1.Click
DibujarLinea()
End Sub

Private Sub DibujarLinea()
' Definimos dos puntos
Dim pt1 As New Point(10, 50)
Dim pt2 As New Point(200, 50)

' Creamos un objeto Graphics
Dim g As Drawing.Graphics = e.CreateGraphics

' Dibujamos la línea de color azul
g.DrawLine(Pens.Blue, pt1, pt2)
End Sub