Open een nieuwe Visual Basic -project met behulp van de "Standard EXE " template , een van de keuzes die verschijnen wanneer u een nieuw project te kiezen . Sla het project en het formulier wanneer daarom wordt gevraagd als MyGraphicsDemo . Stel de " Form1 " Hoogte in het venster Eigenschappen voor 5400 en de breedte tot 6800 . Kopen van 2

Dubbelklik op de " deCommandButton " icoon in de linker kolom Toolbox om deze toe te voegen aan het formulier . Dit is een kleine rechthoek bevindt zich normaal in de rechterkolom van de gereedschappen en de derde van boven . Het label verschijnt wanneer je je cursor op het. Klik op de knop om te focussen op de "Eigenschappen " in het venster rechts en verander de " Caption " eigenschap te lezen " Show Me Sommige Gekleurde Punten ! " Zonder het invoeren van de aanhalingstekens . Wijzig de eigenschap Hoogte tot 500 en de eigenschap Width tot 3000 .
3

Open een code -venster door te klikken op "View " en vervolgens "Code" op het hoogste niveau Visual Basic -menu . Stel de locatie punten op het scherm , de grootte en de kleur eerst met de illustratieve code . Dan variëren de instellingen om te leren wat er mogelijk is met slechts enkele punten . In deze code de " Pset " lijnen te creëren anders - gekleurde stippen , terwijl de code regels met " Rnd " duplicaat veel punten in willekeurige kleuren en locaties . Als je klaar bent , druk op " F5 " om het resultaat te zien

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

Maak een grote driehoek met behulp van de " lijn " Visual Basic commando , die locatie-instellingen gebruikt om de driehoek te tekenen . Voeg een gekleurde rechthoek met de Line commando met behulp van verschillende locatie punten . Voeg twee CommandButtons de vorm zoals in stap 2 . Verander de Caption eigenschappen om te lezen " Teken een driehoek " en " Teken een rechthoek " respectievelijk . Het kan nodig zijn om de dozen te verbreden zoals in stap 2 . Voer vervolgens de volgende code onder de vorige regels code . Als je klaar bent , druk op " F5 " te bekijken

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 ) - Step ( 2100 , 1100 ) , vbGreen , buig Sub
5

Teken een cirkel met de volgende regels code . Tekenen ellipsen en bogen gebruikt hetzelfde proces, je gewoon veranderen de afmetingen en waar de cirkels beginnen en eindigen . Door verbreding van een aspect van de cirkel , u het in een ellips en door niet het sluiten van de cirkel , een boog maken u . Om dit op te zetten , voeg nog een CommandButton , etiketteren deze " Teken een cirkel " .

Private Sub Command4_Click
( ) DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle ( 2000 , 2000 ) , 1000 , vbBlueEnd Sub