Contrôle IE
Posté : mar. 21 août 2018 11:30
Bonjour,
Est-il possible d'embarquer dans une gui un contrôle IE qui reconnaisse la balise de surlignage <mark> comme dans l'exemple 1 ci dessous ?
#include <IE.au3>
#include <GUIConstants.au3>
Global $sHTML = "<!DOCTYPE html><html><body><h1>Hello <mark>World</mark> !<h1></body></html>"
FileDelete("essai.htm")
FileWrite("essai.htm", $sHTML)
Surlign1() ; mot surligné mais pas de GUI
;Surlign2() ; pas surligné
;Surlign3() ; pas surligné
func Surlign1()
Local $oIE = _IECreate()
Local $sHTML = "<h1>Hello <mark>World</mark> !<h1>"
_IEBodyWriteHTML($oIE, $sHTML)
EndFunc
func Surlign2()
GUICreate("titre", 400, 200, 0, 0)
local $oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 20, 20, 300, 100)
_IENavigate($oIE, "file:///" & @ScriptDir & "/essai.htm")
GUISetState(@SW_SHOW)
Do
until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc
func Surlign3()
Local $oIE = _IECreateEmbedded()
GUICreate("titre", 400, 200, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 20, 20, 300, 100)
_IENavigate($oIE, "file:///" & @ScriptDir & "/essai.htm")
GUISetState(@SW_SHOW) ;
Do
until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc
Est-il possible d'embarquer dans une gui un contrôle IE qui reconnaisse la balise de surlignage <mark> comme dans l'exemple 1 ci dessous ?
#include <IE.au3>
#include <GUIConstants.au3>
Global $sHTML = "<!DOCTYPE html><html><body><h1>Hello <mark>World</mark> !<h1></body></html>"
FileDelete("essai.htm")
FileWrite("essai.htm", $sHTML)
Surlign1() ; mot surligné mais pas de GUI
;Surlign2() ; pas surligné
;Surlign3() ; pas surligné
func Surlign1()
Local $oIE = _IECreate()
Local $sHTML = "<h1>Hello <mark>World</mark> !<h1>"
_IEBodyWriteHTML($oIE, $sHTML)
EndFunc
func Surlign2()
GUICreate("titre", 400, 200, 0, 0)
local $oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 20, 20, 300, 100)
_IENavigate($oIE, "file:///" & @ScriptDir & "/essai.htm")
GUISetState(@SW_SHOW)
Do
until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc
func Surlign3()
Local $oIE = _IECreateEmbedded()
GUICreate("titre", 400, 200, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 20, 20, 300, 100)
_IENavigate($oIE, "file:///" & @ScriptDir & "/essai.htm")
GUISetState(@SW_SHOW) ;
Do
until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc