Flackern beim Verschieben von Steuerelementen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Homer.

    Flackern beim Verschieben von Steuerelementen

    Hallo zusammen,
    ich hab ein Problem beim Verschieben eines Steuerelements zur Laufzeit. Und zwar flackert das Element immer, wenn es verschoben wird.
    Wäre super wenn mir da jemand helfen könnte, hab auch schon das Forum durchsucht, aber nichts hat wirklich geholfen.
    Mein Code ist folgender:

    VB.NET-Quellcode

    1. Public Class Desktopelement
    2. Inherits Button
    3. Private MausLocation As Point
    4. Dim klick As Boolean = False
    6. Private Sub Desktopelement_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    7. If e.Button = Windows.Forms.MouseButtons.Left Then
    8. MausLocation = e.Location
    9. klick = True
    10. End If
    11. End Sub
    13. Private Sub Desktopelement_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    15. If e.Button = Windows.Forms.MouseButtons.Left And klick = True Then
    17. With DirectCast(sender, Control)
    18. .Location = e.Location - MausLocation + .Location
    19. End With
    21. End If
    24. End Sub
    28. Private Sub Desktopelement_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    29. If e.Button = Windows.Forms.MouseButtons.Left And klick = True Then
    30. klick = False
    31. End If
    34. End Sub
    35. End Class