7 réponses
Il faut faire quelquechose comme ceci :
D'abord tu déclares ceci dans la section Générale :
Dim ControleADeplacer as Control
Dim Deplacement as Boolean 'Initialisé a False
Dans le MonLabel_Click, tu met :
Deplacement = True
set ControleADeplacer = MonLabel
Dans le Form_MouseMove, tu tapes :
if Deplacement then
ControleADeplacer.CurrentX = X
ControleADeplacer.CurrentY = Y
end if
Enfin, dans le Form_MouseUp, tu mets :
if Deplacement then
ControleADeplacer.CurrentX = X
ControleADeplacer.CurrentY = Y
end if
Deplacement = False
Voilà, normalement, ça marche.
:clown)
D'abord tu déclares ceci dans la section Générale :
Dim ControleADeplacer as Control
Dim Deplacement as Boolean 'Initialisé a False
Dans le MonLabel_Click, tu met :
Deplacement = True
set ControleADeplacer = MonLabel
Dans le Form_MouseMove, tu tapes :
if Deplacement then
ControleADeplacer.CurrentX = X
ControleADeplacer.CurrentY = Y
end if
Enfin, dans le Form_MouseUp, tu mets :
if Deplacement then
ControleADeplacer.CurrentX = X
ControleADeplacer.CurrentY = Y
end if
Deplacement = False
Voilà, normalement, ça marche.
:clown)
J'ai testé ce que j'ai mis et y a 2 ou 3 erreurs, voici un vrai code qui marche :
:clown)
'Section générale
Dim ControleADeplacer as Control
Dim Deplacement as Boolean 'Initialisé a False
'MonLabel_Click
if Not Deplacement then
Deplacement = True
Set ControleADeplacer = MonLabel
else
Deplacement = False
end if
'Form_MouseMove
if Deplacement then
ControleADeplacer.CurrentX = X
ControleADeplacer.CurrentY = Y
end if
'Voilà, donc tu cliques une première fois sur ton label, puis tu déplaces ta souris (pas la peine de garder le bouton appuyé) et quand tu veux positionner ton label, tu cliques une fois à l'endroit voulu. Bon c'est sur, on peut faire mieux, mais au moins, tu obtiens l'effet voulu, il ne te reste plus qu'à faire 2-3 modifications pour que cela soit parfait
:clown)
Excuse moi, je dois être fatigué :sleepy) , mais il faut remplacer CurrenX par Left et CurrentY par Top. Ca m'apprendra à faire des copier-coller sans vérifier ce que je mets. :blush)
Voici la vrai version qui marche :
:clown)
Voici la vrai version qui marche :
'Section générale
Dim ControleADeplacer as Control
Dim Deplacement as Boolean 'Initialisé a False
'MonLabel_Click
if Not Deplacement then
Deplacement = True
Set ControleADeplacer = MonLabel
else
Deplacement = False
end if
'Form_MouseMove
if Deplacement then
ControleADeplacer.Left= X
ControleADeplacer.Top = Y
end if
'Voilà, donc tu cliques une première fois sur ton label, puis tu déplaces ta souris (pas la peine de garder le bouton appuyé) et quand tu veux positionner ton label, tu cliques une fois à l'endroit voulu. Bon c'est sur, on peut faire mieux, mais au moins, tu obtiens l'effet voulu, il ne te reste plus qu'à faire 2-3 modifications pour que cela soit parfait
:clown)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Salut
je viens d essayer ton code, car je cherchais aussi comment faire, ca ne marche que si on deplace la souris sur la fenetre, mais comment faire pour que ca le deplace aussi quand on se deplace sur le control ? (cad, si je clic en haut du control et que je vais vers le bas, ben ca ne bouge plus, par contre si je vais vers le haut, en dehors de mon control, ca bouge) tu vois ?
je viens d essayer ton code, car je cherchais aussi comment faire, ca ne marche que si on deplace la souris sur la fenetre, mais comment faire pour que ca le deplace aussi quand on se deplace sur le control ? (cad, si je clic en haut du control et que je vais vers le bas, ben ca ne bouge plus, par contre si je vais vers le haut, en dehors de mon control, ca bouge) tu vois ?
Salut
je viens d essayer ton code, car je cherchais aussi comment faire, ca ne marche que si on deplace la souris sur la fenetre, mais comment faire pour que ca le deplace aussi quand on se deplace sur le control ? (cad, si je clic en haut du control et que je vais vers le bas, ben ca ne bouge plus, par contre si je vais vers le haut, en dehors de mon control, ca bouge) tu vois ?
je viens d essayer ton code, car je cherchais aussi comment faire, ca ne marche que si on deplace la souris sur la fenetre, mais comment faire pour que ca le deplace aussi quand on se deplace sur le control ? (cad, si je clic en haut du control et que je vais vers le bas, ben ca ne bouge plus, par contre si je vais vers le haut, en dehors de mon control, ca bouge) tu vois ?
