guiguidu25
- Messages postés
-
280
- Date d'inscription
- samedi 6 mai 2006
- Statut
- Membre
- Dernière intervention
- 9 février 2010
1
Utilise ça pour déplacer ta fenêtre avec "none" :
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
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.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End
If
End
Sub
Black G - Le futur de Microsoft