Cómo utilizar DrawLine en VB.NET

Dibuje una línea en VB.NET como lo haría en una hoja de papel con un bolígrafo. 

DrawLine VB.NET

Dibujo de líneas de. NET Visual Basic (VB.NET) es un concepto importante de entender cuando se está aprendiendo cómo trabajar con objetos PictureBox y la clase Graphics. VB.NE, que es un lenguaje de programación orientado a objetos, utiliza la infraestructura de. NET y es el sucesor del lenguaje Visual Basic. Para utilizar el método "DrawLine", primero debe crear un objeto "PictureBox", iniciarlo y luego llamar al método "DrawLine" trazar una línea entre dos puntos con un objeto "Pen".

Abra el archivo de código fuente VB.NET en un editor como Microsoft Visual Studio.

Crear un objeto PictureBox para aprovechar al añadir el siguiente código dentro de la declaración de la clase "Form":

PictureBox1 privado como nuevo PictureBox ()

Cree una subrutina para inicializar el PictureBox. Enlace a la subrutina del evento Paint añadiendo el siguiente código dentro de su declaración de la clase Form1:

Private Sub Form1_Load (remitente de ByVal como objeto, ByVal e como System.EventArgs) Handles MyBase.Load

pictureBox1.Dock = DockStyle.Fill

pictureBox1.BackColor = Color.Black

AddHandler pictureBox1.Paint, AddressOf Me.pictureBox1_Paint

Me.Controls.Add (pictureBox1)

End Sub 'Form1_Load

La subrutina define el fondo en negro. Asegúrese de llamar al método "Form1_Load" en su código en otros lugares, como en el "Form1 ()" constructor.

Cree una subrutina para dibujar una línea entre dos puntos con el método "DrawLine" agregando el siguiente código dentro de su declaración de la clase Form1:

Private Sub pictureBox1_Paint (remitente de ByVal como objeto, ByVal e como System.Windows.Forms.PaintEventArgs)

WhitePen Dim As New Pen (Color.White, 2)

Punto1 Dim As New Point (25, 50)

Punto2 Dim As New Point (150, 100)

e.Graphics.DrawLine (whitePen, punto1, punto 2)

End Sub 'pictureBox1_Paint

La subrutina crea un objeto "pluma" que es blanco y tiene una anchura de 2. A continuación, llama al método "DrawLine" trazar una línea con el lápiz entre los puntos "25,50" y "150.100".

Guarde el archivo VB.NET. Compilar y ejecutar el programa para dibujar la línea.