Glissser une image avec la souris
ozibtissam
Messages postés
1
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
22 mai 2008
-
22 mai 2008 à 10:51
Utilisateur anonyme - 22 mai 2008 à 11:43
Utilisateur anonyme - 22 mai 2008 à 11:43
A voir également:
- Glissser une image avec la souris
- Convolution image - Conseils pratiques -Java
- Une image .tiff repose sur une palette de 256 000 couleurs. - Forum C / C++ / C++.NET
- Form image ✓ - Forum Visual Basic
- Jeux de mots avec image ✓ - Forum C# / .NET
- Dessin souris - Forum Visual Basic 6
1 réponse
Utilisateur anonyme
22 mai 2008 à 11:43
22 mai 2008 à 11:43
Salut,
C'est plus simple avec les apis :
Imports System
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
' ...
<DllImport("user32", EntryPoint:="SendMessageA")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As UInteger, _
ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
<DllImport("user32")> _
Private Shared Sub ReleaseCapture()
End Sub
Private Const WM_NCLBUTTONDOWN As Integer = &HA1UI
Private Const HTCAPTION As Integer = 2
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles PictureBox1.MouseMove
If e.Button = MouseButtons.Left Then
Dim Ctrl As Control = TryCast(sender, Control)
If Ctrl IsNot Nothing Then
Call ReleaseCapture()
Call SendMessage(Ctrl.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End If
End Sub
__________
Kenji
C'est plus simple avec les apis :
Imports System
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
' ...
<DllImport("user32", EntryPoint:="SendMessageA")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As UInteger, _
ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
<DllImport("user32")> _
Private Shared Sub ReleaseCapture()
End Sub
Private Const WM_NCLBUTTONDOWN As Integer = &HA1UI
Private Const HTCAPTION As Integer = 2
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles PictureBox1.MouseMove
If e.Button = MouseButtons.Left Then
Dim Ctrl As Control = TryCast(sender, Control)
If Ctrl IsNot Nothing Then
Call ReleaseCapture()
Call SendMessage(Ctrl.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End If
End Sub
__________
Kenji
