aico79
Messages postés3Date d'inscriptionmercredi 24 septembre 2008StatutMembreDernière intervention13 juillet 2009
-
13 juil. 2009 à 14:09
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
13 juil. 2009 à 15:27
J'aimerais savoir comment je peut faire bouger un formulaire sans bordure avec visual basic 2008 express édition. J'ai vu sur certain forum des codes mais ceux ci ne fonctionne pas avec ma version de visual. merci d avance
Private Declare Function
ReleaseCapture Lib"user32" () As Integer
Private Const HTCAPTION As
Integer = 2
Private Const WM_NCLBUTTONDOWN
As Integer = &HA1S
Private
Declare Function SendMessage Lib"user32"Alias"SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
Private Sub Form_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.ToInt32, WM_NCLBUTTONDOWN,
HTCAPTION, 0)
End If
End Sub