Mettre une fenetre en mode toujours visible.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 705 fois - Téléchargée 65 fois

Contenu du snippet

dans un module:

Source / Exemple :


Option Explicit

'API nécessaire pour le mode "toujours visible"
Private 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

'toujours visible
Public Function forward(who As Form) 'who correspond au nom de la form  | exemple: form1
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(who.hwnd, -1, 0, 0, 0, 0, Flags)
End Function

'annuler toujours visible
Public Function backward(who As Form)
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(who.hwnd, -2, 0, 0, 0, 0, Flags)
End Function

Conclusion :


exemples:
forward form1 'activer toujours visible
backward form1 'desactiver toujours visible

A voir également

Ajouter un commentaire Commentaires
Utilisateur anonyme
23 août 2010 à 16:27
J'ai trouvé plus simple en VB 2008 :
Me.TopMost = True ou Flase
;)
Utilisateur anonyme
20 août 2010 à 20:04
Pour VB 2008, il faut juste changer "who.hwnd" par "who.Handle" pour que ça fonctionne.

Extra ! Ca vaut un 10 ! ;)
XelectroX Messages postés 209 Date d'inscription samedi 11 novembre 2000 Statut Membre Dernière intervention 6 novembre 2009
19 janv. 2007 à 19:23
Magnifique
Extra
Fonctionne

10/10

Rien à dire
cs_freegamer Messages postés 99 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 16 juin 2007
20 avril 2004 à 13:20
Autent pour moi, desoler

FREEGAMER
BlackWizzard Messages postés 1258 Date d'inscription mercredi 21 mars 2001 Statut Membre Dernière intervention 21 juin 2009 2
20 avril 2004 à 01:17
comme tu le dis, ce sera que dans l'appli VB, donc en cas de MDI. là c un code general, qui ne concerne pas les MDI.
Afficher les 10 commentaires

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.