Aprire un nuovo progetto di Visual Basic utilizzando il modello " standard EXE" , una delle scelte che appaiono quando si sceglie un nuovo progetto . Salvare il progetto e la forma in cui viene richiesto come MyGraphicsDemo . Impostare l' altezza " Form1 " nella finestra Proprietà per 5400 e la larghezza di 6800 .
2 Fare doppio clic sull'icona " CommandButton " nella colonna degli strumenti di sinistra per aggiungerlo al modulo . Questo è un piccolo rettangolo normalmente posizionata nella colonna a destra di strumenti e terza dall'alto. L'etichetta viene visualizzata quando si posiziona il cursore su di essa . Fare clic sul pulsante per concentrarsi sulle sue "Proprietà" nella finestra a destra e modificare la proprietà " Caption " leggere " Show Me Alcuni punti colorati ! " Senza inserire le virgolette . Modificare la proprietà Height su 500 e la proprietà Width su 3000 .
3
Aprire una finestra di codice cliccando su "Visualizza " e poi " Codice" nel livello di menu di Visual Basic in alto . Impostare i punti di posizione sullo schermo , la dimensione e il colore prima con il codice illustrativo . Poi variano le impostazioni per imparare ciò che è possibile utilizzare solo i singoli punti . In questo codice le righe " PSet " creare punti di diverso colore , mentre le linee di codice che contengono "RND" duplicare molti punti nei colori casuali e luoghi. Al termine, premere il tasto "F5" per vedere il risultato
Private Sub Command1_Click ( ) BackColor = vbRedPSet ( 0 , 0 ) PSet ( 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
Creare un grande triangolo con il comando di Visual Basic " Line" , che utilizza impostazioni di posizione per disegnare il triangolo . Aggiungi un rettangolo colorato con il comando Linea , utilizzando diversi punti di localizzazione . Aggiungere altri due CommandButtons a forma come al punto 2 . Modificare le proprietà Caption di leggere " disegnare un triangolo " e " disegnare un rettangolo ", rispettivamente. Potrebbe essere necessario ampliare le scatole come al punto 2 . Quindi, immettere il seguente codice sotto le righe di codice precedente . Al termine, premere il tasto " F5 " per visualizzare
Private Sub Command2_Click ( ) Line ( 1500 , 3000) - . Step ( 1000, 0 ) , vbBlackLine - Step ( 0 , 1000) , vbBlackLine - ( 1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click ( ) Line ( 1200, 1500 ) - Passo (2100 , 1100) , vbGreen , piegare Sub
5
Disegna un cerchio con le seguenti righe di codice . Disegno di ellissi e archi utilizza lo stesso processo , basta modificare le dimensioni e dove i cerchi di inizio e fine . Allargando un aspetto del cerchio , che si accende in un ellisse e non chiudere il cerchio , si fanno un arco . Per impostare questa funzione , aggiungere un altro pulsante di comando , etichettare questo " disegnare un cerchio " .
Private Sub Command4_Click ( ) DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle (2000 , 2000) , 1000 , vbBlueEnd Sub
Programmazione © www.354353.com