Several GUI in one script

[Doxie]

Hi,

I know this is in the help file, but i can't get it to work?

Scite is not recognize the Parent/Child.

I create a GUI, with several CreateMenu.

Some of the Menuitems should open new GUI (childs) but how

I thought it was simple as:

GUICreate("Title",450,300, parent)

GUICreate("Title",250,250, child)

How many child windows can i have open at once?

Or how many child can i have in my script?

Thanks in advance

[MHz]

A bit of a hack on an existing script. But may show you some hiding and showing of gui windows?

expandcollapse popup

#include <GUIConstants.au3>
Opt("TrayIconDebug", 1)
Opt("WinTitleMatchMode", 4)

;Initialize variables
Global $style1
Global $IniFile
Global $GUIWidth
Global $GUIHeight

$GUIWidth = 250
$GUIHeight = 250

$ParentWin = GUICreate("Parent GUI", $GUIWidth, $GUIHeight)
$ParentWin_Pos = WinGetPos("handle=" & $ParentWin, "")
$menu1 = GUICtrlCreateMenu('File')
$menu2 = GUICtrlCreateMenuItem('Child', $menu1)
$ChildWin = GUICreate("Child GUI", $GUIWidth, $GUIHeight, $ParentWin_Pos[0] + 100, $ParentWin_Pos[1] + 100, -1, -1, $ParentWin)
GUISetState(@SW_HIDE)

GUISwitch($ParentWin)
GUISetState(@SW_SHOW)

While 1
    Sleep(25)
    $msg = GUIGetMsg(1)
    Select
        
        Case $msg[0] = $GUI_EVENT_CLOSE
            If $msg[1] = $ParentWin Then
                MsgBox(64, "Test", "Parent GUI will now close.")
                GUISwitch($ParentWin)
                GUIDelete()
                Exit
            ElseIf $msg[1] = $ChildWin Then
                GUISwitch($ChildWin)
                GUISetState(@SW_HIDE)
                GUISwitch($ParentWin)
            EndIf
            
        Case $msg[0] = $menu2  ;; Shows Child windows from Parent Menu
                GUISwitch($ChildWin)
                GUISetState(@SW_SHOW)
            
    EndSelect
    
WEnd

[Doxie]

Exellent...

Thanks alot

[Doxie]

This is my project, so far its only GUI, to get approvel.

I guess this will create alot of new threads in the support forum, since i'm not sure how to do everything yet.

PS. The child GUI should be used with Add, Edit and Delete App.

expandcollapse popup

#include <GUIConstants.au3>

GUICreate("Application Launcher",450,300)
$Group_1 = GuiCtrlCreateGroup("Info", 10, 10, 160, 245)
$Group_2 = GuiCtrlCreateGroup("", 180, 10, 260, 245)
Global $defaultstatus = "Ready"
Global $status

$Combo_1 = GuiCtrlCreateCombo("1_AllZones", 190, 25, 220, 21)
GuiCtrlSetData(-1,"Amendments|IE6SP1|IE55|Off2kSP3|W2KPro SP1")
$Combo_2 = GuiCtrlCreateCombo("2_RegionalApplications", 190, 55, 220, 21)
GuiCtrlSetData(-1,"2kAdobeReader6_0|2KiWMPlayer_v90_R100|2kNotes5_10|2KSAV81|2KWinzip8_01")
$Combo_3 = GuiCtrlCreateCombo("3_Service Applications", 190, 85, 220, 21)
$Combo_4 = GuiCtrlCreateCombo("4_Business Global Applications", 190, 115, 220, 21)
$Combo_5 = GuiCtrlCreateCombo("5_Business Applications", 190, 145, 220, 21)
$Combo_5 = GuiCtrlCreateCombo("6_Special", 190, 175, 220, 21)
$Input_6 = GuiCtrlCreateInput("", 190, 205, 160, 20)
$Button_7 = GuiCtrlCreateButton("Browse", 360, 205, 50, 20)

