Discussion :

[DevAmat]

Bonjour

Je cherche à savoir comment faire ce qui permettrait de bouger une Form qui n'a pas de bordure.

Merci de votre aide par avance

EDIT: C'est bon j'ai trouver pour ceux qui cherche il faut placer ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
  Dim doDrag As Boolean  
  Dim x As Integer  
  Dim y As Integer  
 
  Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown  
      doDrag = True
      x = Windows.Forms.Cursor.Position.X - Me.Left
      y = Windows.Forms.Cursor.Position.Y - Me.Top
  End Sub      
 
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
      If doDrag Then
          Me.Top = Windows.Forms.Cursor.Position.Y - y
          Me.Left = Windows.Forms.Cursor.Position.X - x
      End If
   End Sub      
 
  Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp  
      doDrag = False
  End Sub  
End Class

[breton51]

utilisation des api ReleaseCapture et SendMessage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
    <DllImport("user32.dll")> _
    Public Shared Function ReleaseCapture() As Integer
    End Function
 
    <DllImport("user32.dll", EntryPoint:="SendMessageA")> _
    Public Shared Function SendMessage(ByVal hwnd As Integer, _
                                   ByVal wMsg As Integer, _
                                   ByVal wParam As Integer, _
                                   ByRef lParam As Integer) As Integer
    End Function
 
    Public Const HTCAPTION As Integer = 2
    Public Const WM_NCLBUTTONDOWN As Integer = 161
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If
    End Sub

j'ai ajouter un exemple (test.zip) qui donne en plus le façon de déplacer la fenêtre en cliquant sur une picturbox ou la façon de déplacer la picturebox a l'intérieur de la fenêtre.

Bonne journée