Jump to content

Tabs in GUI


Recommended Posts

Right as most of u know now im making a program called Runescape-agrors V.2.00

I have the code below but it dose not show up all 3 tabs it only show the first one can any do anything to make it show all 3 tabs...

CODE
#include <XSkin.au3>

; folder of skin

$Skin_Folder = @ScriptDir & "\Skins\Blue-Gray"

$XSkinGui = XSkinGUICreate( "Runescape-Agrors", 1000, 700, $Skin_Folder)

;GUISetState()

#include <GUIConstants.au3>

MsgBox (4564, "error", "This is only a 15 day free trial, to get the full version go to http://pic5.piczo.com/agrors/?g=30053100")

;GUICreate("Runescape-Agrors") ; will create a dialog box that when displayed is centered

;GUISetBkColor(0x00E0FFFF)

GUISetFont(9, 300)

$tab=GUICtrlCreateTab (50,50,600,900)

$tab0=GUICtrlCreateTabitem ("Runescape-agrors")

#include <IE.au3>

$Width = 970 ;Change it to the size of the window you want

$Height = 650 ;Change it to the size of the window you want

$URL = "www.runescape.com" ;Change it to the URL you want

$oIE = _IECreateEmbedded ()

$GUIActiveX = GUICtrlCreateObj($oIE, 25, 72, $Width-50, $Height-50)

GUISetState()

_IENavigate ($oIE, $URL)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

EndSelect

WEnd

GUIDelete()

Exit

$tab2=GUICtrlCreateTabitem ("Agrors")

#include <IE.au3>

$Width = 970 ;Change it to the size of the window you want

$Height = 650 ;Change it to the size of the window you want

$URL = "www.agrors.piczo.com" ;Change it to the URL you want

$oIE = _IECreateEmbedded ()

$GUIActiveX = GUICtrlCreateObj($oIE, 25, 72, $Width-50, $Height-50)

GUISetState()

_IENavigate ($oIE, $URL)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

EndSelect

WEnd

GUIDelete()

Exit

$tab3=GUICtrlCreateTabitem ("Runehq")

#include <IE.au3>

$Width = 970 ;Change it to the size of the window you want

$Height = 650 ;Change it to the size of the window you want

$URL = "www.runehq.com" ;Change it to the URL you want

$oIE = _IECreateEmbedded ()

$GUIActiveX = GUICtrlCreateObj($oIE, 25, 72, $Width-50, $Height-50)

GUISetState()

_IENavigate ($oIE, $URL)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

EndSelect

WEnd

GUIDelete()

Exit

GUISetState ()

; Run the GUI until the dialog is closed

While 1

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Wend

While 1

Sleep(10)

WEnd

any help would be very helpful to me...

thxs

Edited by SalazarCheats

Ok im 14 with a spelling age of a 9 year old... that explanes all my spelling mistakes

Link to comment
Share on other sites

Why do you include IE.au3 several times? I suggest you do as the rest of us and place includes at the top of your script. I also noticed that you use a extension to skin your app.

Does tabs work without the skinning?

Can you create a minimal script demonstrating your problem?

And. please, use the autoit tags (the blue button in the middle of the editor) when you post code. It makes it a lot easier for the rest of us..:)

Link to comment
Share on other sites

Your code is a mess. :)

I cleaned it up the best I could. I hope this is what you had in mind.

#include <XSkin.au3>
#include <GUIConstants.au3>
#include <IE.au3>
$Skin_Folder = @ScriptDir & "\Skins\Blue-Gray"
$XSkinGui = XSkinGUICreate( "Runescape-Agrors", 1000, 700, $Skin_Folder)
;why is the msgbox there?
; MsgBox (4564, "error", "This is only a 15 day free trial, to get the full version go to http://pic5.piczo.com/agrors/?g=30053100")

GUICreate("Runescape-Agrors", @DesktopWidth - 300, @DesktopHeight - 75) ; will create a dialog box that when displayed is centered

$Width = 970 ;Change it to the size of the window you want
$Height = 650 ;Change it to the size of the window you want
GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)

$tab=GUICtrlCreateTab (50,50,600,900)
$tab0=GUICtrlCreateTabitem ("Runescape-agrors")
$URL = "www.runescape.com" ;Change it to the URL you want
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 25, 72, $Width-50, $Height-50)
_IENavigate ($oIE, $URL)

$tab2=GUICtrlCreateTabitem ("Agrors")
$URL = "www.agrors.piczo.com" ;Change it to the URL you want
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 25, 72, $Width-50, $Height-50)
_IENavigate ($oIE, $URL)

$tab3=GUICtrlCreateTabitem ("google")
$URL = "www.google.com" ;Change it to the URL you want
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 25, 72, $Width-50, $Height-50)
_IENavigate ($oIE, $URL)

GUISetState()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...