Πώς να χρησιμοποιήσετε DrawLine σε VB.NET

. Αντλώντας γραμμές σε Visual Basic NET ( VB.NET ) είναι μια σημαντική έννοια για την κατανόηση κατά την εκμάθηση πώς να συνεργαστεί με PictureBox αντικείμενα και την κατηγορία των γραφικών . VB.NE , η οποία είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού , χρησιμοποιεί το πλαίσιο NET . Και είναι ο διάδοχος του γλώσσα Visual Basic . Για να χρησιμοποιήσετε τη μέθοδο « DrawLine " , θα δημιουργήσουν πρώτα μια " PictureBox " αντικείμενο , η προετοιμασία και στη συνέχεια να καλέσει τη μέθοδο " DrawLine " για να χαράξουμε μια διαχωριστική γραμμή ανάμεσα σε δύο σημεία με μια " Pen " αντικείμενο . Οδηγίες
Η

1 Ανοίξτε το αρχείο προέλευσης VB.NET σε έναν επεξεργαστή κειμένου , όπως το Microsoft Visual Studio . 2

Δημιουργήστε ένα αντικείμενο PictureBox να αντλήσει από την προσθήκη του παρακάτω κώδικα μέσα «Μορφή» δήλωση της κλάσης σας :

Ιδιωτική pictureBox1 As New PictureBox ( )
εικόνων 3

Δημιουργήστε μια υπορουτίνα για να προετοιμαστεί η PictureBox . Συνδέουν την εκδήλωση υπορουτίνα Paint προσθέτοντας τον παρακάτω κώδικα μέσα δήλωση της κλάσης σας Φόρμα1 :

Private Sub Form1_Load ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές 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

Η υπορουτίνα θέτει το υπόβαθρο σε μαύρο . Σιγουρευτείτε για να καλέσετε τη μέθοδο " Form1_Load « αλλού στον κώδικά σας , όπως το " Φόρμα1 ( ) " κατασκευαστής .
Η 4

Δημιουργήστε μια υπορουτίνα να χαράξει μια διαχωριστική γραμμή μεταξύ δύο σημείων με το " DrawLine " μέθοδος με την προσθήκη της ακόλουθης δήλωσης κώδικα μέσα στην τάξη σας Φόρμα1 :

Private Sub pictureBox1_Paint ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.Windows.Forms.PaintEventArgs )

Dim whitePen Όπως Νέας Πένας ( Color.White , 2 )

Dim στοιχείο 1 As New Point ( 25 , 50 )

Dim βαθμός2 As New Point ( 150 , 100 )

e.Graphics.DrawLine ( whitePen , σημείο 1 , βαθμός2 )

End Sub ' pictureBox1_Paint

Η υπορουτίνα δημιουργεί ένα " στυλό " αντικείμενο που είναι άσπρο και έχει πλάτος 2 . Καλεί τότε η μέθοδος " DrawLine " για να χαράξουμε μια διαχωριστική γραμμή με το στυλό μεταξύ των σημείων " 25,50 " και " 150,100 ".
5

Αποθηκεύστε το αρχείο VB.NET . Μεταγλώττιση και εκτέλεση του προγράμματος να σχεδιάσετε τη γραμμή .
Η
εικόνων