Erstellen Grafiken und Formen in Visual Basic (VB) beginnt mit den notwendigen Schritte zur Programmierung einfache Elemente wie Punkte, Linien, Rechtecke , Kreise, Ellipsen und Bögen zeichnen. Durch die Kombination dieser Elemente auf unterschiedliche Weise und Formen können komplizierte Grafiken auf dem Bildschirm erscheinen . Der Prozess erfordert das Schreiben mühsam Computer-Code in Abwesenheit von anspruchsvollen Grafik-Software , ist aber durchaus möglich, mit Hilfe der Bausteine beschrieben. Things You
Visual Basic 6.0
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie ein neues Visual Basic-Projekt mit dem " Standard EXE " Vorlage , eine der Optionen , die angezeigt werden wenn Sie ein neues Projekt. Speichern Sie das Projekt und das Formular , wenn sie als MyGraphicsDemo aufgefordert . Stellen Sie die " Form1 " Höhe im Fenster Eigenschaften zu 5400 und die Breite bis 6800 .
2
auf der " CommandButton "-Symbol in der linken Spalte Toolbox doppelklicken, um es zum Formular hinzufügen . Dies ist ein kleines Rechteck in der Regel in der rechten Spalte von Werkzeugen und dritte von oben entfernt. Das Label erscheint, wenn Sie mit dem Mauszeiger darauf legen . Klicken Sie auf die Schaltfläche, um auf seine "Eigenschaften" im Fenster auf der rechten Seite konzentrieren und ändern Sie die Eigenschaft "Caption" zu lesen "Zeigen Sie mir einige farbige Punkte ! " Ohne Eingabe der Anführungszeichen . Ändern Sie die Height-Eigenschaft auf 500 und die Width-Eigenschaft auf 3000 .
3
Öffnen Sie ein Code-Fenster , indem Sie auf "Ansicht" und dann "Code" in der obersten Ebene Visual Basic -Menü. Stellen Sie die Position Punkte auf dem Bildschirm , die Größe und die Farbe zuerst der beispielhaften Code. Dann unterscheiden sich die Einstellungen zu erfahren, was möglich ist, mit nur einzelne Punkte . In diesem Code die " PSet " Linien schaffen unterschiedlich farbigen Punkten , während die Code- Zeilen mit " Rnd " duplizieren viele Punkte in den gelegentlichen Farben und Standorten. Wenn Sie fertig sind , drücken Sie "F5 ", um das Ergebnis zu sehen
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
erstellen Sie eine große Dreieck mit dem " line" Visual Basic -Befehl, der Standort-Einstellungen verwendet, um das Dreieck zu zeichnen . In ein farbiges Rechteck mit dem Befehl Linie durch die Verwendung unterschiedlicher Lage Punkte . Fügen Sie zwei weitere CommandButtons der Form wie in Schritt 2 . Ändern Sie die Caption-Eigenschaften zu lesen " Zeichnen Sie ein Dreieck " und " Zeichnen Sie ein Rechteck " bezeichnet. Möglicherweise müssen Sie die Felder wie in Schritt 2 zu erweitern. Geben Sie dann den folgenden Code unter den vorherigen Zeilen Code. Wenn Sie fertig sind , drücken Sie "F5 " zum Ansehen
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 , beugen Sub
5
zeichnen Sie einen Kreis mit den folgenden Zeilen Code. Zeichnen von Ellipsen und Bögen verwendet den gleichen Prozess , man muss nur die Dimensionen ändern und wo die Kreise beginnen und enden . Durch die Erweiterung ein Aspekt des Kreises , schalten Sie ihn in eine Ellipse und nicht schließt sich der Kreis , machen Sie einen Bogen . Um dies einzurichten , fügen Sie eine weitere CommandButton , Etikettierung dieses " Zeichnen Sie einen Kreis " .
Private Sub Command4_Click () = DrawWidth 5FillStyle = vbFSSolidFillColor = vbCyanCircle (2000, 2000) , 1000, vbBlueEnd Sub
