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:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

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:

Spoiler

UDFs:
Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

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...