Hallo zusammen,
ich habe folgendes Problem:
Bei meinem Programm habe ich wie üblich das GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked_Systemauswahl") gewählt, damit beim klicken vom "Schliessen" Button sich das Fenster auch schließt.
Hierzu der Code: (Die restlichen Dateien die eigentlich eingeladen werden, habe ich weg gelassen aufgrund der Übersicht. Es geht nur um´s Prinzip)
AutoIt
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
Global $Window_Auswahl_System, $Pic_Eingabehilfe
Global $Button_Traeger_auf_zwei_Stuetzen_Linienlast
Global $Window_System_1
Global $Button_Berechnung_System_1
Global $Inputbox_Window_System_1_L, $Inputbox_Window_System_1_q
Global $Radio_I_System_1, $Radio_U_System_1, $Radio_L_System_1, $Radio_O_System_1, $Radio_QR_System_1, $Radio_RR_System_1
Global $Radio_Werkstoff_S235_System_1, $Radio_Werkstoff_S355_System_1, $Radio_Werkstoff_S460_System_1
Global $Combobox_I_Profil_System_1, $Combobox_U_Profil_System_1, $Combobox_Achse_Durchbiegung_System_1, $Combobox_Durchbiegung_System_1, $Combobox_Werkstoff_System_1
$Window_Auswahl_System = GUICreate("Statiktool - Systemauswahl", 900, 600)
GUISetBkColor(0xffffff)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked_Systemauswahl")
GUISetState(@SW_SHOW)
$Button_Traeger_auf_zwei_Stuetzen_Linienlast = GUICtrlCreateButton("System 1", 100, 220, 100, 30)
GUICtrlSetOnEvent($Button_Traeger_auf_zwei_Stuetzen_Linienlast, "System_1")
GUISetState(@SW_SHOW)
;Leerlauf und auf Event warten
While 1
Sleep(1000)
WEnd
Func System_1()
$Window_System_1 = GUICreate("Systemdaten Träger auf zwei Stützen mit Linienlast", 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked_System_1")
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Länge L [m]", 10, 20, 100)
$Inputbox_Window_System_1_L = GUICtrlCreateInput("", 10, 40, 80)
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Last q [kN/m]", 10, 80, 100)
$Inputbox_Window_System_1_q = GUICtrlCreateInput("", 10, 100, 80)
GUISetState(@SW_SHOW)
GUICtrlCreateGroup("Trägerprofil", 120, 20, 180, 160)
$Radio_I_System_1 = GUICtrlCreateRadio(" I ", 130, 50, 50)
GUICtrlSetOnEvent($Radio_I_System_1, "Combobox_I")
$Radio_U_System_1 = GUICtrlCreateRadio(" U ", 130, 70, 50)
GUICtrlSetOnEvent($Radio_U_System_1, "Combobox_U")
$Radio_L_System_1 = GUICtrlCreateRadio(" L ", 130, 90, 50)
$Radio_O_System_1 = GUICtrlCreateRadio(" I ", 130, 110, 50)
$Radio_QR_System_1 = GUICtrlCreateRadio(" QR ", 130, 130, 50)
$Radio_RR_System_1 = GUICtrlCreateRadio(" RR ", 130, 150, 50)
GUICtrlCreateGroup("Biegung um welche Achse?", 320, 20, 150, 160)
$Combobox_Achse_Durchbiegung_System_1 = GUICtrlCreateCombo(" ", 330, 50, 120)
GUICtrlCreateGroup("max. zul. Durchbiegung", 490, 20, 130, 160)
$Combobox_Durchbiegung_System_1 = GUICtrlCreateCombo(" ", 500, 50, 100)
GUICtrlCreateGroup("Werkstoff", 640, 20, 130, 160)
$Combobox_Werkstoff_System_1 = GUICtrlCreateCombo(" ", 650, 50, 75)
$Button_Berechnung_System_1 = GUICtrlCreateButton("Berechnen", 250, 560, 100, 30)
GUICtrlSetOnEvent($Button_Berechnung_System_1, "Berechnung_System_1")
GUISetState(@SW_SHOW)
EndFunc ;==>System_1
Func CLOSEClicked_Systemauswahl()
Exit
EndFunc ;==>CLOSEClicked_Systemauswahl
Func CLOSEClicked_System_1()
GUIDelete($Window_System_1)
GUISwitch($Window_Auswahl_System)
EndFunc ;==>CLOSEClicked_System_1
Alles anzeigen
Das Problem ist, wenn ich zwei mal auf den Button: "$Button_Traeger_auf_zwei_Stuetzen_Linienlast" klicke erscheinen auch zwei Fenster. So weit so gut.
Aber ich kann nur ein Fester wieder schließen.
Woran liegt das? Hat jemand eine Lösung wie man das Problem umgehen kann?
Ich hoffe Ihr könnt mir weiterhelfen
LG Mikki