How to close one of many other child GUIs

IwiskoSVK · October 19, 2009

Hi autoit scripters!

I was searching for weeks but i cant find how to close selected GUI window.

DESCRIPTION: My script generate graphs (Y=X^n). n is gathered from inputbox. So i tipe number "n" to inputbox and push button "RUN" to generate new GUI window with new graph. If i close new GUI immediately everything is all right, but when I generate more than 1 graphs (GUI windows) i can close just last one GUI.

Please help me to close more than one child GUIs. Or how to autoclose GUI 1 when GUI 2 has been already generated.

Thanks a lot!!!!!

#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
Opt('MustDeclareVars', 1)


Global $out, $pi = 3.14159265358979,  $s=0
global $Main_GUI, $Child_GUI, $p=0, $font="arial"
global $vstup,$x,$msg,$vyst,$gombik,$output
global $button2,$results,$i,$xMin,$yMax
global $yMin,$xMax,$GraphWidth, $GraphHeight
global $graph,$y,$u,$c,$j,$vstup2,$m,$z

$Main_GUI=GuiCreate("Čislicové spracovanie signálov", 800, 600)


GuiCtrlCreateTab(1, 1, 300, 20)
GuiCtrlCreateTabItem("One")
GuiCtrlCreateLabel("Sample Tab with tabItems ", 40, 40)
GuiCtrlCreateLabel("X ^  ", 210, 255)
$vstup=GuiCtrlCreateInput("", 235, 255, 130, 20)
GuiCtrlCreateLabel("=   Y", 400, 255)

$gombik=GuiCtrlCreateButton("RUN", 10, 330, 100, 30)

$output = GUICtrlCreateLabel("", 185, 45, 100, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))
GUICtrlSetFont($output, 24, 800, "", "Comic Sans MS")
 

GuiCtrlCreateTabItem("Two")
GuiCtrlCreateLabel("dejka", 250, 40)
GuiCtrlCreateTabItem("Three")
$button2 = GUICtrlCreateButton("D3", 65, 25, 50, 30)
$vstup2=GuiCtrlCreateInput("", 235, 255, 130, 20)


 GuiSetState(@SW_SHOW, $Main_GUI)

 
While 1
        $msg = GUIGetMsg(1)
        
        Select
        Case $msg[0] = $gombik
            $j=GUICtrlRead($vstup)
            $results =  $j
                
                
                $p=$p+1
                
                dim $iiiL[31]=[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30]
                
                $Child_GUI=GUICreate($iiiL[$p],500,400,1,1)
                
            
                GUICtrlCreateLabel("tu bude graf<<?",1,1,300,30)
                GUICtrlSetFont(-1, 15, 400, 2, $font)
        
;***********************************************************************
; Prepare Labels for Axes
;***********************************************************************


$yMax = 10                                      ;this is the upper label for y axis
$yMin = -10                                     ;this is the lower label for y axis

$xMax = 10                                      ;this is the upper label for x axis
$xMin = -10      


                    ;this is the lower label for x axis

GUICtrlCreateLabel($yMax,15,30,20,15)
GUICtrlCreateLabel($yMin,15,340,20,15)

GUICtrlCreateLabel($xMax,350,350,20,15)
GUICtrlCreateLabel($xMin,50,350,30,20)


;***********************************************************************
; Prepare Graphic control and zero lines
;***********************************************************************

$GraphWidth = 280                              ;this is simply the pixel width of the control
$GraphHeight = 280                            ;this is simply the pixel height of the control

$graph = GUICtrlCreateGraphic(60, 50, $GraphWidth, $GraphHeight)
GUICtrlSetBkColor(-1,0xFFFFFF)                  ;graph background colour
GUICtrlSetColor(-1,0x000000)                    ;graph border colour
GUICtrlSetGraphic(-1,$GUI_GR_HINT,0)            ;turn off hints

