A voir également:
- Deplacer un formulaire sans barre de titre
- Whatsapp formulaire opposition - Guide
- Déplacer colonne excel - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Deplacer barre de tache windows 11 - Guide
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
1 réponse
Bonjour,
'API windows deplacer un form sans bordure
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
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Code a adapter pour VB.net
'VB6:Permet de deplacer une forme sans bordure
'-----------------------------------------
A voir
'API windows deplacer un form sans bordure
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
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Code a adapter pour VB.net
'VB6:Permet de deplacer une forme sans bordure
'-----------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
End Sub
A voir
