Come creare grafica e forme in "Visual Basic"

Passaggio 1

Aprire un nuovo progetto di Visual Basic utilizzando il modello "EXE standard", una delle opzioni visualizzate quando si sceglie un nuovo progetto. Salva il progetto e il modulo quando lo chiedi come MyGraphicsDemo. Regolare l'altezza di "Form1" nella finestra Proprietà con 5400 e la larghezza con 6800.

Passaggio 2

Fare doppio clic sull'icona "CommandButton" nella colonna Toolbox a sinistra per aggiungerlo al modulo. È un piccolo rettangolo che viene normalmente posizionato nella colonna destra degli strumenti e nella terza riga dall'alto. Il tag appare quando passi il mouse su di esso. Fare clic sul pulsante per mettere a fuoco le sue "Proprietà" nella finestra a destra e modificare la proprietà "Etichetta" per leggere "Mostrami dei punti colorati!" senza virgolette. Modificare la proprietà Height su 500 e Width su 3000.

Passaggio 3

Aprire una finestra di codice facendo clic su "Visualizza" e quindi su "Codice" nel livello superiore del menu di Visual Basic. Regola innanzitutto i punti di localizzazione sullo schermo, le dimensioni e il colore con il codice illustrativo. Quindi modifica le impostazioni per imparare cosa puoi fare usando solo i singoli punti. In questo codice le linee "PSet" creano punti di diversi colori, mentre le righe di codice che contengono "Rnd" duplicano molti punti con posizioni e colori casuali. Al termine, premere "F5" per vedere il risultato.

Private Sub Command1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbYellow CurrentX = 500: CurrentY = 500 Per i = 1 a 20 PSet Step (0, 0) Avanti Per i = 1 A 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Successivo DrawWidth = 1 End Sub

Passaggio 4

Creare un triangolo grande utilizzando il comando "Linea" in Visual Basic, che utilizza l'impostazione della posizione per disegnare un triangolo. Aggiungi un rettangolo colorato con il comando Linea usando punti di posizione diversi. Aggiungi altri due CommandButton al modulo come al punto 2. Cambia le proprietà dell'etichetta in modo che dicano "Disegna un triangolo" e "Disegna un rettangolo" rispettivamente. Potrebbe essere necessario solo ingrandire le caselle come al punto 2. Quindi inserire il seguente codice sotto le righe di codice precedenti. Quando hai finito, premi "F5" per vederlo.

Private Sub Command2_Click () Line (1500, 3000) - Step (1000, 0), vbBlack Line - Step (0, 1000), vbBlack Line - (1500, 3000), vbBlack End Sub Private Sub Command3_Click () Line (1200, 1500) - Step (2100, 1100), vbGreen, B End Sub

Passaggio 5

Disegna un cerchio con le seguenti linee di codice. Disegna ellissi e archi usando lo stesso procedimento. Semplicemente modifica le dimensioni e il luogo in cui i cerchi inizieranno e finiranno. Espandendo un aspetto del cerchio, lo trasformi in un'ellisse e senza chiudere il cerchio crei un arco. Per configurarlo, aggiungi un altro CommandButton, etichettandolo come "Disegna un cerchio".

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