Ich brauche eine "Gummilinie"

[DerFrosch]

Hallo Leute,
ich bräuchte einen Tipp im Informatik bereich.

Ich soll in VB mir einen Quelltext überlegen der ein Malprogramm beinhaltet.
Das Malprogramm mit einer Linie zeichnen, einem Kreis und Freihand ist nicht so das Problem nur ich kriege diese "Gummilinie" nicht hin. Mit Gummilinie ist gemeint, dass ich mit der maus auf irgendeinen Punkt klicke und dann eine Linie zu einem anderem Punkt ziehe. Mein Lehrer meinte auch noch VB sollte sich die Linie merken und dann soll die wieder gelöscht werden.

Ich bräuchte unbedingt einen Quelltext ausschnitt für diese "Gummilinie".

Danke schonmal im Vorraus

 

[Operator_Jon]

Du brauchst eine ImageBox mit dem Namen img

Option Explicit
Dim startx As Integer
Dim starty As Integer
Dim endx As Integer
Dim endy As Integer
Dim klicked As Integer

Private Sub img_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    startx = X
    starty = Y
    klicked = 1
End Sub

Private Sub img_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If klicked = 1 Then
        img.Line (startx, starty)-(X, Y)
    End If
End Sub

Private Sub img_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    endx = X
    endy = Y
    klicked = 0
    img.Cls
End Sub

Musst du noch ein wenig anpassen, sollte aber gehen

 

[DerFrosch]

Danke für den Quelltext

Aber kann ich statt der ImageBox auch ne Picturebox nehmen?

 

[Operator_Jon]

Das weiß ich grade nicht, aber probiers doch einfach aus

 

[DerFrosch]

Werd ich mal probieren! Danke nochmal.