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 .