Déplacer une form avec la souris Résolu

Question

Bonjour,

petite question bete : j'ai fais une jolie form sans barre de titre. Donc maintenant je ne peux plus la déplacer tout simplement en cliquant dans la barre de titre.

Comment faire pour simuler le clic dans la barre de titre pour pouvoir déplacer la form à l'aide de la souris ?

Merci d'avance pour votre aide !

Seb.

Gobillot · Accepted Answer

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "User32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Call ReleaseCapture
        SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub

Daniel

jrivet · Answer

Salut,

Essaie de voir si ca, ca pourrait t aider:

Dim Bouge As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Bouge = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Bouge Then Call Me.Move(Me.Left + X, Me.Top + Y)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Bouge = False
End Sub

@+
Julien
-----------------------------------------------------------
 :big)  Essaie ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

scortex84 · Answer

Bonjour !

Merci à vous deux, mais aucune des deux solutions ne fonctionne. La premiere j'y avais déjà pensé, mais ça ne fonctionne pas, et la seconde encore moins. Mais je suis en VB.NET, alors ptetre que cela vient de là ? 

Merci pour votre aide, et je suis toujours à la recherche de la réponse...

Seb.

Gobillot · Answer

oui certainement !
pour les API's faut adapter la taille des données et remplacer le type Long par Integer.
sinon la méthode de jrivet devrait marcher aussi.


Dim Bouge As Boolean
Dim xx    As Integer
Dim yy    As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Bouge = True    xx X: yy Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Bouge Then
       Me.Move Me.Left + (X - xx), Me.Top + (Y - yy)
       End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Bouge = False
End Sub


Daniel

scortex84 · Answer

C bon :-)

La seconde solution etait la bonne, mais il m'a fallu bidouiller pour qu'elle fonctionne sous VB.NEt

Merci !!

seb.

Pym Corp · Answer

Salut je te conseille ces deux sources vb.net de spy166 :

&#8226; Déplacer sans barre de titre de deux façons (api & sans api)
http://www.vbfrance.com/code.aspx?id=7308

&#8226; Déplacer sans barre de titre mais avec bordure magnétique (sans api)
http://www.vbfrance.com/code.aspx?ID=18457

http://www.pym-corp.com/

Déplacer une form avec la souris

6 réponses

Discussions similaires