Discussion :

[Ingham]

Tout est dans le titre, en fait je voudrai pouvoir déplacer la form sans avoir a maintenir le clic sur la barre de titre mais en le maintenant au milieu de la form ou sur une picturebox ou autre ...

Merci d'avance

[HCath]

Salut,

Tu peux essayer ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim X1 As Long, Y1 As Long
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button > 0 Then
  Me.Left = Me.Left + X - X1
  Me.Top = Me.Top + Y - Y1
End If
End Sub

Tu m'en diras des nouvelles !

A+
HCath

[Ingham]

Bah merci beaucoup ca marche a merveille

[DarkVader]

Ça fait un peu ludion et traces fantomes
mais comme ça fonctionne mieux que mon
ReleaseCapture + SendMessage,
j'adopte au moins temporairement.

[HCath]

Ça fait un peu ludion et traces fantomes

C'est sans doute à cause du côté obscur...
A+
HCath