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![]()
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![]()
Salut,
Tu peux essayer ceci :
Tu m'en diras des nouvelles !
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
![]()
A+
HCath
Ça fait un peu ludion et traces fantomes
mais comme ça fonctionne mieux que mon
ReleaseCapture + SendMessage,
j'adopte au moins temporairement.
C'est sans doute à cause du côté obscur...Ça fait un peu ludion et traces fantomes
A+
HCath
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager