Oprettelse grafik og figurer i Visual Basic ( VB) begynder med de nødvendige programmering trin at tegne simple elementer såsom punkter, linjer , rektangler , cirkler , ellipser og buer . Ved at kombinere disse elementer på forskellige måder og former , kan komplicerede grafik vises på din computerskærm. Processen kræver at skrive besværlige computer-kode i fravær af sofistikeret grafik software, men er fuldt ud muligt at bruge de byggesten er beskrevet her. Ting du skal
Visual Basic 6.0
Vis Flere Instruktioner
1
Åbn et nyt Visual Basic-projekt ved hjælp af " Standard EXE " skabelon , en af de valg , der vises når du vælger et nyt projekt. Gem projektet og form, når du bliver bedt om som MyGraphicsDemo . Sæt " Form1 " Højde i vinduet Egenskaber til 5400 og bredden til 6800 .
2
Dobbeltklik på " CommandButton " ikonet i venstre Toolbox kolonne for at føje det til formularen . Dette er en lille firkant normalt placeret i højre kolonne af værktøjer og tredje fra toppen. Etiketten vises, når du lægger din cursor på det. Klik på knappen for at fokusere på sine "Egenskaber" i vinduet til højre og ændre " Caption " ejendom til " Vis mig nogle farvede Points ! " Uden at indtaste anførselstegn . Ændre højden ejendom til 500 og Width egenskaben til 3000 .
3
Åbn en kode ved at klikke på "Vis" og derefter " Code" i det øverste niveau Visual Basic menu. Indstil placering punkter på skærmen , størrelsen og farven først med illustrative kode. Så varierer indstillingerne til at lære , hvad der er muligt ved hjælp af blot en enkelt point . I denne kode de " Pset " linjer skaber forskelligt farvede prikker , mens koden linjer, der indeholder " RND" duplikere mange point i tilfældige farver og steder. Når du er færdig , tryk på " F5 " for at se resultatet
Private Sub Command1_Click () BackColor = vbRedPSet ( 0, 0) Pset (15 , 5), vbCyanPSet (20 , 10) , vbYellowCurrentX = 500: . Currenty = 500For i = 1 Til 20PSet Trin ( 0, 0) NextFor i = 1 Til 500DrawWidth = Rnd * 5 + 1PSet ( Rnd * ScaleWidth , Rnd * ScaleHeight ) , RGB ( Rnd * 255 , Rnd * 255 , Rnd * 255) NextDrawWidth = 1End Sub
4
Opret en stor trekant ved hjælp af " line" Visual Basic kommando, som anvender lokalitetsindstillinger at tegne trekanten. Tilføj en farvet rektangel med Line kommando ved hjælp af forskellige placering punkter. Tilføj yderligere to CommandButtons til formularen , som i trin 2 . Skift Caption egenskaber til at læse " Tegn en trekant " og " Tegn en rektangel " hhv . Du kan være nødt til at udvide bokse, som i trin 2 . Indtast derefter følgende kode under de tidligere linjer kode. Når du er færdig , tryk på " F5 " for at se
Private Sub Command2_Click ( ) Linie (1500 , 3000) - . Step (1000 , 0), vbBlackLine - trin (0, 1000) , vbBlackLine - (1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click ( ) Linie ( 1200, 1500) - Step (2100 , 1100 ) , vbGreen , Bend Sub
5
Tegn en cirkel med følgende linjer kode. Tegning ellipser og buer bruger samme proces, man bare ændre dimensioner, og hvor de kredse begynder og slutter . Ved at udvide et aspekt af cirklen , drej dig det til en ellipse , og ved ikke at lukke cirklen , gøre dig en bue. At sætte det op , tilføje endnu CommandButton , mærkning denne ene " Tegn en cirkel" .
Private Sub Command4_Click () DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle (2000 , 2000) , 1000, vbBlueEnd Sub