Drag & Drop sur un formulaire

[ludocavic]

Bonjour a tous et toutes,

Je m’acharne décidément sur les labels en ce moment… :evil:

Le problème est le suivant :
Sur mon form, j’ai 1 label.

Est-ce possible et si oui, comment fait on, de faire du drag n drop de ce label, juste pour le déplacer physiquement sur le formulaire..

Je clique sur le label (au boit dormant ??), je le déplace sur le form, et quand je relâche la souris, le label a bougé…

Ca a pas l’air bien compliqué mais en fait, j’arrives pas du tout..


Toute aide sera récompensée par mon entière gratitude éternelle


Merci d’avance


Ludo

 

[deudecos]

Bonsoir Ludocavic, le forum,

Soit je ne comprends rien a ta question, soit tu cherche a deplacer ton label alors que tu es en mode run avec ton Userform...
Auquel cas, je te conseille de retourner sous Vba 'Alt-F11' et de le deplacer a ce moment la...

Bonne soiree

Olivier

 

[MichelXld]

bonsoir Ludo , bonsoir Olivier

j'espere que cette procedure pourra t'aider
lors du 1er clic sur le Label , l'objet suit le curseur de la souris . Le 2eme clic permet de désactiver cette action


Dim Cible As Boolean

Private Sub UserForm_Initialize()
Cible = False
End Sub

Private Sub Label1_Click()
If Cible = True Then
Cible = False
Else
Cible = True
End If
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Cible = True Then
Label1.Left = Label1.Left + X
Label1.Top = Label1.Top + Y
End If
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Cible = True Then
Label1.Left = X
Label1.Top = Y
End If

End Sub


bonne soiree
MichelXld

 

[ludocavic]

Bonjour ,

Merci pour vos reponses !

Michel, trop fort, ca marche a merveille, je suis tout content de voir mes labels se balader ainsi


Parfait tout ca!!!



Merci encore et bonne journee


Ludo

 

[Hervé]

BOnjour tout le monde

Je me joins à ludo, trop fort michel.

15 jours que j'essaye de faire ca lol.

merci à toi

salut