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