title image


Smiley Re: Wie Steuerelemente zur Laufzeit verschieben???
Das Verschieben kannst du mit dem MouseMove-Ereignis realisieren:Dazu musst du abfragen, welche Taste gedrückt wurde und ob sich der Mauszeiger bewegt, also seine Koordinaten ändert. Diese Koordinatenänderung wird dann an die Lage des Buttons weitergegeben.Es wird allerdings nicht überprüft, ob sich der Button noch im sichtbaren Fenster befindet (man kann ihn noch herausschieben...)Und hier nun die Prozedur:Private Sub cmdVerschiebMich_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static sngXAnfang As Single Static sngYAnfang As Single Dim sngDeltaX As Single Dim sngDeltaY As Single Static blnVerschoben As Boolean 'Falls keine Taste gedrückt wird, so die Verschiebung aufheben If Button = 0 Then blnVerschoben = False End If If Button = vbRightButton Then 'Falls mit der Verschiebung erst begonnen wird, so die anfänglichen Mauskoordinaten merken If blnVerschoben = False Then sngXAnfang = X sngYAnfang = Y blnVerschoben = True End If ' blnVerschoben=False 'Differenz zwischen den Anfangsmauskoordinaten und den jetzigen bilden sngDeltaX = X - sngXAnfang sngDeltaY = Y - sngYAnfang 'und um die Differenz verschieben With cmdVerschiebMich .Move .Left + sngDeltaX, .Top + sngDeltaY End With End If ' Button=vbRightButton End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: