Microsofts VB.NET er et programmeringsspråk basert på BASIC språk , som bokstavene står for " nybegynnere All Purpose Symbolic Instruction Code. " VB.NET har funksjoner for å lage mange forskjellige typer applikasjoner , inkludert de med grafikk . Å gjøre en VB.NET program som kaller på en tegning funksjon innebærer å arbeide med grafikk klasser i VB.NET ' s objekt modell. Dette objektet modellen er som et familietre av virtuelle blåkopier , kalt klasser , der programmerere skape virtuelle objekter . Å gjøre en funksjon som trekker i VB.NET er en milepæl for programmerere som ønsker å bygge komplekse grafiske applikasjoner som spill og design programmer. Instruksjoner
en
Åpen VB.NET , klikk deretter på "New Project " på åpningen skjermen .
2
Klikk på " Windows Form" element i listen som vises. Denne handlingen skaper et program med en bruker data påmeldingsskjema. Du vil tilpasse dette skjemaet for å kalle en grafikk tegning funksjon .
3
Åpne skjemaet utforming vinduet ved å trykke " Shift" og " F7 " samtidig , og klikk på hammer -ikonet på verktøylinjen under menyoverskriftene å vise kontrollene verktøykasse.
4
Dra en " Button" element fra kontroll verktøykasse som helst på skjemaet , dobbeltklikk deretter på knappen . VB.NET vil bringe deg til koding vinduet for å angi programmets kode .
5
Lim inn følgende program oppføringen i kodingen vinduet. Dette programmet kaller funksjonen " DrawGraphics " som trekker en figur på skjemaet der du har lagt en knapp. Den " Me" i programmet refererer til skjema . Å trekke på skjemaet , oppretter programmet en virtuell " Pen " objekt , som er lagret i variabelen " gpen . "
Public Class Form1
Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click
DrawGraphics ()
End Sub
privat funksjon DrawGraphics ()
Dim gpen som ny Drawing.Pen ( System.Drawing.Color.Black , 1 )
Me.CreateGraphics.DrawEllipse ( gpen , 20, 20 , 80 , 80 )
gpen.Dispose ( )
End Function
End Class
6
Kjør programmet ved å trykke " F5 ", og trykk deretter på skjemaets knappen . VB vil utføre " button1_click " kode, som kaller " DrawGraphics "-funksjonen . At funksjonen vil trekke en ellipse på skjemaet .
7
Klikk for skjemaet "X" -ikonet for å lukke skjemaet og avslutte programmet.
8
Trykk " Shift" og " F7 " samtidig for å gå skjemaet utforming vinduet , deretter drar fire tekstbokser , hver under den forrige, fra kontrollene verktøykassa inn skjemaet. Disse boksene vil holde parameterne som du vil passere til grafikk tegning funksjonen du opprettet tidligere.
9
Tast inn koding vinduet ved å dobbeltklikke på skjemaets knappen, velg deretter alle eksisterende programkode og trykk " Delete" for å slette den.
10
Lim inn følgende revisjon til programkoden inn koden vinduet. Dette nye programmet kaller grafikk tegning funksjon " DrawGraphics " på en ny måte . Programmet sender parametere fra tekstboksene du nettopp har lagt til DrawGraphics , som bestemmer ellipse beliggenhet og størrelse fra disse parametrene .
Public Class Form1
Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click
DrawGraphics ( Cint ( TextBox1.Text ) , Cint ( TextBox2.Text ) , Cint ( TextBox3.Text ) , Cint ( TextBox4.Text ) )
End Sub
privat funksjon DrawGraphics ( ByVal x1, ByVal y1 , ByVal x2 , y2 ByVal )
Dim gpen som ny Drawing.Pen ( System.Drawing.Color.Black , 1 )
Me.CreateGraphics.DrawEllipse ( gpen , x1 , y1 , x2 , y2 )
gpen.Dispose ( )
End Function
End klasse
11
Kjør programmet som du gjorde den forrige. Oppgi eventuelle heltall fra 0 til 100 i hver av tekstbokser . Disse tallene representerer skjermkoordinater , som avgjør plasseringen av ellipsen .
12
Trykk på skjemaets knappen . Den reviderte DrawGraphics funksjonen vil trekke en ellipse på skjermen koordinatene du har angitt .
