Steuerelement auf Form verschieben

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von joachim.

    Steuerelement auf Form verschieben

    Guten Morgen,

    hier ein Beispiel für das einfache Verschieben eines Steuerelements auf einer Form zur Laufzeit.

    VB.NET-Quellcode

    1. Private Sub Bild1_MouseDown(sender As Object, e As MouseEventArgs) Handles Bild1.MouseDown
    3. x = Control.MousePosition.X - Bild1.Location.X
    5. y = Control.MousePosition.Y - Bild1.Location.Y
    7. End Sub
    9. Private Sub Bild1_MouseMove(sender As Object, e As MouseEventArgs) Handles Bild1.MouseMove
    11. If e.Button = MouseButtons.Left Then
    13. newpoint = Control.MousePosition
    15. newpoint.X -= x
    17. newpoint.Y -= y
    19. Bild1.Location = newpoint
    21. Application.DoEvents()
    23. Bild1.BringToFront()
    25. End If
    27. End Sub


    Es kann sein, dass vor mousebuttons Windows.forms eingefügt werden muss.

    Gruß

    Joachim

    @joachim Jou.
    Machst Du die Zeile Application.DoEvents() ganz raus, das Bild1.BringToFront() packst Du in das MouseDown-Ereignis.
    Was ist das Problem?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @joachim AHa.
    Dann bits aber im Internet- und Netzwerkprogrammierung-Forum falsch.
    Und:
    Kann es sein, dass dieses Verfahren bereits vor Dir erfunden wurde und Du somit nix Neues offenbarst?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende