Wie DrawLine in VB.NET verwenden

Zeichnen Sie eine Linie in VB.NET so wie man es auf ein Stück Papier mit einem Stift. 

DrawLine VB.NET

Zeichnen von Linien in Visual Basic. NET (VB.NET) ist ein wichtiges Konzept zu verstehen, wenn das Lernen, wie man mit PictureBox Objekten und der Graphics-Klasse arbeiten. VB.NE, die eine objektorientierte Programmiersprache ist, verwendet das. NET Framework und ist der Nachfolger von der Sprache Visual Basic. Um die "DrawLine" Methode zu verwenden, erstellen Sie zuerst eine "PictureBox" Objekt initialisieren und rufen Sie dann die "DrawLine" Methode, um eine Linie zwischen zwei Punkten mit einem "Pen"-Objekt zu zeichnen.

Öffnen Sie Ihre VB.NET Quelldatei in einem Editor wie z. B. Microsoft Visual Studio.

Erstellen Sie ein PictureBox-Objekt zu zeichnen auf, indem Sie den folgenden Code in Ihrem "Form" Klassendeklaration:

Privat pictureBox1 As New PictureBox ()

Erstellen Sie eine Unterroutine, die PictureBox initialisieren. Verknüpfen Sie das Paint-Ereignis Unterprogramm indem Sie den folgenden Code in Ihre Form1 Klasse Erklärung:

Private Sub Form1_Load (ByVal sender As Object, ByVal e As 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

Das Unterprogramm setzt die Hintergrundfarbe auf Schwarz. Achten Sie auf die "Form1_Load" Verfahren anderer Stelle im Code, wie in der "Form1 ()" Konstruktor aufrufen.

Erstellen Sie eine Unterroutine, um eine Linie zwischen zwei Punkten mit dem "DrawLine"-Methode zu ziehen, indem Sie den folgenden Code in Ihrem Form1 Klasse Erklärung:

Private Sub pictureBox1_Paint (ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)

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

Dim point1 Wie New Point (25, 50)

Dim Punkt2 Wie New Point (150, 100)

e.Graphics.DrawLine (whitePen, point1, Punkt2)

End Sub 'pictureBox1_Paint

Das Unterprogramm wird ein "Pen"-Objekt, das weiß und hat eine Breite von 2. Es ruft dann die "DrawLine"-Methode, um eine Linie mit dem Stift zwischen den Punkten "25,50" und ziehe "150.100."

Speichern Sie die Datei VB.NET. Kompilieren und starten Sie das Programm, um die Linie zu zeichnen.