Microsofts VB.NET er et programmeringssprog baseret på BASIC sprog , hvis bogstaver står for " begyndere All Purpose Symbolsk Instruction Code ". VB.NET har funktioner til at skabe mange forskellige typer af applikationer, herunder dem med grafik. Realiseringen af et VB.NET program , der kalder på en tegning funktion indebærer at arbejde med de grafiske klasser i VB.NET 's objekt model . Dette objekt model er som et stamtræ af virtuelle blueprints , kaldet klasser, hvorfra programmører skaber virtuelle objekter. Realiseringen en funktion , der trækker i VB.NET er en milepæl for programmører der ønsker at bygge komplekse grafiske applikationer som spil og design programmer. Instruktioner
1
Open VB.NET , og klik derefter på " Nyt projekt " linket på velkomstskærmen.
2
Klik på "Windows Form" element på listen, der vises. Denne handling opretter et program med en bruger dataindtastningsformular . Du vil tilpasse denne formular til at kalde en grafisk tegning funktion.
3
Åbn formularen design vinduet ved at trykke på " Shift " og " F7 " samtidig, og klik derefter på hammeren ikonet på værktøjslinjen under menuoverskrifter at vise kontrol værktøjskassen.
4
Træk en " knap" post fra kontrollen værktøjskasse til ethvert sted på formularen , og derefter dobbeltklikke på knappen. VB.NET vil bringe dig til den kodning vinduet for at indtaste dit program kode.
5.
Indsæt følgende program notering i kodning vinduet. Dette program kalder funktionen " DrawGraphics " , der trækker en figur til formularen , hvor du tilføjet en knap. Den " Me" i programmet refererer til formularen. For at tegne til formularen , at programmet skaber en virtuel " Pen " objekt , som er gemt i variablen " GPEN . "
Public Class Form1
Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.Click
DrawGraphics ()
End sub
Private Function DrawGraphics ()
Dim GPEN Da New Drawing.Pen ( System.Drawing.Color.Black , 1)
Me.CreateGraphics.DrawEllipse ( GPEN , 20, 20 , 80, 80)
gpen.Dispose ()
End Function
End Class
6
Kør programmet ved at trykke på " F5 ", og tryk derefter på formularens knappen. VB vil udføre " Button1_Click " kode, som kalder " DrawGraphics "-funktion. Denne funktion vil tegne en ellipse til formularen .
7.
Klik formularens "X" -ikonet for at lukke formularen og afslutte programmet.
8
Tryk på " Shift" og " F7 " samtidigt for at komme ind i formularen design vinduet derefter trække fire tekstbokse , hver under den foregående, fra kontrol værktøjskassen til formularen . Disse bokse vil holde parametre, som du vil videregive til den grafiske tegning funktion, du tidligere har oprettet .
9
Genindtast kodning vinduet ved at dobbeltklikke på formularens knappen , og vælg derefter alle eksisterende program kode og trykke på " Delete " for at slette den.
10
Indsæt følgende revision af programmet kode i koden vinduet. Dette nye program kalder grafik tegning funktionen " DrawGraphics " på en ny måde . Programmet sender parametre fra tekstbokse , du lige har tilføjet til DrawGraphics , der bestemmer ellipsen placering og størrelse af disse parametre.
Public Class Form1
Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.Click
DrawGraphics ( Cint ( TextBox1.Text ) Cint ( TextBox2.Text ) Cint ( TextBox3.Text ) Cint ( TextBox4.Text )) < br >
End sub
Private Function DrawGraphics ( ByVal x1 , ByVal y1, ByVal x2, ByVal y2)
Dim GPEN Da New Drawing.Pen ( System.Drawing.Color.Black , 1)
Me.CreateGraphics.DrawEllipse ( GPEN , x1, y1 , x2, y2)
gpen.Dispose ()
End Function
End klasse
11
Kør programmet som du gjorde den forrige. Indtast eventuelle heltal fra 0 til 100 i hver af de tekstbokse. Disse tal repræsenterer skærmkoordinater , der bestemmer placeringen af ellipse.
12
Tryk formularens knappen. Den reviderede DrawGraphics Funktionen vil trække en ellipse på skærmen, koordinater du har indtastet.
