Drag & Drop sur un formulaire

ludocavic · 31 Août 2005

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 · 31 Août 2005

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 · 31 Août 2005

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 · 1 Septembre 2005

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é · 1 Septembre 2005

BOnjour tout le monde

Je me joins à ludo, trop fort michel.

15 jours que j'essaye de faire ca lol.

merci à toi

salut

Drag & Drop sur un formulaire

ludocavic

Guest

deudecos

XLDnaute Impliqué

MichelXld

XLDnaute Barbatruc

ludocavic

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires