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
#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")
;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")
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 ###
;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()
Func copzip()
EndFunc
GUISetHelp("gdheue")
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Case $MenuItem7
; GUISetState( $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")
Case $ctropen
$FileName2 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
GUICtrlSetData($ctrinput, $FileName2)
Case $cfropen
$FileName3 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
GUICtrlSetData($cfrinput, $FileName3)
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
Ja ich weiss. Es ist extrem unübersichtlich
MfG