;---- X - Zero line ----
GUICtrlSetGraphic($graph,$GUI_GR_MOVE,Gen_Abs_Pix_xx(0,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy($yMin,$yMin,$yMax,$GraphHeight))
GUICtrlSetGraphic($graph,$GUI_GR_LINE,Gen_Abs_Pix_xx(0,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy($yMax,$yMin,$yMax,$GraphHeight))
;---- Y - Zero line ----
GUICtrlSetGraphic($graph,$GUI_GR_MOVE,Gen_Abs_Pix_xx($xMin,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy(0,$yMin,$yMax,$GraphHeight))
GUICtrlSetGraphic($graph,$GUI_GR_LINE,Gen_Abs_Pix_xx($xMax,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy(0,$yMin,$yMax,$GraphHeight))


GUICtrlSetGraphic(-1,$GUI_GR_HINT,1)            ;turn on hints



;***********************************************************************
; PLOT POINTS
;***********************************************************************

for $i = $xMin to $xMax step 0.1                  ;change step value for more plot points (e.g. step 0.5)

;---- Move to start pos ----
    if $i = $xMin Then
        GUICtrlSetGraphic($graph,$GUI_GR_MOVE,Gen_Abs_Pix_xx($xMin,$xMin,$xMax,$GraphWidth), Gen_Abs_Pix_yy(0,$yMin,$yMax,$GraphHeight))
    EndIf
;---------------------------

;Stating that X equals each step of the loop means that we can get the control to plot
;points based on the Y = mX + c model.

    $x = $i                                     ;for each step of the loop...
    
    $y = ( $results)^  $x                              ;plot points based on Y = mX + c model. !!!!!CHANGE THIS LINE!!!!!

    GUICtrlSetGraphic($graph,$GUI_GR_LINE,Gen_Abs_Pix_xx($x,$xMin,$xMax,$GraphWidth), Gen_Abs_Pix_yy($y,$yMin,$yMax,$GraphHeight))

next


;***********************************************************************
; Absolute pixel reference generation functions
;***********************************************************************

func Gen_Abs_Pix_xx($x,$low,$high,$width)
    $out = (($width/($high-$low))*(($high-$low)*(($x-$low)/($high-$low))))
    Return $out
EndFunc
func Gen_Abs_Pix_yy($y,$low,$high,$height)
    $out = ($height - (($height/($high-$low))*(($high-$low)*(($y-$low)/($high-$low)))))
    Return $out
EndFunc


                
                GUISetState(@SW_SHOW, $Child_GUI)
                
                Case $msg[0] = $button2
            $j=GUICtrlRead($vstup2)
            
                call("ble")
                
                
                
                Case $msg[0] = $GUI_EVENT_CLOSE
                ;Check if user clicked on the close button of the child window
                If $msg[1] = $Child_GUI Then
                    
                    ;Switch to the child window
                    GUISwitch($Child_GUI)
                    ;Destroy the child GUI including the controls
                    GUIDelete()                             ;Check if user clicked on the close button of the parent window
                ElseIf $msg[1] = $main_gui Then
                
                    ;Switch to the parent window
                    GUISwitch($main_gui)
                    ;Destroy the parent GUI including the controls
                    GUIDelete()
                    ;Exit the script
                    Exit
                EndIf
                            
            EndSelect
        
        WEnd

        While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd


func Gen_Abs_Pix_x($x,$low,$high,$width)
    $out = (($width/($high-$low))*(($high-$low)*(($x-$low)/($high-$low))))
    Return $out
EndFunc
func Gen_Abs_Pix_y($y,$low,$high,$height)
    $out = ($height - (($height/($high-$low))*(($high-$low)*(($y-$low)/($high-$low)))))
    Return $out
EndFunc

projektX.au3

Authenticity · October 19, 2009

You can write this code using GUIOnEventMode option set to one. This way you can't use a message loop but it'll be possible to assign the same function for each new window when the event is $GUI_EVENT_CLOSE, inside this function you can differentiate the windows using the @GUI_WinHandle macro. You can give the parent window it's own close function.

IwiskoSVK · October 19, 2009

thanks for reply

but i dont know how to do this.

Authenticity · October 19, 2009

Example...

IwiskoSVK · October 20, 2009

thanks for example, but i think i dont describe my problem very well. Because i can close parent window and child window separately. for example when i generate 10 child windows(generated by same command in the loop) i can close parent win and last generated child win but i cant close other 9child wins. When i close parent win - this will close all windows (thats OK). watch on picture.

BTW i found some examples how to close child GUIs but nowhere is how to close 10 same child GUIs separately

Mison · October 20, 2009

Hi,

I added some lines... I think it works now

#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
Opt('MustDeclareVars', 1)


Global $out, $pi = 3.14159265358979,  $s=0
global $Main_GUI, $Child_GUI[1], $gui_index=0, $p=0, $font="arial"
global $vstup,$x,$msg,$vyst,$gombik,$output
global $button2,$results,$i,$xMin,$yMax
global $yMin,$xMax,$GraphWidth, $GraphHeight
global $graph,$y,$u,$c,$j,$vstup2,$m,$z

$Main_GUI=GuiCreate("Cislicové spracovanie signálov", 800, 600)


GuiCtrlCreateTab(1, 1, 300, 20)
GuiCtrlCreateTabItem("One")
GuiCtrlCreateLabel("Sample Tab with tabItems ", 40, 40)
GuiCtrlCreateLabel("X ^  ", 210, 255)
$vstup=GuiCtrlCreateInput("", 235, 255, 130, 20)
GuiCtrlCreateLabel("=   Y", 400, 255)

$gombik=GuiCtrlCreateButton("RUN", 10, 330, 100, 30)

$output = GUICtrlCreateLabel("", 185, 45, 100, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))
GUICtrlSetFont($output, 24, 800, "", "Comic Sans MS")
 

GuiCtrlCreateTabItem("Two")
GuiCtrlCreateLabel("dejka", 250, 40)
GuiCtrlCreateTabItem("Three")
$button2 = GUICtrlCreateButton("D3", 65, 25, 50, 30)
$vstup2=GuiCtrlCreateInput("", 235, 255, 130, 20)


 GuiSetState(@SW_SHOW, $Main_GUI)

 
While 1
        $msg = GUIGetMsg(1)
        
        Select
        Case $msg[0] = $gombik
            $j=GUICtrlRead($vstup)
            $results =  $j
                
                
                $p=$p+1
                
                dim $iiiL[31]=[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30]
                
                $Child_GUI[$gui_index]=GUICreate($iiiL[$p],500,400,1,1)
                ReDim $Child_GUI[UBound($Child_GUI)+1]
                $gui_index += 1
                
            
                GUICtrlCreateLabel("tu bude graf<<?",1,1,300,30)
                GUICtrlSetFont(-1, 15, 400, 2, $font)
        
;***********************************************************************
; Prepare Labels for Axes
;***********************************************************************


$yMax = 10                                      ;this is the upper label for y axis
$yMin = -10                                     ;this is the lower label for y axis

$xMax = 10                                      ;this is the upper label for x axis
$xMin = -10      


                    ;this is the lower label for x axis

GUICtrlCreateLabel($yMax,15,30,20,15)
GUICtrlCreateLabel($yMin,15,340,20,15)

GUICtrlCreateLabel($xMax,350,350,20,15)
GUICtrlCreateLabel($xMin,50,350,30,20)


;***********************************************************************
; Prepare Graphic control and zero lines
;***********************************************************************

$GraphWidth = 280                              ;this is simply the pixel width of the control
$GraphHeight = 280                            ;this is simply the pixel height of the control

$graph = GUICtrlCreateGraphic(60, 50, $GraphWidth, $GraphHeight)
GUICtrlSetBkColor(-1,0xFFFFFF)                  ;graph background colour
GUICtrlSetColor(-1,0x000000)                    ;graph border colour
GUICtrlSetGraphic(-1,$GUI_GR_HINT,0)            ;turn off hints

;---- X - Zero line ----
GUICtrlSetGraphic($graph,$GUI_GR_MOVE,Gen_Abs_Pix_xx(0,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy($yMin,$yMin,$yMax,$GraphHeight))
GUICtrlSetGraphic($graph,$GUI_GR_LINE,Gen_Abs_Pix_xx(0,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy($yMax,$yMin,$yMax,$GraphHeight))
;---- Y - Zero line ----
GUICtrlSetGraphic($graph,$GUI_GR_MOVE,Gen_Abs_Pix_xx($xMin,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy(0,$yMin,$yMax,$GraphHeight))
GUICtrlSetGraphic($graph,$GUI_GR_LINE,Gen_Abs_Pix_xx($xMax,$xMin,$xMax,$GraphWidth),Gen_Abs_Pix_yy(0,$yMin,$yMax,$GraphHeight))


GUICtrlSetGraphic(-1,$GUI_GR_HINT,1)            ;turn on hints



;***********************************************************************
; PLOT POINTS
;***********************************************************************

for $i = $xMin to $xMax step 0.1                  ;change step value for more plot points (e.g. step 0.5)

;---- Move to start pos ----
    if $i = $xMin Then
        GUICtrlSetGraphic($graph,$GUI_GR_MOVE,Gen_Abs_Pix_xx($xMin,$xMin,$xMax,$GraphWidth), Gen_Abs_Pix_yy(0,$yMin,$yMax,$GraphHeight))
    EndIf
;---------------------------

;Stating that X equals each step of the loop means that we can get the control to plot
;points based on the Y = mX + c model.

    $x = $i                                     ;for each step of the loop...
    
    $y = ( $results)^  $x                              ;plot points based on Y = mX + c model. !!!!!CHANGE THIS LINE!!!!!

    GUICtrlSetGraphic($graph,$GUI_GR_LINE,Gen_Abs_Pix_xx($x,$xMin,$xMax,$GraphWidth), Gen_Abs_Pix_yy($y,$yMin,$yMax,$GraphHeight))

next


;***********************************************************************
; Absolute pixel reference generation functions
;***********************************************************************

func Gen_Abs_Pix_xx($x,$low,$high,$width)
    $out = (($width/($high-$low))*(($high-$low)*(($x-$low)/($high-$low))))
    Return $out
EndFunc
func Gen_Abs_Pix_yy($y,$low,$high,$height)
    $out = ($height - (($height/($high-$low))*(($high-$low)*(($y-$low)/($high-$low)))))
    Return $out
EndFunc


                
                GUISetState(@SW_SHOW, $Child_GUI)
                
                Case $msg[0] = $button2
            $j=GUICtrlRead($vstup2)
            
                call("ble")
                
                
                
                Case $msg[0] = $GUI_EVENT_CLOSE
                ;Check if user clicked on the close button of the child window
                For $i = 0 To UBound($Child_GUI)-2
                    If $msg[1] = $Child_GUI[$i] Then
                        
                        ;Switch to the child window
                        GUISwitch($Child_GUI)
                        ;Destroy the child GUI including the controls
                        GUIDelete($Child_GUI[$i])                             ;Check if user clicked on the close button of the parent window
                    ElseIf $msg[1] = $main_gui Then
                    
                        ;Switch to the parent window
                        GUISwitch($main_gui)
                        ;Destroy the parent GUI including the controls
                        GUIDelete()
                        ;Exit the script
                        Exit
                    EndIf
                Next
                            
            EndSelect
        
        WEnd

        While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd


func Gen_Abs_Pix_x($x,$low,$high,$width)
    $out = (($width/($high-$low))*(($high-$low)*(($x-$low)/($high-$low))))
    Return $out
EndFunc
func Gen_Abs_Pix_y($y,$low,$high,$height)
    $out = ($height - (($height/($high-$low))*(($high-$low)*(($y-$low)/($high-$low)))))
    Return $out
EndFunc

IwiskoSVK · October 20, 2009

GREAT !!!!

bless U all !!

Thanks for great support here

Mison · October 21, 2009

No problem...

Sign In

How to close one of many other child GUIs

Recommended Posts

IwiskoSVK

Link to comment

Share on other sites

Authenticity

Link to comment

Share on other sites

IwiskoSVK

Link to comment

Share on other sites

Authenticity

Link to comment

Share on other sites

IwiskoSVK

Link to comment

Share on other sites

Mison

Link to comment

Share on other sites

IwiskoSVK

Link to comment

Share on other sites

Mison

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta