Mettre la form tout devant...

0/5 (5 avis)

Snippet vu 2 457 fois - Téléchargée 40 fois

Contenu du snippet

Un petit code pour mettre la form tout devant.
C un classique, dont je suis sur qu'il existe déjà...
mais c un code qui est souvent utile, et certains trouveront ce qu'ils chercheront.

Source / Exemple :


Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Public Function PForm(ByVal frmA As Form, Optional bDevant As Boolean = True) As Long
If bDevant Then
    PForm = SetWindowPos(frmA.hwnd, HWND_TOPMOST, frmA.Left \ Screen.TwipsPerPixelX, frmA.Top \ Screen.TwipsPerPixelY, frmA.Width \ Screen.TwipsPerPixelX, frmA.Height \ Screen.TwipsPerPixelY, 0)
Else
    PForm = SetWindowPos(frmA.hwnd, HWND_NOTOPMOST, frmA.Left \ Screen.TwipsPerPixelX, frmA.Top \ Screen.TwipsPerPixelY, frmA.Width \ Screen.TwipsPerPixelX, frmA.Height \ Screen.TwipsPerPixelY, 0)
End If
End Function

Conclusion :


voila...

A voir également

Ajouter un commentaire Commentaires
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012

8 févr. 2003 à 18:48
BRRR sa resemble étrangement a un truc que jai utiliser dans mes project ya longtemps et que javais us sur vbfrance....Enfin je supose qu'il y a pas 10 000 moyen de faire sa allors la resemblance doit etre normal
crendel
Messages postés
34
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
22 juin 2004

8 févr. 2003 à 13:21
Ne marche pas sous win xp
NISANDSYSTEMS
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014

8 févr. 2003 à 13:19
Pas besoin de reinventer la roue AtomWare.
Regarde ce qui existe deja, tire-en tes idées en construit qlq chose
de new, mais pas du vieux...
Je t'invite a visiter les sources de ce site, tu y trouveras réponse a ton attente....
@+
AtomWare
Messages postés
71
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
11 novembre 2004

8 févr. 2003 à 11:52
il faut faire
pform me, false ' Pour ne plus mettre devant
pform me, true ' pour mettre devant
cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004

8 févr. 2003 à 11:35
ouais c bien ,mais ya pas l option ne plus metre devant .

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.