Jump to content

Recommended Posts

Posted
Hello friends,
I would like to know how to open a GUI from another GUI, I did it the way I leave the attached code, but when closing the second GUI they all close, they could help me to solve this problem without compiling another script. Thank you
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 173, 126, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 16, 24, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

         Case $Button1
            _form2()

    EndSwitch
WEnd

;================================================= GUI 2
Func _form2()
$Form1 = GUICreate("Form2", 615, 437, 192, 124)
GUISetState(@SW_SHOW)
While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
       Exit
    EndSwitch
WEnd
EndFunc

 

  • Moderators
Posted

JuanFelipe,

I suggest reading the Managing Multiple GUIs tutorial in the Wiki - that will explain how to do it.

M23

 

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

Posted

Couple of pointers:

  1. Always rename your Guis differently e.g. in your code you have main Gui called Form1 and additional Gui also named Form1, doing so allows you to target the correct Gui.
  2. Don't use Exit unless you wish to close your entire script, instead Exit the loop and use GuiDelete.

But as Melba23 mentioned read the link he provided and also the help file.

  • 2 weeks later...
Posted

@JuanFelipe,

Something like this.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 173, 126, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 16, 24, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

         Case $Button1
            _form2()

    EndSwitch
WEnd

;================================================= GUI 2
Func _form2()
$Form2 = GUICreate("Form2", 615, 437, 192, 124)
GUISetState(@SW_SHOW)
While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
      GUIDelete($Form2)
      GUISetState(@SW_ENABLE, $Form1)
      Return
    EndSwitch
WEnd
EndFunc

 

Programming is "To make it so simple that there are obviously no deficiencies" or "To make it so complicated that there are no obvious deficiencies" by C.A.R. Hoare.

  • 6 years later...
Posted

Hello,

It would "appear" that "GUISetState" is not required as $Form1 is still visible.

Have a look-see here:

;https://www.autoitscript.com/forum/topic/194544-gui-in-gui/#findComment-1396548
; Filename: Suggestion1a
; Disabling: GUISetState
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 173, 126, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 16, 24, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

         Case $Button1
            _form2()

    EndSwitch
WEnd

;================================================= GUI 2
Func _form2()
$Form2 = GUICreate("Form2", 615, 437, 382, 124) ; Move Form2 to display Form1
GUISetState(@SW_SHOW)
While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
      GUIDelete($Form2)
      ;GUISetState(@SW_ENABLE, $Form1) ; This line is not required, as $Form1 is still visible
      Return
    EndSwitch
WEnd
EndFunc

 

Posted

Hello,

The 2nd offering:

;https://www.autoitscript.com/forum/topic/194544-gui-in-gui/#findComment-1396548
; Filename: Suggestion1b
; Suggestion from Subz
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 173, 126, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 16, 24, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            _form2()

    EndSwitch
WEnd

;================================================= GUI 2
; From Subz
; Do not use Exit unless you wish to close your entire script, instead Exit the loop and use GuiDelete.
Func _form2()
    $Form2 = GUICreate("Form2", 615, 437, 382, 124)
    GUISetState(@SW_SHOW)
    While 2
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($Form2)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_form2

 

Posted

@mr-es335
You noticed that the thread has been quiet for more than 6 years and the OP has been absent for more than 3 years?

My UDFs and Tutorials:

  Reveal hidden contents

 

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
×
×
  • Create New...