karlkox | Vi, avec les API, c'est tres simple :
Code :
- Private Declare Function ReleaseCapture Lib "user32" () As Long
- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
- Const WM_NCLBUTTONDOWN = &HA1
- Const HT_CAPTION = 2
- Private Sub MoveWindow(Byval m_hWnd as long)
- ReleaseCapture
- call SendMessage(m_hWnd , WM_NCLBUTTONDOWN, HT_CAPTION, 0)
- End Sub
- ' Dans ta form, ca s'utilise comme ca :
- Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
-
- Call MoveWindow(me.hwnd)
-
- End Sub
|
Message édité par karlkox le 21-10-2002 à 15:34:04
|