#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <GuiTab.au3>
Global $tab, $oIE, $hGUI
Example()
Func Example()
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$hGUI = GUICreate("My GUI Tab", 600, 400)
$tab = GUICtrlCreateTab(10, 40, 580, 350)
GUICtrlCreateTabItem("Blank Page")
$GUIActiveX = GUICtrlCreateObj($oIE, 20, 70, 560, 310)
$blank_tab = GUICtrlCreateTabItem("Add Page")
GUICtrlCreateTabItem("")
GUISetState()
_IENavigate($oIE, "about:blank")
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
If $msg = $tab Then
If _GUICtrlTab_GetItemText($tab, GUICtrlRead($tab)) = 'Add Page' Then
_CreateBlankPage()
EndIf
EndIf
WEnd
EndFunc ;==>Example
Func _CreateBlankPage()
Local $nBlankPage = 0
While True
If _GUICtrlTab_FindTab($tab, "Blank Page", True, $nBlankPage) = -1 Then ExitLoop
$nBlankPage += 1
WEnd
_GUICtrlTab_SetItemText($tab, _GUICtrlTab_GetItemCount($tab) - 1, 'Blank Page #' & $nBlankPage + 1)
GUISwitch($hGUI, GUICtrlCreateTabItem("Add Page") - 1)
;$oIE = _IECreateEmbedded()
;$GUIActiveX = GUICtrlCreateObj($oIE, 20, 70, 560, 310)
;_IENavigate($oIE, "about:blank")
GUICtrlCreateLabel(_GUICtrlTab_GetCurFocus($tab), 20, 70)
GUICtrlCreateTabItem("")
_GUICtrlTab_SetCurSel($tab, _GUICtrlTab_GetItemCount($tab) - 2)
EndFunc ;==>_CreateBlankPage |
