Deplacer un formulaire sans barre de titre
Fermé
peters kinzilo
Messages postés
1
Date d'inscription
lundi 3 septembre 2012
Statut
Membre
Dernière intervention
3 septembre 2012
-
3 sept. 2012 à 13:30
f894009 Messages postés 17181 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 mars 2024 - 3 sept. 2012 à 15:38
f894009 Messages postés 17181 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 mars 2024 - 3 sept. 2012 à 15:38
A voir également:
- Deplacer un formulaire sans barre de titre
- Deplacer barre de tache windows 11 - Guide
- Déplacer une colonne excel - Guide
- Je cherche une chanson dont je ne connais pas le titre - Guide
- Égal barré ✓ - Forum Clavier
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
1 réponse
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
Modifié par f894009 le 3/09/2012 à 15:39
Modifié par f894009 le 3/09/2012 à 15:39
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