vb@rchiv · Tipps & Tricks · Steuerelemente zur Laufzeit verschieben

Rubrik: Controls · Sonstiges | VB-Versionen: VB4, VB5, VB6

05.12.03

Steuerelemente zur Laufzeit verschieben Eine wirklich einfache Lösung zum Verschieben von Steuerelementen zur Laufzeit.
Autor: Guido Eisenbeis	Bewertung:	Views: 18.671
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Möchten Sie dem Anwender die Möglichkeit geben, Steuerelemente zur Laufzeit verschieben zu können?
Kein Problem

Sofern das Control ein MouseMove-Ereignis besitzt, was ja bei fast allen Controls der Fall ist, fügen Sie einfach nachfolgende Codezeile in das jeweilige MouseMove-Ereignis ein:

Private Sub Control_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  MoveControl Control, Button, Shift, X, Y
End Sub

Die dazugehörige Prozedur MoveControls fügen Sie am besten in ein Modul:

Public Sub MoveControl(oControl As Control, _
  Button As Integer, _
  Shift As Integer, _
  X As Single, Y As Single)
 
  Static OldX As Single
  Static OldY As Single
 
  If Not Button = 2 Then
    ' aktuelle Mausposition innerhalb 
    ' des Controls merken
    OldX = X
    OldY = Y
  Else
    ' Wenn rechte Maus-Taste gedrückt wird
    ' Control an neue Mausposition verschieben
    With oControl
      .Move .Left + (X - OldX), .Top + (Y - OldY)
      .ZOrder
    End With
  End If
End Sub

Das war's dann auch schon. Ab sofort kann der Anwender die Controls auf der Form zur Laufzeit verschieben.

Beispiel:
Erstellen Sie ein neues Projekt und platzieren auf die Form einen CommandButton, eine ListBox, ein Label, sowie ein Frame-Control. Der Anwender soll die Möglichkeit haben, alle diese Controls zu verschieben. Fügen Sie dem Projekt ein Modul hinzu und kopieren obige Prozedur MoveControl in das Modul. Jetzt müssen wir die Prozedur nur noch in den einzelnen MouseMove-Ereignissen aufrufen:

Private Sub Command1_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  MoveControl Command1, Button, Shift, X, Y
End Sub

Private Sub List1_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  MoveControl List1, Button, Shift, X, Y
End Sub

Private Sub Label1_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  MoveControl Label1, Button, Shift, X, Y
End Sub

Private Sub Frame1_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  MoveControl Frame1, Button, Shift, X, Y
End Sub