1
Abra el archivo de código fuente VB.NET en un editor como Microsoft Visual Studio.
2
Crear un objeto PictureBox para aprovechar añadiendo el siguiente código dentro el "Formulario " declaración de clase :
pictureBox1 privado como nuevo PictureBox ()
3
Crear 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 . muelle = 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.
4
Crear una subrutina para dibujar una línea entre dos puntos con el " DrawLine " método añadiendo 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 , punto2 )
End Sub ' pictureBox1_Paint
La subrutina crea un objeto " pluma " que es de color 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 ".
5
Guarde el archivo VB.NET . Compilar y ejecutar el programa para dibujar la línea.