Discussion :

[gust]

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.

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

Merci de votre aide.

[Arkham46]

Bjr,

En gros ça devrait ressembler à ça (j'ai écris sans tester, à vérifier surtout les déclarations d'événements MouseDown et MouseMove):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Compare Database
Option Explicit
 
Private gX As Single
Private gY As Single
 
Private Sub txt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    gX = X
    gY = Y
  End If
End Sub
 
Private Sub txt_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
 txt.Left = txt.Left - gX + x
 txt.Top = txt.Top - gY + y
End If
End Sub