$filemenu = GUICtrlCreateMenu ("&File")
$fileitem = GUICtrlCreateMenuitem ("Open IR",$filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$print = GUICtrlCreateMenu ("Print IR",$filemenu)
$print1 = GUICtrlCreateMenuitem ("Printer 1",$print)
$print2 = GUICtrlCreateMenuitem ("Printer 2",$print)
$print3 = GUICtrlCreateMenuitem ("Printer 3",$print)
$print4 = GUICtrlCreateMenuitem ("Printer 4",$print)
$print5 = GUICtrlCreateMenuitem ("Printer 5",$print)
$print6 = GUICtrlCreateMenuitem ("Printer 6",$print)
GUICtrlSetState(-1,$GUI_CHECKED)
$print7 = GUICtrlCreateMenuitem ("Printer 7",$print)
$appmenu = GUICtrlCreateMenu ("Application")
$additem = GUICtrlCreateMenu ("Add",$appmenu)
$add1 = GUICtrlCreateMenuitem ("Lvl 1",$additem)
$add2 = GUICtrlCreateMenuitem ("Lvl 2",$additem)
$add3 = GUICtrlCreateMenuitem ("Lvl 3",$additem)
$add4 = GUICtrlCreateMenuitem ("Lvl 4",$additem)
$add5 = GUICtrlCreateMenuitem ("Lvl 5",$additem)
$add6 = GUICtrlCreateMenuitem ("Medical",$additem)
$edititem = GUICtrlCreateMenuitem ("Edit",$appmenu)
$delitem = GUICtrlCreateMenuitem ("Del",$appmenu)

$helpmenu = GUICtrlCreateMenu ("Help")
;$saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
;GUICtrlSetState(-1,$GUI_DISABLE)
$helpitem = GUICtrlCreateMenuitem ("Help            F1",$helpmenu)
$infoitem = GUICtrlCreateMenuitem ("About Launcher",$helpmenu)
$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)

$separator1 = GUICtrlCreateMenuitem ("",$filemenu,2)  ; create a separator line

;$viewmenu = GUICtrlCreateMenu("View",-1,1)  ; is created before "?" menu
;$viewstatusitem = GUICtrlCreateMenuitem ("Statusbar",$viewmenu)
GUICtrlSetState(-1,$GUI_CHECKED)
$okbutton = GUICtrlCreateButton ("Install",190,230,70,20)
GUICtrlSetState(-1,$GUI_FOCUS)
$cancelbutton = GUICtrlCreateButton ("Cancel",270,230,70,20)

$statuslabel = GUICtrlCreateLabel ($defaultstatus,0,260,500,16,BitOr($SS_SIMPLE,$SS_SUNKEN))

GUISetState ()
While 1
    $msg = GUIGetMsg()
    
    If $msg = $fileitem Then
        $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
        If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu)
    EndIf 
    If $msg = $button_7 Then
        $file1 = FileOpenDialog("Choose file...","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}","All (*.*)")
        If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu)
    EndIf 

    If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
    If $msg = $infoitem Then Msgbox(0,"About","Application Launcher BETA v. 0.1")
    If $msg = $add1 Then Add1()
    If $msg = $add2 Then Add2()
    If $msg = $add3 Then Add3()
    If $msg = $add4 Then Add4()
    If $msg = $add5 Then Add5()
    If $msg = $add6 Then Add6()
WEnd
Func Add1()
   Msgbox(0,"Add Application","Level 1")
EndFunc
Func Add2()
   Msgbox(0,"Add Application","Level 2")
EndFunc
Func Add3()
   Msgbox(0,"Add Application","Level 3")
EndFunc
Func Add4()
   Msgbox(0,"Add Application","Level 4")
EndFunc
Func Add5()
   Msgbox(0,"Add Application","Level 5")
EndFunc
Func Add6()
   Msgbox(0,"Add Application","Medical")
EndFunc
GUIDelete()

Exit

Edited February 1, 2005 by Doxie

[MHz]

That's a smart looking Gui. Should be great when done.

The limit for Gui's. Is a limit available? I would say plenty enough Guii? I think I just created a new word, Guii? Might be a french word?

[jpm]

That's a smart looking Gui. Should be great when done.

The limit for Gui's. Is a limit available? I would say plenty enough Guii? I think I just created a new word, Guii? Might be a french word?

<{POST_SNAPBACK}>

no Italian as the plural of scenario which is scenarii :">