[VB.Net] Déplacer une forme ou PictureBox avec la souris.

Tout est dans le titre.
- Ouvrir un nouveau projet.
- Coller une PictureBox.
Le code,
Public Class Form1 Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, ByVal lParam As String) As Integer Private Declare Sub ReleaseCapture Lib "user32" () 'Déplacement de la PictureBox Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Dim lHwnd As Int32 lHwnd = PictureBox1.Handle If lHwnd = 0 Then Exit Sub ReleaseCapture() SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End Sub 'Déplacement de la forme Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove Dim lHwnd As Int32 lHwnd = Me.Handle If lHwnd = 0 Then Exit Sub ReleaseCapture() SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End Sub End Class
Cliquer sur la pictureBox ou sur la forme et déplacer la souris déplace le contrôle ou la forme.
Fonctionne avec tout contrôle qui possède un Handle.
Ce document intitulé « [VB.Net] Déplacer une forme ou PictureBox avec la souris. » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.