Toujours visible

Soyez le premier à donner votre avis sur cette source.

Vue 1 504 fois - Téléchargée 274 fois

Description

Comment rendre un formulaire toujours visible ( Always On Top ) ?

Mettez le code suivant dans un module :

Source / Exemple :


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

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Public Sub RendreFormTjsVisible(MonForm as object)
     SetWindowPos MonForm.hWnd,  HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE
End Sub

Public Sub RendreFormPasTjsVisible(MonForm as object)
     SetWindowPos MonForm.hWnd,  HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE
End Sub

'Pour Rendre le Formulaire Toujours Visible Faites : ( MonForm = Le nom de votre Formulaire )

RendreFormTjsVisible MonForm

'Pour que le Formulaire ne soit plus Toujours Visible Faites :

RendreFormPasTjsVisible MonForm

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
51
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
29 septembre 2010
1
Merci c'est ce que je cherchais !!
Bonne continuation
Messages postés
47
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
7 janvier 2012

10
Messages postés
84
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
25 juillet 2008

Pour que ca marche avec des non MDI, il faut remplacer
MonForm.hwnd
par
MonForm.Item(1).Parent.hwnd (à condition qu'il y ai au moins un élément dans la fenêtre)
ya pitèt plus propre cependant ...
Messages postés
16
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
12 avril 2017

oui ça fonctionne mais quelqu'un saurait me dire on peut faire la même chose avec "always on back" car je ne connais que cette constante "Private Const HWND_BOTTOM = 1"
merci
Messages postés
23
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
3 août 2007

salut je veut savoire comment acceder au multimedia apartire du VB6
merci de votre aide
Afficher les 12 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.