Wie man ein Malprogramm
Zu wissen, wie man eine Paint-Programm in Microsoft Visual Basic (VB) erhalten Sie mit Grafiken in der Programmierung gestartet. VB ist eine objektorientierte Programmiersprache, die zum Erstellen von Desktop, Web und mobile Anwendungen. VB bietet eine Graphics-Klasse, die für Objekte wie Rechtecke, Kreise und Linien zeichnen verwendet werden kann. Das ColorDialog-Steuerelement können Sie dem Benutzer alle verfügbare Farben anzeigen und verwenden die Farbe ausgewählt, um Ihre Objekte zu zeichnen.
Anweisungen
1 Starten Sie Microsoft Visual Basic Express "New Project..." im linken Bereich des Bildschirms, und wählen Sie "Windows-Forms-Anwendung." Klicken Sie auf "OK".
2 Doppelklicken Sie auf die "Toolbox" einen neuen Button hinzufügen "Schaltfläche". Doppelklicken Sie auf "Kontrollkästchen" ein neues Textfeld hinzuzufügen. Zwei weitere Kontrollkästchen zum Formular hinzufügen. Doppelklicken Sie auf "ColorDialog" das Programm des Steuerelements hinzu. Doppelklicken Sie auf "Button1" Öffnen Sie die "Form1.vb"module.
3 Kopieren Sie und fügen Sie den folgenden Code in der Prozedur "Button1_Click", damit den Benutzer eine Farbe zu wählen:
Me.ColorDialog1.ShowDialog()
If Me.ColorDialog1.ShowDialog = DialogResult.OK Then
clr = ColorDialog1.Color
End If4
Kopieren Sie und fügen Sie Folgendes unter "Public Class Form1" zwei globale Variablen, die zur Erstellung von Grafiken und Farbe zu erstellen:
Private gfx As Graphics
Private clr As Color5
Klicken Sie auf den Dropdown-Pfeil im linken oberen Kombinationsfeld, und wählen Sie "(Form1-Ereignisse)." Wählen Sie "Load" Erstellen der Formularereignis und kopieren und fügen die folgenden innerhalb des Ereignisses:
GFX = Me.CreateGraphics()
6 Klicken Sie auf das Ereignis "FormClosed", um das Ereignis und die Kopie zu erstellen und fügen Folgendes ein, um das Graphics-Objekt zu entsorgen:
GFX. Dispose()
7 Klicken Sie auf das Ereignis "MouseMove", um das Ereignis zu erstellen, kopieren und fügen den Code unten, um Objekte zu zeichnen, wenn der Benutzer die Maus bewegt:
If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub
Dim rect As Rectangle
Dim myPen As Pen
myPen = New Pen(clr, 2)
If Me.CheckBox1.Checked Then
With rect
.X = e.X - 1
.Y = e.Y - 1
.Width = 15
.Height = 15
End With
gfx.DrawRectangle(myPen, rect)
End If
If Me.CheckBox2.Checked Then
With rect
.Width = 15
.Height = 15
End With
gfx.DrawLine(myPen, e.X, e.Y, e.X - 1, e.Y - 1)
End If
If Me.CheckBox3.Checked Then
myPen = New Pen(clr, 2)
With rect
.X = e.X - 1
.Y = e.Y - 1
.Width = 15
.Height = 15
End With
gfx.DrawEllipse(myPen, rect)
End If8
Drücken Sie "F5" um das Programm auszuführen klicken Sie auf "Button1" wählen Sie eine Farbe für Ihre Objekte aus. Kontrollkästchen Sie das erste um eine Reihe von Rechtecken zu zeichnen. Kontrollkästchen Sie das zweite zum Zeichnen von Linien oder aktivieren Sie das Kontrollkästchen dritten um eine Reihe von Kreise zu zeichnen.