Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte zdrojový súbor VB.NET v editore , ako je napríklad Microsoft Visual Studio .
2
Vytvorte PictureBox objekt čerpať pridaním nasledujúceho kódu vnútri váš " Form " deklarácia triedy :
Súkromná pictureBox1 ako nový PictureBox ( )
3
Vytvorte podprogram pre inicializáciu PictureBox . Odkaz Paint podprogram pre organizovanie akcií , pridaním nasledujúceho kódu vnútri deklarácia triedy Form1 :
Private Sub Form1_Load ( ByVal sender As Object , byval e ako System.EventArgs ) Kľuky 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
podprogram nastaví pozadia na čiernu . Uistite sa , že volanie metódy " Form1_Load " inde v kóde , ako napríklad v " Form1 ( ) " konštruktory .
4
Vytvorte podprogram urobiť hrubú čiaru medzi dvoma bodmi s " DrawLine " metóda pridaním nasledujúceho kódu vnútri deklarácia triedy Form1 :
Private Sub pictureBox1_Paint ( byVal sender As Object , byval e ako System.Windows.Forms.PaintEventArgs )
Dim whitePen As New Pen ( Color.White , 2 )
Dim bod 1 As New Point ( 25 , 50 )
Dim bod 2 As New Point ( 150 , 100 )
e.Graphics.DrawLine ( whitePen , bod 1 , bod 2 )
End Sub ' pictureBox1_Paint
podprogram vytvára " Pen " objekt , ktorý je biely a má šírku 2. Potom zavolá metódu " DrawLine " nakresliť čiaru s perom medzi bodmi " 25,50 " a " 150100 " .
5
Uložte súbor VB.NET . Kompilácie a spustenie programu nakreslite čiaru .