2ter GUI im ersten GUI; Fehler bei Anzeige

  • Huhu zusammen

    Ich steh grad bissl auf der Leitung. Bestimmt ist es ein doofer Fehler:
    Ich wollte eig ein 2tes GUI im ersten GUI machen, und das 2te erst bei dem Klick eines entsprechenden Menüeintrages aktivieren/anzeigen. Jedoch zeigt er es mir immer an.
    auch bei nem Klick auf das Kreuz beendet es mir beide Fenster.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\..\Documents\Freetime\Roller-Coaster-Tycoon-3-icon~2.ico
    #AutoIt3Wrapper_outfile=coverwalt.exe
    #AutoIt3Wrapper_Res_Fileversion=0.2.0.0
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Run_AU3Check=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ;global setzen
    AutoItSetOption("MustDeclareVars",0)
    Global $beenden, $cfrinput, $cfrlabel, $cfropen, $csolabel, $csoopen, $ctrinput,$nMsg, $ctrlabel, $ctropen, $FileName, $FileName2, $FileName3, $Form1_1, $help, $ini1, $ini2, $MenuItem1, $MenuItem10, $MenuItem11, $MenuItem2, $MenuItem3, $MenuItem4, $MenuItem5, $MenuItem6, $MenuItem7, $MenuItem8, $MenuItem9, $msgb, $msgb2, $msgb3, $ordner, $read, $read1
    ;Startsound
    ;SoundPlay("data/Welcome.mp3")

    [/autoit] [autoit][/autoit] [autoit]

    ;MsgBox(0,"0","Temp: "&@TempDir)
    Func VerzeichnisBestimmen ()
    $read=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Atari\RCT3","InstallLocation")
    $ini1=IniRead("/data/config.ini","rct3","pfad")
    $ini2=IniRead("/data/config.ini","msgbox","gesetzt","0")
    If $ini2 = 0 Then IniWrite("/data/config.ini","rct3","pfad","$read")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc
    ;Gui
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Zip.au3>
    #include <GUIListBox.au3>
    #Region ### START Koda GUI section ### Form=c:\users\lukiono\documents\csoinstaller.kxf
    $Form1_1 = GUICreate("Custom Objects Verwalter ; Willkommen", 625, 329, 192, 124)
    $MenuItem1 = GUICtrlCreateMenu("&Allgemein")
    $MenuItem4 = GUICtrlCreateMenuItem("Öffnen", $MenuItem1)
    $MenuItem5 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $MenuItem2 = GUICtrlCreateMenu("&Erweitert")
    $MenuItem6 = GUICtrlCreateMenuItem("Einstellungen", $MenuItem2)
    $MenuItem7 = GUICtrlCreateMenuItem("CSO verwalten", $MenuItem2)
    $MenuItem10 = GUICtrlCreateMenuItem("CTR verwalten", $MenuItem2)
    $MenuItem11 = GUICtrlCreateMenuItem("CFR verwalten", $MenuItem2)
    $MenuItem3 = GUICtrlCreateMenu("&Infos")
    $MenuItem8 = GUICtrlCreateMenuItem("Hilfe", $MenuItem3)
    $MenuItem9 = GUICtrlCreateMenuItem("Über dieses Programm", $MenuItem3)
    $ordner = GUICtrlCreateInput("", 8, 64, 473, 21)
    $csoopen = GUICtrlCreateButton("Datei öffnen", 496, 64, 121, 33, $WS_GROUP)
    $beenden = GUICtrlCreateButton("Beenden", 208, 264, 161, 33, $WS_GROUP)
    $help = GUICtrlCreateButton("?", 576, 264, 33, 33, $WS_GROUP)
    $cfrinput = GUICtrlCreateInput("", 8, 200, 473, 21)
    $ctrinput = GUICtrlCreateInput("", 8, 136, 473, 21)
    $ctropen = GUICtrlCreateButton("Datei öffnen", 496, 136, 121, 33, $WS_GROUP)
    $cfropen = GUICtrlCreateButton("Datei öffnen", 496, 200, 121, 33, $WS_GROUP)
    $csolabel = GUICtrlCreateLabel("Custom Scenery Objects / CSO", 16, 32, 312, 26)
    GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
    GUICtrlSetColor(-1, 0x008000)
    $ctrlabel = GUICtrlCreateLabel("Custom Tracked Rides / CTR", 16, 104, 290, 26)
    GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
    GUICtrlSetColor(-1, 0x008000)
    $cfrlabel = GUICtrlCreateLabel("Custom Flat Rides / CFR", 16, 176, 257, 26)
    GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
    GUICtrlSetColor(-1, 0x008000)
    GUISetState(@SW_SHOW, $Form1_1)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    ;GUI CSO-Verwalter
    #Region ### START Koda GUI section ### Form=C:\Users\lukiono\Desktop\misc\coverwalter\csoverwalter.kxf
    $csoverwalter = GUICreate("CSO Verwalter", 483, 443, 192, 124)
    GUISetState(@SW_HIDE)
    $List1 = GUICtrlCreateList("", 16, 24, 233, 383)
    $Button1 = GUICtrlCreateButton("CSO löschen", 264, 96, 185, 41, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("CSO zippen", 264, 168, 185, 41, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Duplikate finden", 264, 240, 185, 41, $WS_GROUP)
    #EndRegion ### END Koda GUI section ###
    ;--------------------------
    copzip()

    [/autoit] [autoit][/autoit] [autoit]

    Func copzip()
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    GUISetHelp("gdheue")
    GUISetState()
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    ;Case $MenuItem7
    ; GUISetState( $csoverwalter)

    [/autoit] [autoit][/autoit] [autoit]

    Case $beenden
    $msgb = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
    If $msgb = 6 Then Exit
    Case $MenuItem5
    $msgb2 = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
    If $msgb2 = 6 Then Exit
    Case $csoopen
    $FileName = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
    GUICtrlSetData($ordner, $FileName)
    $read1=GUICtrlRead($ordner)
    $read2=_Zip_UnzipAll($read1,@TempDir&"/cso/",0)
    $fileread1=FileRead("/style.common.ovl")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Case $ctropen
    $FileName2 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
    GUICtrlSetData($ctrinput, $FileName2)

    [/autoit] [autoit][/autoit] [autoit]

    Case $cfropen
    $FileName3 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
    GUICtrlSetData($cfrinput, $FileName3)

    [/autoit] [autoit][/autoit] [autoit]

    Case $MenuItem6
    $msgb3 = MsgBox(16+0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
    Case $MenuItem7
    RunWait("csoconf.EXE")
    Case $MenuItem10
    RunWait("ctrconf.exe")
    Case $MenuItem11
    RunWait("cfrconf.exe")
    Case $MenuItem8
    $msgb3 = MsgBox(16+0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
    Case $MenuItem9
    $msgb3 = MsgBox(16+0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

    Ja ich weiss. Es ist extrem unübersichtlich :D

    MfG

  • Jedoch zeigt er es mir immer an.


    Liegt an Zeile 79:

    [autoit]

    GUISetState()

    [/autoit]

    Probiers mal so:

    Spoiler anzeigen
    [autoit]

    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\..\Documents\Freetime\Roller-Coaster-Tycoon-3-icon~2.ico
    #AutoIt3Wrapper_outfile=coverwalt.exe
    #AutoIt3Wrapper_Res_Fileversion=0.2.0.0
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Run_AU3Check=n
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ;global setzen
    AutoItSetOption("MustDeclareVars", 0)
    Global $beenden, $cfrinput, $cfrlabel, $cfropen, $csolabel, $csoopen, $ctrinput, $nMsg, $ctrlabel, $ctropen, $FileName, $FileName2, $FileName3, $Form1_1, $help, $ini1, $ini2, $MenuItem1, $MenuItem10, $MenuItem11, $MenuItem2, $MenuItem3, $MenuItem4, $MenuItem5, $MenuItem6, $MenuItem7, $MenuItem8, $MenuItem9, $msgb, $msgb2, $msgb3, $ordner, $read, $read1
    ;Startsound
    ;SoundPlay("data/Welcome.mp3")

    [/autoit] [autoit][/autoit] [autoit]

    ;MsgBox(0,"0","Temp: "&@TempDir)
    Func VerzeichnisBestimmen()
    $read = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Atari\RCT3", "InstallLocation")
    $ini1 = IniRead("/data/config.ini", "rct3", "pfad")
    $ini2 = IniRead("/data/config.ini", "msgbox", "gesetzt", "0")
    If $ini2 = 0 Then IniWrite("/data/config.ini", "rct3", "pfad", "$read")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>VerzeichnisBestimmen
    ;Gui
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Zip.au3>
    #include <GUIListBox.au3>
    #region ### START Koda GUI section ### Form=c:\users\lukiono\documents\csoinstaller.kxf
    $Form1_1 = GUICreate("Custom Objects Verwalter ; Willkommen", 625, 329, 192, 124)
    $MenuItem1 = GUICtrlCreateMenu("&Allgemein")
    $MenuItem4 = GUICtrlCreateMenuItem("Öffnen", $MenuItem1)
    $MenuItem5 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $MenuItem2 = GUICtrlCreateMenu("&Erweitert")
    $MenuItem6 = GUICtrlCreateMenuItem("Einstellungen", $MenuItem2)
    $MenuItem7 = GUICtrlCreateMenuItem("CSO verwalten", $MenuItem2)
    $MenuItem10 = GUICtrlCreateMenuItem("CTR verwalten", $MenuItem2)
    $MenuItem11 = GUICtrlCreateMenuItem("CFR verwalten", $MenuItem2)
    $MenuItem3 = GUICtrlCreateMenu("&Infos")
    $MenuItem8 = GUICtrlCreateMenuItem("Hilfe", $MenuItem3)
    $MenuItem9 = GUICtrlCreateMenuItem("Über dieses Programm", $MenuItem3)
    $ordner = GUICtrlCreateInput("", 8, 64, 473, 21)
    $csoopen = GUICtrlCreateButton("Datei öffnen", 496, 64, 121, 33, $WS_GROUP)
    $beenden = GUICtrlCreateButton("Beenden", 208, 264, 161, 33, $WS_GROUP)
    $help = GUICtrlCreateButton("?", 576, 264, 33, 33, $WS_GROUP)
    $cfrinput = GUICtrlCreateInput("", 8, 200, 473, 21)
    $ctrinput = GUICtrlCreateInput("", 8, 136, 473, 21)
    $ctropen = GUICtrlCreateButton("Datei öffnen", 496, 136, 121, 33, $WS_GROUP)
    $cfropen = GUICtrlCreateButton("Datei öffnen", 496, 200, 121, 33, $WS_GROUP)
    $csolabel = GUICtrlCreateLabel("Custom Scenery Objects / CSO", 16, 32, 312, 26)
    GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
    GUICtrlSetColor(-1, 0x008000)
    $ctrlabel = GUICtrlCreateLabel("Custom Tracked Rides / CTR", 16, 104, 290, 26)
    GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
    GUICtrlSetColor(-1, 0x008000)
    $cfrlabel = GUICtrlCreateLabel("Custom Flat Rides / CFR", 16, 176, 257, 26)
    GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
    GUICtrlSetColor(-1, 0x008000)
    GUISetState(@SW_SHOW, $Form1_1)
    #endregion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    ;GUI CSO-Verwalter
    #region ### START Koda GUI section ### Form=C:\Users\lukiono\Desktop\misc\coverwalter\csoverwalter.kxf
    $csoverwalter = GUICreate("CSO Verwalter", 483, 443, 192, 124)
    GUISetState(@SW_HIDE)
    $List1 = GUICtrlCreateList("", 16, 24, 233, 383)
    $Button1 = GUICtrlCreateButton("CSO löschen", 264, 96, 185, 41, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("CSO zippen", 264, 168, 185, 41, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Duplikate finden", 264, 240, 185, 41, $WS_GROUP)
    #endregion ### END Koda GUI section ###
    ;--------------------------
    copzip()

    [/autoit] [autoit][/autoit] [autoit]

    Func copzip()
    EndFunc ;==>copzip

    [/autoit] [autoit][/autoit] [autoit]

    GUISetHelp("gdheue")
    ;~ GUISetState()
    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    If $nMsg[1] = $Form1_1 Then Exit
    GUISetState(@SW_HIDE,$nMsg[1])
    Case $MenuItem7
    GUISetState(@SW_SHOW,$csoverwalter)
    Case $beenden
    $msgb = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
    If $msgb = 6 Then Exit
    Case $MenuItem5
    $msgb2 = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
    If $msgb2 = 6 Then Exit
    Case $csoopen
    $FileName = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
    GUICtrlSetData($ordner, $FileName)
    $read1 = GUICtrlRead($ordner)
    $read2 = _Zip_UnzipAll($read1, @TempDir & "/cso/", 0)
    $fileread1 = FileRead("/style.common.ovl")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Case $ctropen
    $FileName2 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
    GUICtrlSetData($ctrinput, $FileName2)

    [/autoit] [autoit][/autoit] [autoit]

    Case $cfropen
    $FileName3 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
    GUICtrlSetData($cfrinput, $FileName3)

    [/autoit] [autoit][/autoit] [autoit]

    Case $MenuItem6
    $msgb3 = MsgBox(16 + 0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
    Case $MenuItem7
    RunWait("csoconf.EXE")
    Case $MenuItem10
    RunWait("ctrconf.exe")
    Case $MenuItem11
    RunWait("cfrconf.exe")
    Case $MenuItem8
    $msgb3 = MsgBox(16 + 0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
    Case $MenuItem9
    $msgb3 = MsgBox(16 + 0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
    EndSwitch
    WEnd

    [/autoit]
  • Ok funzt. Danke :)

    Kann man eigentlich irgendwie alle Unterordner in einem Ordner auslesen?
    Hab dazu (noch) nichts gefunden