CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Dibujar Linea En El Formulario

(1/1)

Soultaker:
Hola que tal alguien sabe como puedo hacer para dibujar una linea en el formulario osea yo le doy de que posicion a que posicion quiero que se dibuje, lean bien en el formulario ni en picturebox ni en otro tipo de control. Si alguien sabe como espero sus respuestas.

 :comp:  :D

Laforge:
...hey!! esa me la sé!!!   :D

Te pongo un código de ejemplo que yo utilizo para un título y marcar los puntos de un menú de un formulario :good:

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim DibF As Graphics = e.Graphics
Dim myPen As New Pen(Color.White)
Dim MyBrush as Brushes
     myPen.Width = 1
     DibF.DrawLine(myPen, 415, 97, 750, 97)  'esto dibuja una lïnea
For i = 120 To 440 Step 32   ' y esto de aquí dibuja líneas y redondeles rellenos de color naranja
            DibF.FillEllipse(MyBrush.Orange, New Rectangle(475, i + 3, 15, 15))
            DibF.DrawLine(New Pen(Color.Orange), 478, i + 10, 510, i + 10)
            DibF.DrawLine(New Pen(Color.Orange), 340, 300, 420, i + 10)
            DibF.DrawLine(New Pen(Color.Orange), 420, i + 10, 475, i + 10)
        Next i
Exit Sub


Espero que te sirva.


Saludos y Felices Fiestas.

Soultaker:
Hey gracias laforge lo pruebo mas tarde y de ahi les digo como me fue. Porque ahora estoy de salida.

 :comp:

sergiotarrillo:
hace mucho tiempo hice un artículo de como dibujar lineas con el mouse aqui te envio la url:

Codigo: Dibujar con el Mouse


Le cambio que tendrias que hacer es al iniciar el grafico para hacerlo desde el formulario lo haces asi:


--- Código: Text --- Dim g As Graphics       g = Me.CreateGraphics  
en este link, encuentras mas info: ayuda Graphics

Soultaker:
Gracias Serghio me va servir de mucho tu codigo.

 :comp:

Navegación

[0] Índice de Mensajes