[R] Garder le bouton toujours visble

[cluster49]

Bonjour,

N'étant pas vraiment à l'aise avec autoit je viens vers vous pour un problème que je n'arrive pas à résoudre.

J'ai réalisé un script qui me permet d'afficher une page web et de rajouter un bouton par dessus. Cependant lorsque je lance le script le bouton (en bas à droite) n'apparait que lorsque la souris passe dessus. De plus lorsque la souris passe ensuite sur un lien de la page cela fait disparaitre le bouton. Il faut alors repositionner le curseur de la souris au niveau du bouton pour qu'il réapparaisse. Or, je veux que mon bouton soit toujours visible devant la page web. Y a-il une solution simple ?

Merci pour votre aide.

Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Example()

Func Example()
   Local $Button_1, $msg
   $oIE = ObjCreate("Shell.Explorer.2")
   GUICreate("Bornes d'Information", 1040, 734, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
   Opt("GUICoordMode", 1)
   $Button_1 = GUICtrlCreateButton("notepad", 0, 0, 160, 40, -1, -1)
   GUISetBkColor(0x0083a4)
   GUICtrlSetDefBkColor(0x000000)
   GUICtrlSetPos ( $Button_1, 800, 620)
   $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1040, 734)
   $oIE.navigate("http://www.google.fr")
   GUISetState()
   While 1
      $msg = GUIGetMsg()
      Select
         Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
         Case $msg = $Button_1
            Run('notepad.exe') ; ouvre Notepad
      EndSelect
   WEnd
EndFunc   ;==>Example
 

[Uranium]

Le créer après l'objet ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Example()

Func Example()
   Local $Button_1, $msg
   $oIE = ObjCreate("Shell.Explorer.2")
   GUICreate("Bornes d'Information", 1040, 734, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
   Opt("GUICoordMode", 1)
   $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1040, 734)
   $oIE.navigate("http://www.google.fr")
    $Button_1 = GUICtrlCreateButton("notepad", 0, 0, 160, 40, -1, -1)
   GUISetBkColor(0x0083a4)
   GUICtrlSetDefBkColor(0x000000)
   GUICtrlSetPos ( $Button_1, 800, 620)
   GUISetState()
   While 1
      $msg = GUIGetMsg()
      Select
         Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
         Case $msg = $Button_1
            Run('notepad.exe') ; ouvre Notepad
      EndSelect
   WEnd
EndFunc   ;==>Example

[cluster49]

Merci pour ta réponse Uranium,

Cependant, en testant la solution que tu me proposes je ne vois plus du tout le bouton .

Pourtant je dois reconnaitre que la logique était là.

Je suis donc toujours à la recherche d'une solution.

[Dkstorisateur]

Personnellement je pense que le problème vient des actualisations de ta fenêtre principale.
Crée le bouton avec le paramètre $WS_CLIPCHILDREN et l'erreur devrai disparaitre.

[mikell]

Complications et prises de tête...
Essaye-le simple, comme ça

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUICoordMode", 1)

$oIE = ObjCreate("Shell.Explorer.2")
$gui1 = GUICreate("Bornes d'Information", 1040, 740, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1040, 734)
GUISetState()

$gui2 = GUICreate("btn", 160, 40, 800, 620, $WS_POPUP, $WS_EX_TOPMOST)
$Button_1 = GUICtrlCreateButton("notepad", 0, 0, 160, 40)
GUISetState()

$oIE.navigate("http://www.google.fr")

  While 1
      $msg = GUIGetMsg()
      Select
         Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
         Case $msg = $Button_1
            Run('notepad.exe') ; ouvre Notepad
      EndSelect
   WEnd
 

Mais les fonctions IE sont plus adaptées : _IECreateEmbedded , _IEAttach etc

[cluster49]

Merci pour vos réponses,

mikell, ta solution me plait bien en effet. Le seul petit souci c'est que maintenant le bouton reste toujours visible à l'écran. Il passe devant le notepad.

Y a t-il moyen de le laisser devant la page de google mais derrière toute autre fenêtre qui sera ouverte ?

Merci pour votre aide.

[Dkstorisateur]

Perso je vois pas ou est mon idée compliqué.
Le code de Base modifier:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Example()

Func Example()
   Local $Button_1, $msg
   $oIE = ObjCreate("Shell.Explorer.2")
   GUICreate("Bornes d'Information", 1040, 734, 0, 0, $WS_POPUP,$WS_CLIPCHILDREN)
   Opt("GUICoordMode", 1)
   $Button_1 = GUICtrlCreateButton("notepad", 0, 0, 160, 40, -1, -1)
   GUISetBkColor(0x0083a4)
   GUICtrlSetDefBkColor(0x000000)
   GUICtrlSetPos ( $Button_1, 800, 620)
   $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1040, 734)
   $oIE.navigate("http://www.google.fr")
   GUISetState()
   While 1
      $msg = GUIGetMsg()
      Select
         Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
         Case $msg = $Button_1
            Run('notepad.exe') ; ouvre Notepad
      EndSelect
   WEnd
EndFunc   ;==>Example

[mikell]

@Dkstorisateur, ta solution marche mais j'avais du flicker en cas de scroll
@cluster49, ça risque de devenir compliqué si tu veux enrichir le script
C'est pourquoi je te recommande de tester l'exemple de l'aide pour _IECreateEmbedded ()
Oui ça te ferait placer tes boutons en dehors du controle IE mais ça te laisserait beaucoup de liberté et ça t'éviterait une quantité non négligeable d'emmerdes

[blacksoul305]

C'est pourquoi je te recommande de tester l'exemple de l'aide pour _IECreateEmbedded ()
Oui ça te ferait placer tes boutons en dehors du controle IE mais ça te laisserait beaucoup de liberté et ça t'éviterait une quantité non négligeable d'emmerdes

+1.

[cluster49]

Merci à vous pour les suggestions. j'ai donc suivi vos conseils avec l'exemple de l'aide pour _IECreateEmbedded ()

Mon problème est donc maintenant résolu.