Deplacer un formulaire sans barre de titre
Description
Comment puis-je déplacer mon Formulaire qui n'a pas de Barre de Titre ?
Mettez ce code dans votre Formulaire :
Mettez ce code dans votre Formulaire :
Source / Exemple :
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" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ValRetourLng As Long
If Button = 1 Then
Call ReleaseCapture
ValRetourLng = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
Codes Sources
A voir également
- Deplacer un formulaire sans barre de titre
- Barre de recherche php - Forum PHP
- Civilité sur un formulaire - Forum VBA Office (Excel, Word ...)
- Vba barre de progression - Forum Visual Basic
- Créer un formulaire de réservation en ligne - Forum PHP
- Recherche dans base mysql ✓ - Forum PHP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.