title image


Smiley Re: Steuerelement für den User verschiebar machen
Hallo, versuch´s mal hiermit.

Option Explicit

 

Dim XLbl As Single, YLbl As Single

 

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

Source.Move X - XLbl, Y - YLbl

End Sub

 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.BorderStyle = 0

End Sub

 

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.Drag vbBeginDrag

XLbl = X

YLbl = Y

End Sub

 

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.BorderStyle = 1

Label1.MousePointer = 5

End Sub

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: