Cum se creează grafice și forme în "Visual Basic"

Pasul 1

Deschideți un nou proiect Visual Basic utilizând șablonul "Standard EXE", una dintre opțiunile care apar atunci când alegeți un nou proiect. Salvați proiectul și formularul când îl cereți ca MyGraphicsDemo. Reglați înălțimea "Form1" în fereastra Proprietăți cu 5400 și lățimea sa cu 6800.

Pasul 2

Faceți dublu clic pe pictograma "CommandButton" din coloana de instrumente din stânga pentru a o adăuga în formular. Este un mic dreptunghi care este plasat în mod normal în coloana din dreapta a uneltelor și în cel de-al treilea rând de sus. Eticheta apare atunci când plasați cursorul peste ea. Faceți clic pe buton pentru a vă concentra pe "Proprietăți" în fereastra din dreapta și schimbați proprietatea "Label" pentru a citi "Afișați niște puncte colorate!" fără citate. Schimbați proprietatea Înălțime la 500 și Lățime la 3000.

Pasul 3

Deschideți o fereastră de cod făcând clic pe "Vizualizare" și apoi pe "Cod" în nivelul superior al meniului Visual Basic. Mai întâi ajustați punctele de locație de pe ecran, mărimea și culoarea cu codul ilustrativ. Apoi schimbați setările pentru a afla ce puteți face utilizând doar puncte unice. În acest cod liniile "PSet" creează puncte de culori diferite, în timp ce liniile de cod care conțin "Rnd" duplică multe puncte cu locații și culori aleatorii. Când ați terminat, apăsați "F5" pentru a vedea rezultatul.

Private Sub Command1_Click () BackColor = VbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbYellow CurrentX = 500: CurrentY = 500 Pentru i = Următorul pentru i = 1 până la 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Următoarea DrawWidth =

Pasul 4

Creați un triunghi mare folosind comanda "Linie" din Visual Basic, care utilizează setarea locației pentru a desena un triunghi. Adăugați un dreptunghi colorat cu comanda Lin folosind diferite puncte de localizare. Adăugați încă două comenziButton la formular ca la pasul 2. Schimbați proprietățile etichetei astfel încât să scrie "Desenați un triunghi" și "Desenați un dreptunghi" respectiv. Este posibil să aveți nevoie doar să măriți casetele ca la pasul 2. Apoi introduceți codul următor sub liniile anterioare de cod. Când ați terminat, apăsați "F5" pentru ao vedea.

(1000, 0), vbBlack Line - Step (0, 1000), linia vbBlack Line (1500, 3000), linia vbBlack End Sub Sub Command3_Click () 1500) - Etapa (2100, 1100), vbGreen, B End Sub

Pasul 5

Desenați un cerc cu următoarele rânduri de cod. Desenați elipse și arce utilizând același proces. Modifică pur și simplu dimensiunile și locul în care cercurile vor începe și se vor termina. Extinderea unui aspect al cercului îl transformați într-o elipsă și fără a închide cercul pe care îl creați un arc. Pentru a configura acest lucru, adăugați un CommandButton mai mult, etichetându-l ca "Desenați un cerc".

Private Sub Command4_Click () DrawWidth = 5 FillStyle = VbFSSolid FillColor = Cercul vbCyan (2000, 2000), 1000, vbBlue End Sub