Discussion :

[Eric]

Bonjour,

J'ai réalisé un petit EXE en VB6.

Le principe de fonctionnement est le suivant :
- A partir d'un clic sur une icône de mon application celle ci va lancer un programme VB,
- Cet exe lance Internet Explorer et se connecter sur un site.

Il fonctionne bien mais mon problème est que ma fenêtre IE se réduit ensuite dans la barre des taches sans que je lui demande.
Je bute pour lui indiquer de rester au premier plan des applications.
Pourtant pendant exécution de l'EXE est bien au premier plan et la frustration c'est qu'au final elle se réduit et se colle dans la barre des tâches.
Il faut donc que l'utilisateur clique dessus afin d'en visualiser le contenu.

A toutes fins utiles voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Check = False
Set IE = New InternetExplorer
IE.Visible = True
If Not (Check) Then
IE.navigate ("https://www.monsite.com")
        IE.Left = 0
        IE.Top = 0
        iHeight = IE.Height
        iWidth = IE.Width
        IE.TheaterMode = True
        IE.Height = iHeight
        IE.Width = iWidth
        IE.Visible = True
        Do While IE.readyState <> 3
        '
        Loop
        Do While IE.readyState <> 4
        '
        Loop
        Set IEdoc = IE.document
End If

Merci par avance de vos réponses

[ProgElecT]

Salut

avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim Check
Dim IE As InternetExplorer
Dim IEdoc
Dim iHeight As Integer, iWidth As Integer
 
Check = False
Set IE = New InternetExplorer
IE.Visible = True
If Not (Check) Then
IE.Navigate ("http://www.developpez.net")
        IE.Left = 0
        IE.Top = 0
        iHeight = IE.Height
        iWidth = IE.Width
        IE.TheaterMode = True
        IE.Height = iHeight
        IE.Width = iWidth
        IE.Visible = True
        Do While IE.ReadyState <> READYSTATE_INTERACTIVE '3
        DoEvents '
        Loop
        Do While IE.ReadyState <> READYSTATE_COMPLETE '4
        DoEvents '
        Loop
        Set IEdoc = IE.Document
End If

Chez moi pas de problème, IE reste au premier plan

[Eric]

Même en reprenant ce code tel quel j'ai toujours le même problème.

IE s'ouvre en premier plan, se connecte au site et dès que l'EXE est terminé IE n'est plus au premier plan.
J’obtiens d'ailleurs un comportement identique tant en compilé qu'en debug via l'éditeur VB.
J'ai du mal à comprendre.
Tests réalisés sous Windows 2003, XP, Windows 7 et Serveur 2008.
En fait l'utilisateur doit donc cliquer dans la barre des taches pour amener IE au 1er plan.

[Eric]

Il s'agit bien là d'un problème lié à Windows 7 et Windows Serveur 2008 ou la gestion des fenêtres a été modifiée. Le problème n'est pas constaté sous Windows 2000, 2003 et XP.

Si quelqu'un à une idée sur un paramétrage à appliquer sur Windows à ce sujet.