Sign in to follow this  
Followers 0
IwiskoSVK

How to close one of many other child GUIs

8 posts in this topic

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

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

thanks for reply

but i dont know how to do this. :)

Share this post


Link to post
Share on other sites

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

post-53690-12560258699404_thumb.jpg

Share this post


Link to post
Share on other sites

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

Hi ;)

Share this post


Link to post
Share on other sites

GREAT !!!! :)

bless U all !! :P

Thanks for great support here :)

Share this post


Link to post
Share on other sites

No problem... :)


Hi ;)

Share this post


Link to post
Share on other sites

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
Sign in to follow this  
Followers 0