0/5 (8 avis)
Snippet vu 9 315 fois - Téléchargée 65 fois
'ca c est a mettre dans le general Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private dx As Integer, dy As Integer, dwn As Integer Private Type POINTAPI X As Long Y As Long End Type 'celui ci dans me mousedown Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single) dx = X dy = Y dwn = True End Sub 'celui ci dans le mouse move Private Sub Form_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single) If dwn Then Move Left + (X - dx), Top + (Y - dy) u% = DoEvents 'make sure it cleans up 'u est un integer End If End Sub 'et celui la dans le mouse up Private Sub Form_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single) dwn = False End Sub
6 nov. 2013 à 19:09
Dim mouse_offset
Private Sub Form1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseDown
mouse_offset = New Point(-e.X, -e.Y)
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(mouse_offset.X, mouse_offset.Y)
Location = mousePos
End If
End Sub
13 août 2009 à 07:27
Il ne aut pas utiliser ce code.
dans les parametres d'affichage, on peut dire de ne pas afficher le contenu des fenetres lorsqu'on les deplace.
toi, tu déplaces la chose a la main, tu n'en fait qu'a ta tête.
ce genre de code est pourtant basique:
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Long = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End Sub
13 août 2009 à 00:22
28 juin 2005 à 00:52
Tu peu ausi l'apliquer sur des images si tu remplace le Form1 par Image1 :)
12 déc. 2002 à 23:37
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.