begin process at 2012 02 16 07:57:27
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Control

 > FENETRE TOUJOURS VISIBLE

FENETRE TOUJOURS VISIBLE


 Information sur la source

Note :
6,86 / 10 - par 7 personnes
6,86 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Classé sous :fenetre, toujours, visible, setwindowpos, hwndtopmost Niveau :Débutant Date de création :11/09/2000 Vu :9 372
Auteur : olg137

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Les déclarations sont à copier dans un Module
Le reste (les SetWindowPos) dans une feuille nommée Feuille1

Source

  • 'Déclarations :
  • Declare Sub 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)
  • Global Const HWND_TOPMOST = -1
  • Global Const HWND_NOTOPMOST = -2
  • Global Const SWP_NOACTIVATE = &H10
  • Global Const SWP_SHOWWINDOW = &H40
  • Feuille :
  • 'Active le "Toujours visible"
  • SetWindowPos Feuille1.hWnd, HWND_TOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  • 'Désactive le "Toujours visible"
  • SetWindowPos Feuille1.hWnd, HWND_NOTOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW 
'Déclarations :

Declare Sub 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)
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40


Feuille :

'Active le "Toujours visible"
SetWindowPos Feuille1.hWnd, HWND_TOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
   
'Désactive le "Toujours visible"
SetWindowPos Feuille1.hWnd, HWND_NOTOPMOST, Feuille1.Left / 15, Feuille1.Top / 15, Feuille1.Width / 15, Feuille1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW



 Sources du même auteur

ENVOYER EN E-MAIL AVEC OUTLOOK EXPRESS SOUS VB
Toutes les sources de olg137

 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007
Toutes les sources de la catégorie Control

 Sources en rapport avec celle ci

FERMER UNE FENÊTRE SELON MOT CLÉ DANS SON TITRE par CerberusPau
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 TRIOCOLOR JEU DE DOMINOS EN COULEURS (VB6) par philbar71
Source avec Zip Source avec une capture PRIORISATEUR D'AFFICHAGE (PERMET D'AFFICHER EN PREMIER PLAN ... par Zeroc00l
Source avec Zip TOUJOURS VISIBLE par Nix

Commentaires et avis

Commentaire de advisor le 08/09/2002 16:01:22

ne fonctionne pas pour les form déclarées en MDICHild Yes

Commentaire de Vedlen le 18/05/2004 17:04:13

simple et efficace.... merci (9/10)

Commentaire de damienlemiere le 01/02/2007 14:31:43

"Me.hWnd" n'est pas reconnu chez moi, je suis sous vs 2003, j'ai essayer plusieur sources du même type et c'est sur cette variable que sa bloque. auriez vous déja eu le problème? et par la même occasion trouver une solution à celui-ci?
merci d'avance!

Commentaire de MiciM le 23/08/2010 16:22:52

Plus simple en VB .net:

Me.TopMost (True or False)
;)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Fenetre TOUJOURS visible [ par Alambic Citizen ] Bonjour,J'ai un problème, et bien que j'ai parcourus ce site de long en large, en vain (enfin en vain, façon de parler).Alors voilà :Je voudrais qu'un 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 Fenetre non visible [ par scoobydoos ] salut,Dans un form, j'ai mis une image. Est-il possible lorsque que j'appelle cette fenetre d'afficher juste l'image et non pas le form ? Suis-je expl fenetre toujours active [ par kawa11 ] salut,j'ai un fenetre qui reste toujours au premier plan dans laquelle des boutons sont actives par des raccourcis clavier, mais je suis obligé de cli Scrollbar toujours visible ds une listview [ par dosba91 ] Bonjour à tous, comment faire pour que la scrollbar verticale de la listview soit toujours visible ? Merci 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 Fenetre toujours derriere... Comment ? [ par bilaloch ] Bonjour a tous  ,Y a t'il une facon d'obliger une fenetre a rester derriere toutes les autres fenetres ?Merci  ... Propriété form [ par toosdu87 ] Salut a tous, est ce que quelq'un connait une propriété qui me permettrai de connaitre la position de ma fenetre par rapport au autre.En fait je voudr défilement des lignes excel toujours visible [ par ilde ] salut, je voulais savoir s'il était possible sur excel avec du VBA d'avoir des lignes du tableur qui descendent et restent toujours visible en même te Afficher une fenetre devant une autre [ par MadM@tt ] Bonjour à tous,Voilà, tout simplement j'aimerais placer une fenetre devant une autre. Pas de fenetre devant toutes les autres, juste une devant une au


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo bora-bora 

Visiter la 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,343 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)