Discussion :

[myrddin99]

Bonjour,

Avec la fonction mouseup:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je récupère la position X en twips du curseur. En fonction du click de souris, je désire positionner une étiquette sur cette position X.

J'applique donc le X sur la propriété left de l'étiquette:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub etiq_G1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Me.etiq_G1.Left = X
 
End Sub

source:
http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

Si mon étiquette part d'une position left=0, pas de problème, c'est quand elle part d'une position autre que ça se gâche...

Il doit me manquer une conversion de valeur parce que l'étiquette se déplace en des endroits plus ou moins aléatoires.

Des idées?

Merci!

[Tofalu]

Le soucis doit se poser quand la souris est lâchée en dehors de l'étiquette. De plus X détermine l'abscisse depuis le début de l'étiquette.

Il faudrait partir sur quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Détail_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Étiquette3.Left = X
End Sub
 
Private Sub Étiquette3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Étiquette3.Left = Me.Étiquette3.Left + X
End Sub

Ainsi, même quand la souris est lâchée en dehors de l'étiquette (à condition qu'il s'agisse d'une zone vide), la manœuvre fonctionne.

[myrddin99]

C'est exactement cela

Merci beaucoup!