Help

[keen 0]

How do you make a button on a gui that when you press it it will create another tab?

[lod3n 3]

Like this:

#include <GUIConstants.au3>
#include <GuiTab.au3>
global $tabcount = 1
dim $aTabs[1]

$gui = GUICreate ( "Add Tabs GUI", 800,600,-1,-1, $WS_MAXIMIZE+$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)
$size = WinGetClientSize($gui)

$Button = GUICtrlCreateButton ("Add Tab",  10, 10, 100)

$tab=GUICtrlCreateTab (3,60, $size[0]-6,$size[1]-6-60)
GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)

addtab()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button
            addtab()
    EndSelect
Wend

func addtab()   
    redim $aTabs[$tabcount]
    $aTabs[$tabcount-1] = GUICtrlCreateTabitem ("Tab "&$tabcount)
    GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)
    GUICtrlSetStyle(-1,$WS_VISIBLE)
    GUICtrlCreateTabitem (""); end tabitem definition
    $tabcount += 1
EndFunc

[keen 0]

I want the text and labels the same on every tab. How do i change whats on the tab?

[keen 0]

Sorrybut i really need this fast.

[Valuater 112]

I want the text and labels the same on every tab. How do i change whats on the tab?

maybe if you added a thank you... or that helped alot

you would recieve more help

but... no, you just want more without even comending lod3n

8)

[keen 0]

Sorry. The code works. Its very nice thank you.

When i make a new tab it is just blank. How do i change the content on the tabs that are being created.

[Valuater 112]

maybe...

expandcollapse popup

#include <GUIConstants.au3>
#include <GuiTab.au3>
global $tabcount = 1
dim $aTabs[1]

$gui = GUICreate ( "Add Tabs GUI", 800,600,-1,-1, $WS_MAXIMIZE+$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)
$size = WinGetClientSize($gui)

$Button = GUICtrlCreateButton ("Add Tab",  10, 10, 100)

$tab=GUICtrlCreateTab (3,60, $size[0]-6,$size[1]-6-60)
GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)



addtab()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button
            addtab()
    EndSelect
Wend

func addtab()   
    redim $aTabs[$tabcount]
    $aTabs[$tabcount-1] = GUICtrlCreateTabitem ("Tab_"&$tabcount)
    GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)
    GUICtrlSetStyle(-1,$WS_VISIBLE)
    Call("Tab_"&$tabcount)
    GUICtrlCreateTabitem (""); end tabitem definition
    $tabcount += 1
EndFunc

Func Tab_1()
    $Button1 = GUICtrlCreateButton ("Test #1",  200, 200, 100, 20)
    ; add other stuff
EndFunc

Func Tab_2()
    $Button2 = GUICtrlCreateButton ("Test #2",  200, 200, 100, 20)
    ; add other stuff
EndFunc

Func Tab_3()
    $label3 = GUICtrlCreateLabel ("Last Example Test #3",  200, 200, 200, 20)
EndFunc

8)

[keen 0]

Thanks but i dont need cutom stuff for every tab. It can be the same for every tab. How can i make every tab display the same stuff?

[Valuater 112]

Thanks but i dont need cutom stuff for every tab. It can be the same for every tab. How can i make every tab display the same stuff?

func addtab()   
    redim $aTabs[$tabcount]
    $aTabs[$tabcount-1] = GUICtrlCreateTabitem ("Tab_"&$tabcount)
    GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)
    GUICtrlSetStyle(-1,$WS_VISIBLE)
    ; ********** Add Stuff *****************

    ; ********** End Add Stuff *******************
    GUICtrlCreateTabitem (""); end tabitem definition
    $tabcount += 1
EndFunc

and remove the func Tab_# above ( from the last script i wrote )

8)

Edited August 18, 2006 by Valuater

[keen 0]

Thanks!

EDIT: I just noticed someting. I need an embedded IE in it. Can you help me do that?

Edited August 20, 2006 by keen

[keen 0]

Sorry but i need this ASAP.

[lod3n 3]

What are you trying to do, exactly? What is your intended final result? Are you incrementally building a new web browser via help comments on a web forum?

For creating embedded browsers controls, take a look at _IECreateEmbedded in the help file.

[keen 0]

Well im kinda sorta making a new browser.

I looked in the help files. And i did what they said but it wont work.