Bonjour à tous,
Je cherche à déplacer ma zone de texte en même temps que ma souris
Pour en faite pour faire glisser ma zone de texte sur mon formulaire
J'ai commencé par ce code mais cela ne marche pas super.
Merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub txt_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Set clt = Me.ActiveControl txt.Left = X txt.Top = Y Me.Repaint End Sub
Partager