AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 01:55:36
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SAVOIR SI LA FENETRE EST TOUJOURS ACTIVE


Information sur la source

Catégorie :Formulaire Classé sous : fenêtre, active, getactivewindow Niveau : Débutant Date de création : 15/05/1999 Vu : 5 800
Auteur : Nix Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
4 / 10 - par 2 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

Comment faire pour savoir si la fenêtre est toujours active ?

Créez un formulaire avec une Horloge (Timer1)
Mettez ce code dans un Module :
 

Source

  • Private Declare Function GetActiveWindow Lib "user32" () As Long
  • Public lgnWin As Long
  • ' Puis dans le Code de votre Formulaire, mettez ce code :
  • Private Sub Form_Load()
  • MaFenetre = Me.hWnd
  • End Sub
  • Private Sub Timer1_Timer()
  • If MaFenetre <> GetActiveWindow Then Me.WindowState = vbMinimized
  • End Sub
Private Declare Function GetActiveWindow Lib "user32" () As Long
Public lgnWin As Long

' Puis dans le Code de votre Formulaire, mettez ce code :

Private Sub Form_Load()
    MaFenetre = Me.hWnd
End Sub

Private Sub Timer1_Timer()
    If MaFenetre <> GetActiveWindow Then Me.WindowState = vbMinimized
End Sub

Commentaires et avis

signaler à un administrateur
Commentaire de GrosLolo le 14/04/2006 09:39:18

C'est vrai que tel quel le code n'est pas super génial mais il fonctionne !

Private Declare Function GetActiveWindow Lib "user32" () As Long
...
...
if (MyForm.hWnd = GetActiveWindow) then
   ' Ma fenêtre est active
else
   ' ou elle ne l'est pas
end if

GrosLolo.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

hwnd d'une fenêtre [ par psychodingue ] Comment je peux faire pour trouver le hwnd de la fenêtre active svp? En fait, je voudrai pouvoir détecter si la fenêtre de mon prog est celle active o Fermer une fenêtre DOS active [ par Lolo ] Comment fermer une fenêtre DOS qui est active.shell( "command.com") Comment connaître le nom de la fenêtre MDI active ? [ par FalcoN ] Comment connaître le nom de la fenêtre MDI active ?(Pour ensuite récupérer grâce à ce nom le fichier qui est ouvert... pour pouvoir l'éxécuter...) URGENT : Nom ou handle de l'application (fenêtre) active du bureau. [ par Philippe ] Bonjour,Je souhaiterais savoir s'il est possible de récupérer le nom (ou le handle) de la fenêtre actuellement active du bureau.Merci de votre aide. FENETRE ACTIVE [ par yoarf ] Bonjour,Je développe en vb Access. Je fais appel et j'ouvre un document Excel. Celui-ci donc s'affiche. Ainsi le fichier Excel devient la fenêtre acti Mettre une fenêtre active au 1er plan [ par JMO ] &nbsp;Bonjour &#224; tous....En VBS, j'arrive &#224; &#233;num&#233;rer les fen&#234;tres et les ID associ&#233;es.Mais comment mettre une application Quelle fenêtre active ? [ par elyote666 ] Salut &#224; tous !Comment faire pour que mon programme d&#233;tecte quelle fen&#234;tre&nbsp;&#224; le focus&nbsp;dans Windows.&nbsp;Merci de vos r&# Rendre une fenêtre active [ par manud31 ] Bonsoir &#224; tous, Comment rendre une fen&#234;tre VB active quand c'est la f&#234;n&#234;tre d'un autre logiciel qui l'est? Par exemple si userform Sendkeys autre que dans fenêtre active [ par Lolobibop ] Bonjour,J'ai essayé d'automatiser des tâches quotidienne avec un logiciel Clavier+Une combinaison de frappe de touches permet de faire des actions.Il


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Microsoft Visual Studio Pro 2008 (Windows 32 bits)
Entre 660€ et 749€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo homme nuPhoto alphabet signes des sourds

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
Temps d'éxécution de la page : 0,187 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.