Discussion :

[stigma]

Bonjour,
Je veux déplacer une form sans utiliser la barre de titre car elle est cachée. J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    If Button = 1 Then
        Me.Left = X
        Me.Top = Y
    End If
 
End Sub

Mais ça ne donne pas de bons résultats et quand je relache le bouton, la form ne se positionne bas bien.
Merci pour vos conseils.

[DarkVader]

Voir du coté des API :
- surveillance des évènements souris
- capture de la position souris
- si la souris se situe sur la form alors
=> position de la form modifiée par déplacement tant que souris appuyée

une recherche sur getcursorpos devrait déjà te renseigner sur l'essentiel

[leroissejp]

Bonjour,
Ce code n'utilise pas d'Api.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim DX As Integer, DY As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  DX = X
  DY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbKeyLButton Then
    Me.Left = Me.Left + (X - DX)
    Me.Top = Me.Top + (Y - DY)
  End If
End Sub

jpleroisse

[ThierryAIM]

et avec API, il y a la

http://vb.developpez.com/faq/?page=Form#deplacer_form

[DarkVader]

Vieux réflexe
+1

[stigma]

Bravo, le code de leroissejp marche parfaitement et répond à mon besoin.
MERCI