In diesem Artikel wird ein Beispiel für das Zeichnen mit der Maus in VB beschrieben. Wenn die Maustaste gedrückt wird, wird der anfängliche Startpunkt aufgezeichnet , wird der Vorgang beendet. Im Zeichenzustand wird eine gerade Linie vom Startpunkt zum aktuellen Mauspunkt gezeichnet und dann der aktuelle Mauspunkt als neuer Startpunkt verwendet. Die Zeichnung endet, wenn die Maustaste losgelassen wird .
Die spezifischen Funktionscodes lauten wie folgt:
VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Begin VB.Form Form1 Caption = "Mauszeichnung" ClientHeight = 6420 ClientLeft = 60 ClientTop = 345 ClientWidth = 7710 LinkTopic = "Form1" ScaleHeight = 6420 ScaleWidth = 7710 StartUpPosition = 3 'Fensterstandard Begin VB.CommandButton Command2 Caption = "Clear" Höhe = 495 Links = 5640 TabIndex = 7 Oben = 1440 Breite = 1335 Ende Begin VB.Frame Frame1 Caption = „Linienbreite“ Höhe = 2655 Links = 5520 TabIndex = 2 Oben = 2880 Breite = 1935 Begin VB.OptionButton Option4 Caption = „8“ Höhe = 495 Links = 240 TabIndex = 6 Oben = 1800 Breite = 1215 Ende Begin VB.OptionButton Option3 Caption = „4“ Höhe = 375 Links = 240 TabIndex = 5 Oben = 1320 Breite = 1335 Ende Begin VB.OptionButton Option2 Caption = „2“ Höhe = 375 Links = 240 TabIndex = 4 Oben = 840 Breite = 1095 Ende Begin VB.OptionButton Option1 Caption = „1“ Höhe = 255 Links = 240 TabIndex = 3 Oben = 480 Wert = -1 'True Breite = 1335 Ende Ende Begin VB.CommandButton Command1 Caption = "Farbe festlegen" Höhe = 495 Links = 5640 TabIndex = 1 Oben = 600 Breite = 1215 Ende Begin MSComDlg.CommonDialog CommonDialog1 Links = 4200 Oben = 3840 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.PictureBox Picture1 Höhe = 5535 Links = 480 ScaleHeight = 5475 ScaleWidth = 4515 TabIndex = 0 Oben = 480 Breite = 4575 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim x1 As Integer 'Startpunkt X-Koordinate Dim y1 As Integer 'Startpunkt Y-Koordinate Dim x2 As Integer 'Endpunkt X-Koordinate Dim y2 As Integer 'Endpunkt Y-Koordinate Dim Flag As Boolean 'Zeichnung Flag'-Einstellung Zeile colorPrivate Sub Command1_Click() Bei Fehler Weiter fortsetzen CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Color" CommonDialog1.ShowColor If Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd Sub'Löschen Sie die Grafiken in Picture1 Private Sub Command2_Click() Picture1.ClsEnd Sub'Legen Sie die Zeile fest width Private Sub Option1_Click() Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click() Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click() Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click() Picture1.DrawWidth = 8End SubPrivate Sub Form_Load() Picture1.Scale (0, 0)-(400, 400 ) Flag = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)'Wenn die Maustaste gedrückt wird, beginnt das Zeichnen und zeichnet den anfänglichen Startpunkt auf. flag = True x1 = X y1 = YEnd SubPrivate Sub Picture1_MouseMove(Button Als Ganzzahl, Verschiebung als Ganzzahl, _X als Einzelzahl, Y als Single)'Wenn Sie sich nicht im Zeichenstatus befinden, beenden Sie den Vorgang.'Wenn Sie sich im Zeichenstatus befinden, zeichnen Sie eine gerade Linie vom Startpunkt zum aktuellen Mauspunkt.'Dann verwenden Sie den aktuellen Mauspunkt als neuen StartpunktIf-Flagge = False Then Exit Sub End If If flag = True Then x2 = Integer, Shift As Integer, _X As Single, Y As Single)' Zeichnung endet, wenn die Maustaste losgelassen wird, Flag = FalseEnd SubDas Programm enthält relativ detaillierte Kommentare, die für den Leser leicht verständlich sind und das Programm nach seinen eigenen Wünschen modifizieren können, um es perfekter zu machen.