Mettre une fenetre en mode toujours visible.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 550 fois - Téléchargée 63 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
J'ai trouvé plus simple en VB 2008 :
Me.TopMost = True ou Flase
;)
Utilisateur anonyme
Pour VB 2008, il faut juste changer "who.hwnd" par "who.Handle" pour que ça fonctionne.

Extra ! Ca vaut un 10 ! ;)
Messages postés
209
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
6 novembre 2009

Magnifique
Extra
Fonctionne

10/10

Rien à dire
Messages postés
99
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
16 juin 2007

Autent pour moi, desoler

FREEGAMER
Messages postés
1258
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2
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.