Comment créer des graphiques et des formes dans "Visual Basic"

Étape 1

Ouvrez un nouveau projet Visual Basic à l'aide du modèle "EXE standard", l'une des options qui apparaissent lorsque vous choisissez un nouveau projet. Enregistrez le projet et le formulaire lorsque vous le demandez en tant que MyGraphicsDemo. Ajustez la hauteur de "Form1" dans la fenêtre Propriétés avec 5400 et sa largeur avec 6800.

Étape 2

Double-cliquez sur l'icône "Bouton de commande" dans la colonne Boîte à outils à gauche pour l'ajouter au formulaire. C'est un petit rectangle qui est normalement placé dans la colonne d'outils de droite et dans la troisième ligne d'en haut. La balise apparaît lorsque vous la survolez. Cliquez sur le bouton pour vous concentrer sur ses "Propriétés" dans la fenêtre de droite et changez la propriété "Label" pour lire "Montre-moi des points de couleur!" sans guillemets. Modifiez la propriété Height en 500 et la largeur en 3000.

Étape 3

Ouvrez une fenêtre de code en cliquant sur "Affichage" puis sur "Code" dans la partie supérieure du menu Visual Basic. Ajustez d’abord les points de localisation sur l’écran, la taille et la couleur avec le code d’illustration. Modifiez ensuite les paramètres pour savoir ce que vous pouvez faire en utilisant uniquement des points uniques. Dans ce code, les lignes "PSet" créent des points de couleurs différentes, tandis que les lignes de code contenant "Rnd" dupliquent de nombreux points avec des emplacements et des couleurs aléatoires. Lorsque vous avez terminé, appuyez sur "F5" pour voir le résultat.

Private Sub Command1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbYellow CurrentX = 500: CurrentY = 500 Pour i = 1 à 20 PSet étape (0, 0) Next Pour i = 1 à 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Suivant DrawWidth = 1 End Sub

Étape 4

Créez un grand triangle à l'aide de la commande "Ligne" dans Visual Basic, qui utilise le paramètre d'emplacement pour dessiner un triangle. Ajoutez un rectangle de couleur avec la commande Ligne en utilisant différents points d’emplacement. Ajoutez deux boutons de commande supplémentaires au formulaire, comme à l'étape 2. Modifiez les propriétés du libellé pour qu'il indique respectivement "Dessiner un triangle" et "Dessiner un rectangle". Il vous suffira peut-être d'agrandir les zones comme à l'étape 2. Ensuite, entrez le code suivant sous les lignes de code précédentes. Lorsque vous avez terminé, appuyez sur "F5" pour le voir.

Ligne privée Sub Command2_Click () (1500, 3000) - Étape (1000, 0), Ligne vbblue - Étape (0, 1000), Ligne vbBlack - (1500, 3000), vbBlack End Ligne secondaire privée Sub Command3_Click (), (Ligne (1200, 1500) - Step (2100, 1100), vbGreen, B End Sub

Étape 5

Tracez un cercle avec les lignes de code suivantes. Dessinez des ellipses et des arcs en utilisant le même processus. Il modifie simplement les dimensions et l’endroit où les cercles commenceront et se termineront. En développant un aspect du cercle, vous le transformez en une ellipse et sans fermer le cercle, vous créez un arc. Pour configurer cela, ajoutez un bouton de commande supplémentaire en le nommant "Draw a circle".

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