Page 1 sur 1
[R] Garder le bouton toujours visble
Posté : lun. 02 juil. 2012 12:14
par 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
Re: [..] garder le bouton toujours visble
Posté : lun. 02 juil. 2012 12:18
par 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
Re: [..] garder le bouton toujours visble
Posté : lun. 02 juil. 2012 12:30
par 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.
Re: [..] garder le bouton toujours visble
Posté : lun. 02 juil. 2012 16:27
par 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.
Re: [..] garder le bouton toujours visble
Posté : lun. 02 juil. 2012 18:07
par 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
Re: [..] Garder le bouton toujours visble
Posté : mar. 03 juil. 2012 10:24
par 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.
Re: [..] Garder le bouton toujours visble
Posté : mar. 03 juil. 2012 11:15
par 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
Re: [..] Garder le bouton toujours visble
Posté : mar. 03 juil. 2012 14:08
par 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
Re: [..] Garder le bouton toujours visble
Posté : mar. 03 juil. 2012 20:44
par blacksoul305
mikell a écrit :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.
Re: [..] Garder le bouton toujours visble
Posté : sam. 07 juil. 2012 10:58
par 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.