Microsofts VB.NET är ett programmeringsspråk baserat på BASIC språket , vars bokstäver står för " Beginners All Purpose Symbolic Instruction Code . " VB.NET har funktioner för att skapa många olika typer av program , inklusive dem med grafik . Göra ett VB.NET program som uppmanar en ritning funktion innebär att arbeta med grafik klasser i VB.NET 's objektmodell . Detta objekt modellen är som ett släktträd av virtuella ritningar , kallas klasser , från vilka programmerare skapa virtuella objekt . Göra en funktion som drar i VB.NET är en milstolpe för programmerare som vill bygga komplexa grafiska applikationer som spel och program utformning . Instruktioner
1
Open VB.NET , klicka sedan på " Nytt projekt " länken på startskärmen .
2
Klicka på " Windows Form " i listan som visas . Denna åtgärd skapar ett program med ett användarnamn datainmatningsformulär . Du kommer att anpassa den formen att kalla en grafisk ritning funktion .
3
Öppna fönstret formuläret designen genom att trycka på " Shift " och " F7 " samtidigt , och klicka sedan på hammaren ikonen i verktygsfältet under menyn rubrikerna för att visa kontrollerna verktygslådan .
4
Dra en " knapp " objekt från kontrollens verktygslåda till valfri plats på formuläret , sedan dubbelklicka på knappen . VB.NET kommer du till den kodande fönstret för att ange programmets kod .
5
Klistra in följande program notering i den kodande fönstret . Detta program anropar funktionen " DrawGraphics " som drar en form till formuläret där du lagt till en knapp . Den " Me " i programmet hänvisas till formuläret . Att dra in på formuläret , skapar programmet en virtuell " Pen " objekt , som är lagrat i variabeln " GPEN . "
Public Class Form1
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
DrawGraphics ( ) katalog
End Sub
Private Function DrawGraphics ( ) katalog
Dim GPEN som ny Drawing.Pen ( System.Drawing.Color.Black , 1 ) katalog
Me.CreateGraphics.DrawEllipse ( GPEN , 20 , 20 , 80 , 80 ) katalog
gpen.Dispose ( ) katalog
End Function
End Class
6
Kör programmet genom att trycka på " F5 ", tryck sedan på formulärets knappen . VB ska utföra " Button1_Click " kod som anropar " DrawGraphics " funktionen . Denna funktion kommer att rita en ellips på formuläret .
7
Klicka formulärets " X " -ikonen för att stänga formuläret och avsluta programmet .
8
Tryck " Shift " och " F7 " samtidigt för att öppna fönstret formuläret design, dra sedan fyra textrutor , var under den förra , från kontrollerna verktygslådan till formuläret . Dessa boxar kommer att hålla parametrar som du skickar till den grafiska ritfunktion du tidigare skapat .
9
Ange den kodning fönstret genom att dubbelklicka på formulärets knappen , välj sedan alla existerande programkod och tryck på " Delete " för att radera det .
10
Klistra in följande ändring till programmet kod i fönstret . Detta nya program anropar grafik ritfunktion " DrawGraphics " på ett nytt sätt . Programmet går parametrar från textrutorna du just lagt till DrawGraphics , som bestämmer ellipsen läge och storlek av dessa parametrar .
Public Class Form1
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
DrawGraphics ( CInt ( TextBox1.Text ) , CInt ( TextBox2.Text ) , CInt ( TextBox3.Text ) , CInt ( TextBox4.Text ) )
End Sub
Private Function DrawGraphics ( ByVal x1 , ByVal y1 , ByVal x2 , ByVal y2 ) katalog
Dim GPEN Som New Drawing.Pen ( System.Drawing.Color.Black , 1 ) katalog
Me.CreateGraphics.DrawEllipse ( GPEN , x1 , y1 , x2 , y2 ) katalog
gpen.Dispose ( ) katalog
End Function
End klass
11
Kör programmet som du gjorde tidigare . Ange eventuella heltal från 0 till 100 i varje textrutor . Dessa siffror representerar skärm koordinater , som avgör placeringen av ellips .
12
Tryck formulärets knappen . Den reviderade DrawGraphics funktionen rita en ellips på skärmen koordinater du angivit .
