DÉPLACER UNE FORM AUTREMENT QU'AVEC LA BARRE DE TITRE WINDOWS

Commentaire de spy166 le 02/06/2003 22:41:10

Ben en vb6, ça serait comme ça (toujours avec un label comme exemple):

Dim DepartX As Integer
Dim DepartY As Integer

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DepartX = X
DepartY = Y
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> vbLeftButton Then Exit Sub
    Me.Left = Me.Left + (X - DepartX)
    Me.Top = Me.Top + (Y - DepartY)
End Sub

Commentaire de jotrash le 03/06/2003 18:19:57

merccccccccccciiiiiiiiiiiiiiiiiiiii

Commentaire de spy166 le 18/06/2003 23:14:28

Je viens de trouver le moyen qu'utilisent les barres de titre Windows, c'est encore plus simple que ma source!!
Surtout qu'il y a un léger bug avec le bouton gauche dans mon code: maintenez le bouton droit et le bouton gauche de la souris, bouger la souris, lacher le boutton gauche et bouger la souris...
Bref, voici the méthode:


Mettez ça dans un module:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2


Et ça dans l'évènement du truc de votre form, dont vous avez envie de vous servir pour déplacer la form:

If Button <> vbLeftButton Then
     Exit Sub
End If
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&


Voilà @+

Commentaire de jotrash le 19/06/2003 12:24:47

je pense quil a voulu dire 10/10

Commentaire de Benz le 15/08/2006 13:26:00

Impeccable, c'est exactement ce dont j'avais besoin. Code simple et efficace.
Pour le petit bug, j'ai pas encore testé, mais la solution semble être là aussi :)
Pour moi ca vaut 10/10.
Merci