Détecter Internet Explorer en plein écran

Bonjour tout le monde,

Je dois admettre que je patauge un peu pour détecter quand la fenêtre
active d'Internet Explorer passe en mode plein écran, celui qu'on ouvre
avec F11.

Si il s'agit d'une fenêtre que j'ouvre avec mon application, ça va encore.

Set expl = CreateObject("InternetExplorer.Application")
expl.Visible = True

SiPleinEcran = expl.TheaterMode

et à la fin :

expl.Quit
Set expl = Nothing

Mais maintenant, si c'est l'utilisateur qui a ouvert Internet Explorer,
ça se gâte.

Set expl = GetObject("InternetExplorer.Application")
syntaxe incorrecte, erreur 800401E4

Set expl = GetObject("InternetExplorer.Application", vbNullString)
argument ou appel de procédure incorrect, erreur 5

Set expl = GetObject("InternetExplorer.Application", "")
ou
Set expl = GetObject("GetObject Function - Microsoft Internet Explorer",
"InternetExplorer")
le composant ActiveX ne peut créer l'objet, erreur 429

Si quelqu'un pouvait me souffler ce qu'il faut faire ...

D'ailleurs, une fois que j'aurai réussi à créer un objet sur IE, encore
s'agit-il que ce soit le bon, si il y a plusieurs fenêtres d'ouvertes.
J'ai bien essayé de mettre l'URL en deuxième argument ...

Je crois que pour des raisons de sécurité on n'a pas accès à une
instance de IE que l'on a pas crée. Mais si ça peut faire avancer
les choses, pour contourner le problème de syntaxe, tu ajoutes une
référence à :

Microsoft Internet Controls (shdocvw.dll)

et dans le code :

Dim ie As InternetExplorer

Set ie = GetObject("", "InternetExplorer.Application")

MsgBox ie.TheaterMode

Mais la réponse sera toujours False, et tu n'auras aucun contrôle sur
l'objet, et comme tu l'indique si tu as plusieurs fenêtres...

Mais maintenant, si c'est l'utilisateur qui a ouvert Internet Explorer,
ça se gâte.

Set expl = GetObject("InternetExplorer.Application")
syntaxe incorrecte, erreur 800401E4

Set expl = GetObject("InternetExplorer.Application", vbNullString)
argument ou appel de procédure incorrect, erreur 5

Set expl = GetObject("InternetExplorer.Application", "")
ou
Set expl = GetObject("GetObject Function - Microsoft Internet Explorer",
"InternetExplorer")
le composant ActiveX ne peut créer l'objet, erreur 429

Si quelqu'un pouvait me souffler ce qu'il faut faire ...

Set expl = GetObject( ,"InternetExplorer.Application")

Erreur 429 :)

On Mon, 10 Oct 2005 19:50:20 +0200, Gloops <gloops@niark.fr> wrote:

Erreur 429 :)

Alors comme ça pour compléter ce que répondais Jacques, avec une
réfrence à SHDOCVW.dll (Microsoft Internet Controls) : :

Dim ie As SHDocVw.InternetExplorer
Dim sh As New SHDocVw.ShellWindows

For Each ie In sh
Debug.Print ie.TheaterMode, ie.LocationURL
Next ie

L'explotareur de fichiers fait aussi partie de cette collection.

On Mon, 10 Oct 2005 19:50:20 +0200, Gloops <gloops@niark.fr> wrote:

Erreur 429 :)

Alors comme ça pour compléter ce que répondais Jacques, avec une
réfrence à SHDOCVW.dll (Microsoft Internet Controls) : :

Dim ie As SHDocVw.InternetExplorer
Dim sh As New SHDocVw.ShellWindows

For Each ie In sh
Debug.Print ie.TheaterMode, ie.LocationURL
Next ie

L'explotareur de fichiers fait aussi partie de cette collection.

>Je me demande si il y a un moyen plus élégant d'associer l'objet
ShellWindow à l'objet Window repéré par GetForegroundWindow()

Je m'en suis sorti comme ça :


Public Function EstTheatre(hWnd As Long) As Boolean
Dim ie As SHDocVw.InternetExplorer
Dim sh As New SHDocVw.ShellWindows
For Each ie In sh
If ie.hWnd = hWnd Then
EstTheatre = ie.TheaterMode
Exit Function
End If
Next
Set ie = Nothing
Set sh = Nothing
End Function

Chipotons :

If ie.hWnd = hWnd Then
EstTheatre = ie.TheaterMode
Set ie = Nothing
Exit Function
End If