Deplacer un formulaire sans barre de titre

Soyez le premier à donner votre avis sur cette source.

Vue 10 338 fois - Téléchargée 560 fois

Description

Comment puis-je déplacer mon Formulaire qui n'a pas de Barre de Titre ?

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

Ajouter un commentaire

Commentaires

Merci, c'est utile ;)
bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
Super!!!
cs_stailer
Messages postés
511
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
13 mai 2009
1 -
Vala, c'est justement ce que je cherche. Merci.
Kicolas
Messages postés
2
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
8 février 2005
-
Super ! C'est exactement ce que je cherchais !!!
tareumleretour
Messages postés
38
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
22 mai 2005
-
Oui mais if button=2 comment on fait???

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.