Sign in to follow this  
Followers 0
realkiller

gui

3 posts in this topic

it seems that the tabs aren't seperates from eachother how can i open 2 inet explorer windows and both stay active

#include <GUIConstants.au3>
#NoTrayIcon
$google1 = ObjCreate("Shell.Explorer.2")
$lycos1 = ObjCreate("Shell.Explorer.2")


GUICreate ("24 Help", @DesktopWidth  , @DesktopHeight -55, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$google         = GUICtrlCreateObj      ( $google1, 15, 40 ,@DesktopWidth-40, @DesktopHeight-75)
$lycos         = GUICtrlCreateObj      ( $lycos1, 20, 40 ,@DesktopWidth-40, @DesktopHeight-75)

GUICtrlCreateTab (10,10, @DesktopWidth-30, @DesktopHeight-75, $WS_EX_LAYERED)



$tab0=GUICtrlCreateTabitem ("Lycos")


GUICtrlSetState ($google, $GUI_HIDE )
GUICtrlSetState ($lycos , $GUI_SHOW )
$lycos1.navigate("www.lycos.nl")




$tab1=GUICtrlCreateTabitem ("Google")

GUICtrlSetState ($lycos , $GUI_HIDE )
GUICtrlSetState ($google, $GUI_SHOW )
$google1.navigate("www.google.nl")

GUISetState ()

While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Share this post


Link to post
Share on other sites



See if this is any help to you:

#include <GUIConstants.au3>

$Form1 = GUICreate("AForm1", 1096, 822, 118, 85)
$Tab1 = GUICtrlCreateTab(0, 0, 1096, 822)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Group1 = GUICtrlCreateGroup("", 8, 32, 1081, 785)
$AObj1 = ObjCreate("Shell.Explorer.2")
$AObj1_ctrl = GUICtrlCreateObj($AObj1, 10, 40, 1077, 776)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
$Group2 = GUICtrlCreateGroup("", 8, 32, 1081, 785)
$AObj2 = ObjCreate("Shell.Explorer.2")
$AObj2_ctrl = GUICtrlCreateObj($AObj2, 10, 40, 1077, 774)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")

$AObj1.navigate("www.google.nl")
$AObj2.navigate("www.lycos.com")

GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit

----[ SandyD ]---

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0