Opprette grafikk og figurer i Visual Basic ( VB ) begynner med de nødvendige programmeringstrinnene å trekke enkle elementer som punkter , linjer , rektangler , sirkler , ellipser og buer . Ved å kombinere disse elementene på ulike måter og former , kan kompliserte grafikk vises på dataskjermen . Prosessen krever skriving arbeidskrevende datakode i fravær av avansert grafikk programvare , men er fullt mulig ved hjelp av byggeklosser som er beskrevet her . Du trenger
Visual Basic 6.0
Vis flere instruksjoner
en

Åpne et nytt Visual Basic-prosjekt ved hjelp av " Standard EXE " mal, en av de valgene som vises når du velger et nytt prosjekt . Lagre prosjektet og form når du blir bedt som MyGraphicsDemo . Sett " Form1 " Høyde i vinduet Egenskaper til 5400 og bredde til 6800 .
2

Dobbeltklikk på " CommandButton "-ikonet i venstre Toolbox kolonne for å legge den til skjemaet . Dette er et lite rektangel vanligvis ligger i den høyre spalte av verktøy og tredje øverst . Etiketten vises når du setter markøren på det. Klikk på knappen for å fokusere på sin "Properties" i vinduet til høyre og endre " Bildetekst " egenskapen til å lese "Vis meg noen fargede Points ! " Uten å skrive inn anførselstegn . Endre Høyde eiendommen til 500 og Bredde- egenskapen til 3000 .
3

Åpne en kode ved å klikke på " Vis" og deretter " Code" i den øverste nivå Visual Basic -menyen. Angi plasseringen punkter på skjermen , størrelsen og fargen først med illustrerende koden . Da variere innstillingene for å lære hva som er mulig med bare ett poeng . I denne koden de " PSett " linjer lage forskjellig fargede prikker , mens kodelinjer som inneholder " Rnd " duplisere mange poeng i tilfeldige farger og steder. Når du er ferdig , trykk " F5 " for å se resultatet

Private Sub Command1_Click ( ) BackColor = vbRedPSet ( 0 , 0 ) PSett ( 15 , 5 ) , vbCyanPSet (20, 10 ) , vbYellowCurrentX = 500: . Currenty = 500For i = 1 To 20PSet Step ( 0 , 0 ) NextFor i = 1 To 500DrawWidth = Rnd * 5 + 1PSet ( Rnd * ScaleWidth , Rnd * ScaleHeight ) , RGB ( Rnd * 255 , Rnd * 255, Rnd * 255 ) NextDrawWidth = 1End Sub
4

Lag en stor trekant ved hjelp av " line" Visual Basic -kommandoen , som bruker stedsinnstillinger å tegne trekanten. Legg et farget rektangel med the Line kommandoen ved hjelp av ulike plasseringspunktene . Legg til to flere CommandButtons til skjemaet som i trinn to . Endre Caption egenskaper for å lese " Tegn en trekant " og " Tegn et rektangel " hhv. Du må kanskje utvide boksene som i trinn to . Deretter skriver du inn følgende kode under den forrige linjer med kode. Når du er ferdig , trykk " F5 " for å vise

Private Sub Command2_Click ( ) Linje ( 1500 , 3000) - . Step ( 1000 , 0 ) , vbBlackLine - Step ( 0 , 1000 ) , vbBlackLine - ( 1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click ( ) Linje ( 1200 , 1500 ) - Step ( 2100 , 1100 ) , vbGreen , bøye Sub
5

Tegn en sirkel med følgende linjer med kode . Tegning ellipser og buer bruker den samme prosessen , du må bare endre målene og hvor sirklene start og slutt. Ved å utvide ett aspekt av sirkelen , slår du den til en ellipse , og ved ikke å lukke sirkelen , du gjør en bue . For å sette dette opp , legge til én CommandButton , merking dette en " Tegn en sirkel " .

Private Sub Command4_Click ( ) DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle ( 2000 , 2000 ) , 1000 , vbBlueEnd Sub