begin process at 2012 02 13 21:24:47
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Formulaire

 > TOUJOURS VISIBLE

TOUJOURS VISIBLE


 Information sur la source

Note :
9,17 / 10 - par 12 personnes
9,17 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Formulaire Classé sous :alwaysvisible, feuille, toujours, visible Niveau :Débutant Date de création :15/05/1999 Vu / téléchargé :10 102 / 1 018

Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note


 Description

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

Mettez le code suivant dans un module :

Source

  • 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
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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

 Sources de la même categorie

Source avec Zip GEST COTISATION - ASSOCIATION par MOHA555
Source avec Zip HSCROLLBAR POUR L'ARRIÈRE PLAN par 320C
Source avec Zip Source avec une capture Source .NET (Dotnet) METTRE VOTRE FORM VB.NET EN PLEINE ÉCRAN par Gabilach
RECHERCHE DANS UNE LISTE À PARTIR D'UN CHAMP TEXTE par jmeunier
Source avec Zip GESTION DES COMSOMMABLE par gboraud

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) PIERRE PAPIER CISEAUX par Ultrabytes
Source avec Zip Source avec une capture VBA DEUX NOUVELLES FONCTIONS EXCEL (NBVAL_DISTINCT ET NBVAL_... par BILLOTmi
Source avec Zip Source avec une capture ÔTER PROTECTION FEUILLE D'UN CLASSEUR EXCEL & TROUVER MOT D... par stef68600
FENETRE TOUJOURS VISIBLE par olg137
Source avec Zip UNE FEUILLE TOUJOURS VISIBLE par Jonef

Commentaires et avis

Commentaire de advisor le 08/09/2002 15:44:00

oui mais bon, pas mal, sauf que ça fonctionne pas pour les form sous MDI !

Commentaire de Jujufouq le 28/10/2002 13:37:52

Merci bien.

Commentaire de JTR00062 le 04/06/2003 23:43:55

Marche Nikel !
Merci bcp

Commentaire de AlexKid le 31/07/2003 08:31:47

Haou super terrible juste ce que je cherchais depuis un petit moment
MAIS c normal si dans la feuille on a des infos bulles et que ces dernieres n apparaissent plus qd on est en always on top ? ca fe la meme chose dans Winamp avec le meme procede (alwys on top)

Est il possible d y remedier

Commentaire de fifipil909 le 17/10/2003 10:02:51

10/10

Commentaire de Jackeror le 17/10/2003 10:27:09

Bonjour, je voudrais savoir si il est possible de convertir se code en VBscript pour pouvoir le mettre dans une page HTML. Si oui pouvez vous me montrer ce que ça donnerais dans les grandes lignes.

Commentaire de shadowmoy le 29/01/2004 02:18:27

non Jackeror car le vbscript ne gere pas les api windows il te faux utiliser une dll activex et utiliser un createobject ou une bidouille du genre ...

Commentaire de abbassi_omar le 03/04/2005 01:46:54

salut je veut savoire comment acceder au multimedia apartire du VB6
merci de votre aide

Commentaire de Stephane84 le 22/04/2006 20:10:29

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

Commentaire de mabrouklepoux le 13/12/2006 23:05:27

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 ...

Commentaire de CORBnet le 09/03/2007 22:44:59

10

Commentaire de jjmaster le 25/01/2008 14:26:43

Merci c'est ce que je cherchais !!
Bonne continuation

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Obliger une feuille à rester toujours au premier plan [ par djiby ] Comment faire pour obliger une feuille a rester toujours au premier plan.Merci Fenêtre toujours visible [ par Vincentsoft ] SalutJe pense que c'est une question bête mais bizarrement, je n'arrive pas à y répondre.Voilà, je voudrai savoir comment on fait pour que la fenêtre pour que les prog soi en toujours visible [ par tobas ] Bonjour comment puis'je faitr pour que un de mes programmes soient toujours visible ( en fait quelle soient toujours en premier plan ) Feuille Visible? [ par julien ] Bonjour, Comment savoir si une feuille est visible.Quand ,je teste If MaFeuille.Visible = True then ...Mafeuille s'ouvre ? FORM Toujours visible et msgbox [ par moustachu ] J'utilise des "FORM toujours visible" à l'aide de l'api bien connue mais mes msgbox apparaissent derrière mes forms du coup. Je suis sûr que quelqu'un Form toujours visible / always on top dans le cas d'un MDIChild [ par Swirl ] Bonjour,J'ai une Form ayant la propriété MDIChild à "yes" et j'aurais souhaité que celle-ci reste toujours visible tant qu'elle n'est pas fermée via u Form toujours visible / always on top dans le cas d'un MDIChild [ par Swirl ] Bonjour,J'ai une Form ayant la propriété MDIChild à "yes" et j'aurais souhaité que celle-ci reste toujours visible tant qu'elle n'est pas fermée via u Application toujours Visible ? [ par thomas_anderson ] Comment faire pour que mon application soittoujours visible même lorsqu'un autr programme va dessus ? Feuille toujours sélectionnée [ par DDelec24 ] Bonsoir.Voila mon mon problème, mon programme est "fini" (juste quelques trucs) mais j'ai un problème de focus je pense, ma form doit resté toujours d Bouton toujours visible sous VBA [ par stolken ] Salut tt le monde,Je voudrais savoir comment on fait pour rendre un bouton toujours visible dans VBA (Excel).Merci d'avance


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,655 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales