IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com est spécialisé dans les stylos en bois. Beaucoup de choix d'essences de bois. Cela peut faire un beau cadeau pour un mariage, la famille, les amis et peut-être même pour distribuer à vos clients.

 

 
Partenaires

 Les Partenaires

 
 

Feuille Visible  



Paramètres en entrée : hwnd (long)
Paramètres en sortie : FeuilleVisible (booléen)

Copiez (TOUT) le code ci-dessous dans un module
Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Function FeuilleVisible(hwnd As Long) As Boolean
   If IsWindowVisible(hwnd) = 0 Then
       FeuilleVisible = False
   Else
       FeuilleVisible = True
   End If
End Function

Petit exemple :
créez un bouton Command1 et un bouton Command2 sur la feuille Form1.
Ajoutez une feuille Form2.
dans Command2_Click() mettez : Form2.Show
dans Command1_Click() mettez : MsgBox FeuilleVisible(Form2.hwnd)
Exécutez le projet (Touche F5)
Si vous cliquez sur Command1 un message FAUX apparaît (normal car Form2 n'est pas visible).
Si vous cliquez sur Command2 vous faites apparaître la Form2, cliquez ensuite sur Command1 et là le message est VRAI.
 


[ ObjetsBois : des stylos en bois, des bagues en bois et autres objets en bois de qualité ]
[ Création de bijoux en bois ou bagues en bois sur mesure ]
[ Turf-France ] -[ turf / pmu / paris ]

Copyright © 2000-2014 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel