AutoIt Français

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <IE.au3>
#include <GuiTab.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=d:\apps\autoit3\koda_1.7.0.1\forms\form1.kxf
$Form1_1 = GUICreate("Form1", 633, 321, 186, 134)
$Button1 = GUICtrlCreateButton("Button1", 72, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button12 = GUICtrlCreateButton("Button2", 200, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click2")

$Button123 = GUICtrlCreateButton("Button3", 400, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click3")

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
$tab1 = GUICtrlCreateTab(40, 24, 569, 233)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("rr")
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,50,50,500,200)
_IENavigate($ie,"http://google.fr")

GUICtrlSetOnEvent(-1, "Tab1Change")
$Button1 = GUICtrlCreateButton("Button1", 72, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func Button1Click()
GUICtrlCreateTabItem("rr")
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,50,50,500,200)
$url = InputBox("url","","http://")
_IENavigate($ie,$url)

EndFunc



Func Button1Click2()
MsgBox(0,"",_GUICtrlTab_GetCurSel($tab1))

EndFunc





Func Button1Click3()
    if _GUICtrlTab_GetCurSel($tab1) <> 0 then
_GUICtrlTab_DeleteItem($tab1,_GUICtrlTab_GetCurSel($tab1))
ControlHide("Form1","",$tab1)
ControlShow("Form1","",$tab1)
EndIf
EndFunc







Func Form1_1Close()
exit
EndFunc
Func Form1_1Maximize()

EndFunc
Func Form1_1Minimize()

EndFunc
Func Form1_1Restore()

EndFunc
Func Tab1Change()

EndFunc