Verstecken funktion?

Skar

Ich habe eine

$Checkbox4 = GUICtrlCreateCheckbox("Sortieren", 48, 280, 97, 17)

Wenn die Aktivirt wir (Also wenn das Kreis gesezt wird)
Soll sofort das "verstechte" Zusatzmenue Auftauchen.

Zusatzmenüe:

Spoiler anzeigen

$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)

Meine Frage wie mache ich dises Group Menu unsichtbar bis das Häckchen gesezt wird?

simon

DU frägst den STatus von deiner Checkbox ab und wenn es nicht geklickt ist setzt du alle controls des zusatzmenüs mit

[autoit]

GUICtrlSetState($deincontrol,$GUI_HIDE)

[/autoit]

auf unsichtbar

Skar

Das mit den Abfragen geht nicht so richtig. Ich bekomme es swar versteckt, aber nicht sofort sichtbar wenn ich das Häckchen setze.
Wo ist das Problem? Wie frage ich richtig ab?

Spoiler anzeigen

if $Checkbox4 = False Then
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
GUICtrlSetState($Sammelack,$GUI_HIDE)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
GUICtrlSetState($Nahrung,$GUI_HIDE)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
GUICtrlSetState($Regs,$GUI_HIDE)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
GUICtrlSetState($Pilze,$GUI_HIDE)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
GUICtrlSetState($Samen,$GUI_HIDE)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
GUICtrlSetState($Zauberspruche,$GUI_HIDE)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
GUICtrlSetState($Edelsteine,$GUI_HIDE)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
GUICtrlSetState($Sonstiges,$GUI_HIDE)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
GUICtrlSetState($Felle,$GUI_HIDE)
EndIf

**BugFix**

Zitat von Skar

Wie frage ich richtig ab?

[autoit]

If BitAnd(GUICtrlRead($CheckBox), $GUI_CHECKED) Then ; ist markiert

[/autoit]

Skar

Jetzt Flackert es bei mir so wild, wenn ich das Häckchen setze. Wenn ich es wider raus nehme steht alles nicht mehr flckerd da und ist nicht versteckt. Ich brobire jetzt noch mal rum.

Was fehlt den noch?

Spoiler anzeigen

(Hir oben sind die aufzudeckenden sachen als Versteckt angegeben)

While 1
$nMsg = GUIGetMsg()

If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen ( "(Ver.1.2)Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
;If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then

;EndIf
;FileWrite($file, )
FileClose($file)

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4 )

EndSwitch
WEnd

**BugFix**

Zitat von Skar

Jetzt Flackert es bei mir so wild, was fehlt den noch?

Es fehlt nichts, es ist zu viel.
Du mußt beim Auswerten von GUIGetMsg() die Checkbox als Case eintragen.

[autoit]

Switch GUIGetMsg()
Case $Checkbox
If BitAnd(GUICtrlRead($Checkbox), $GUI_CHECKED) Then ...

[/autoit]

Und verwende bitte AutoIt-Tags und Spoiler!

Skar

Das geht aber nicht mit Case $Checkbox4 da kommt bei mir ein Fehler.
"Case statement with no matching "Seleckt" or Switch".

Was ich jetzt brauche ist ein Beispiel wo ich ein Checkbox zu ankreuzen habe und ein Wort dabei auftaucht und verschwindet. Rest mach ich dan.
Wie gesagt ich habe noch nie GUI´s gemacht und kenne die Behele nicht auswendig.

**autoBert**

Hallo Skar,

dann poste doch einfach mal dein komplettes Skript

mfg (Auto)Bert

Skar

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=d:\jagtskript.exe\sicherung der forms mit koda\formcharanlegen.kxf
$Form1_1 = GUICreate("Menü zum Char Anlegen", 493, 509, 193, 125)
GUISetBkColor(0xB9D1EA)
$Label1 = GUICtrlCreateLabel("Willkommen bei dem Einstigs-Tool des JagdSkriptes!", 32, 16, 425, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("1. Name:", 32, 70, 65, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 112, 70, 209, 21)
GUICtrlSetCursor (-1, 5)
GUISetState(@SW_SHOW)
$Label3 = GUICtrlCreateLabel("zb. Findecano (keine Titel und Orte)", 112, 104, 173, 17)
$Label4 = GUICtrlCreateLabel("Nur ein einzigen Teil des Namens Eintragen!", 112, 128, 213, 17)
$Label5 = GUICtrlCreateLabel("2. Welche Funktionen wollt ihr nutzen?", 32, 176, 263, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Bodensuche", 48, 220, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Obduktion/Zapfen", 280, 220, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Haeuten", 168, 220, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Sortieren", 48, 280, 97, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("_______________________________________________________", 48, 248, 334, 17)
$Label7 = GUICtrlCreateLabel(">>>>>>>>>>", 48, 304, 64, 17)
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
$Inhalt_bestimmen = GUICtrlCreateButton("Inhalt_bestimmen", 136, 454, 110, 25, 0)
GUICtrlSetCursor (-1, 0)
$ID_Setzen = GUICtrlCreateButton("ID_Setzen", 264, 454, 110, 25, 0)
GUICtrlSetCursor (-1, 0)
$Label8 = GUICtrlCreateLabel(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>", 136, 432, 235, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Back = GUICtrlCreateButton("Back", 32, 470, 75, 25, 0)
GUICtrlSetCursor (-1, 0)
$Speichern = GUICtrlCreateButton("Speichern", 400, 432, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()

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

If BitAnd(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) Then
GUICtrlSetState($Group1 ,$GUI_HIDE)
GUICtrlSetState($Sammelack,$GUI_HIDE)
GUICtrlSetState($Nahrung,$GUI_HIDE)
GUICtrlSetState($Regs,$GUI_HIDE)
GUICtrlSetState($Pilze,$GUI_HIDE)
GUICtrlSetState($Samen,$GUI_HIDE)
GUICtrlSetState($Zauberspruche,$GUI_HIDE)
GUICtrlSetState($Edelsteine,$GUI_HIDE)
GUICtrlSetState($Sonstiges,$GUI_HIDE)
GUICtrlSetState($Felle,$GUI_HIDE)
EndIf
If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
;Else
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen ( "(Ver.1.2)Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitBoden 1"
FileWrite($file, $ifname1 )
EndIf

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

If BitAnd(GUICtrlRead($Checkbox1), $GUI_UNCHECKED ) Then
Dim $ifname1 = " set %mitBoden 0"
FileWrite($file, $ifname1 )
EndIf
;FileWrite($file, )
FileClose($file)

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

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4 )

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

EndSwitch
WEnd

[/autoit]

ScripterDrîzzt

benutze bei dir lieber mal Tidy = STRG+T damit es übersichtlicher wird =)

Skar

Case hat so funktioniert:

[autoit]

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $nMsg = $Checkbox4

[/autoit]

Skar

Doch leider weiß ich nicht warum es so wild blinket. Und beim Deaktivieren geht es auch nicht wider zu verstecken. Warum?

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $nMsg = $Checkbox4
If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
EndIf
If BitAnd(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) Then
GUICtrlSetState($Group1 ,$GUI_HIDE)
GUICtrlSetState($Sammelack,$GUI_HIDE)
GUICtrlSetState($Nahrung,$GUI_HIDE)
GUICtrlSetState($Regs,$GUI_HIDE)
GUICtrlSetState($Pilze,$GUI_HIDE)
GUICtrlSetState($Samen,$GUI_HIDE)
GUICtrlSetState($Zauberspruche,$GUI_HIDE)
GUICtrlSetState($Edelsteine,$GUI_HIDE)
GUICtrlSetState($Sonstiges,$GUI_HIDE)
GUICtrlSetState($Felle,$GUI_HIDE)
EndIf

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

Case $Speichern
$Name = GuiCtrlRead($Input1 )
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen ( "(Ver.1.2)Charsammlung.txt", 1 )
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF )
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitBoden 1"
FileWrite($file, $ifname1 )
EndIf
If BitAnd(GUICtrlRead($Checkbox1), $GUI_UNCHECKED ) Then
Dim $ifname1 = " set %mitBoden 0"
FileWrite($file, $ifname1 )
EndIf
If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitHaeuten 1"
FileWrite($file, $ifname1 )
EndIf
If BitAnd(GUICtrlRead($Checkbox3), $GUI_UNCHECKED ) Then
Dim $ifname1 = " set %mitHaeuten 0"
FileWrite($file, $ifname1 )
EndIf
;FileWrite($file, )
FileClose($file)

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

Else
MsgBox(4096,"Warnung" , "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4 )

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

EndSwitch
WEnd

[/autoit]

Skar

Kann ich Links bekommen wo man GUI Elemente versteckt hat und wider einblenden lies?

Skar

Ich haaaaabbbbba. endlich. Ich hab viel zu viel rundherum gehabt.

**Raupi**

Egal ob du es hast, hab es auch.

Spoiler anzeigen

[autoit]

#cs **************************************************************************

Verstecken funktion?

http://www.autoit.de/index.php?page…9800#post109800

#ce **************************************************************************

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

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=d:\jagtskript.exe\sicherung der forms mit koda\formcharanlegen.kxf
$Form1_1 = GUICreate("Menü zum Char Anlegen", 493, 509, 193, 125)
GUISetBkColor(0xB9D1EA)
$Label1 = GUICtrlCreateLabel("Willkommen bei dem Einstigs-Tool des JagdSkriptes!", 32, 16, 425, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("1. Name:", 32, 70, 65, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 112, 70, 209, 21)
GUICtrlSetCursor(-1, 5)
GUISetState(@SW_SHOW)
$Label3 = GUICtrlCreateLabel("zb. Findecano (keine Titel und Orte)", 112, 104, 173, 17)
$Label4 = GUICtrlCreateLabel("Nur ein einzigen Teil des Namens Eintragen!", 112, 128, 213, 17)
$Label5 = GUICtrlCreateLabel("2. Welche Funktionen wollt ihr nutzen?", 32, 176, 263, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Bodensuche", 48, 220, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Obduktion/Zapfen", 280, 220, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Haeuten", 168, 220, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Sortieren", 48, 280, 97, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("_______________________________________________________", 48, 248, 334, 17)
$Label7 = GUICtrlCreateLabel(">>>>>>>>>>", 48, 304, 64, 17)
$Group1 = GUICtrlCreateGroup("Zur Funktion Sortieren ! ", 120, 304, 265, 193)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Sammelack = GUICtrlCreateCheckbox("Sack für´s Loot", 190, 329, 97, 17)
$Nahrung = GUICtrlCreateCheckbox("Nahrungssack", 256, 354, 97, 17)
$Regs = GUICtrlCreateCheckbox("Reagenziensack", 136, 354, 97, 17)
$Pilze = GUICtrlCreateCheckbox("Pilzsack", 256, 374, 97, 17)
$Samen = GUICtrlCreateCheckbox("Samensack", 136, 374, 97, 17)
$Zauberspruche = GUICtrlCreateCheckbox("Zauberspruchsack", 256, 394, 97, 17)
$Edelsteine = GUICtrlCreateCheckbox("Edelsteinsack", 136, 394, 97, 17)
$Sonstiges = GUICtrlCreateCheckbox("Sonstiges", 256, 414, 97, 17)
$Felle = GUICtrlCreateCheckbox("Fellsack", 136, 414, 97, 17)
$Inhalt_bestimmen = GUICtrlCreateButton("Inhalt_bestimmen", 136, 454, 110, 25, 0)
GUICtrlSetCursor(-1, 0)
$ID_Setzen = GUICtrlCreateButton("ID_Setzen", 264, 454, 110, 25, 0)
GUICtrlSetCursor(-1, 0)
$Label8 = GUICtrlCreateLabel(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>", 136, 432, 235, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Back = GUICtrlCreateButton("Back", 32, 470, 75, 25, 0)
GUICtrlSetCursor(-1, 0)
$Speichern = GUICtrlCreateButton("Speichern", 400, 432, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetState($Group1, $GUI_HIDE)
GUICtrlSetState($Sammelack, $GUI_HIDE)
GUICtrlSetState($Nahrung, $GUI_HIDE)
GUICtrlSetState($Regs, $GUI_HIDE)
GUICtrlSetState($Pilze, $GUI_HIDE)
GUICtrlSetState($Samen, $GUI_HIDE)
GUICtrlSetState($Zauberspruche, $GUI_HIDE)
GUICtrlSetState($Edelsteine, $GUI_HIDE)
GUICtrlSetState($Sonstiges, $GUI_HIDE)
GUICtrlSetState($Felle, $GUI_HIDE)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Checkbox4
If BitAND(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) Then
GUICtrlSetState($Group1, $GUI_HIDE)
GUICtrlSetState($Sammelack, $GUI_HIDE)
GUICtrlSetState($Nahrung, $GUI_HIDE)
GUICtrlSetState($Regs, $GUI_HIDE)
GUICtrlSetState($Pilze, $GUI_HIDE)
GUICtrlSetState($Samen, $GUI_HIDE)
GUICtrlSetState($Zauberspruche, $GUI_HIDE)
GUICtrlSetState($Edelsteine, $GUI_HIDE)
GUICtrlSetState($Sonstiges, $GUI_HIDE)
GUICtrlSetState($Felle, $GUI_HIDE)
ElseIf BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then
GUICtrlSetState($Group1, $GUI_HIDE)
GUICtrlSetState($Sammelack, $GUI_SHOW)
GUICtrlSetState($Nahrung, $GUI_SHOW)
GUICtrlSetState($Regs, $GUI_SHOW)
GUICtrlSetState($Pilze, $GUI_SHOW)
GUICtrlSetState($Samen, $GUI_SHOW)
GUICtrlSetState($Zauberspruche, $GUI_SHOW)
GUICtrlSetState($Edelsteine, $GUI_SHOW)
GUICtrlSetState($Sonstiges, $GUI_SHOW)
GUICtrlSetState($Felle, $GUI_SHOW)
EndIf
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$Name = GUICtrlRead($Input1)
Dim $ifname = "if " & $Name & " in #CHARNAME"
If FileExists(@ScriptDir & '\(Ver.1.2)Charsammlung.txt') Then
$file = FileOpen("(Ver.1.2)Charsammlung.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $zu = "{"
FileWrite($file, @CRLF)
FileWrite($file, $ifname & @CRLF & $zu & @CRLF)
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
Dim $ifname1 = " set %mitBoden 1"
FileWrite($file, $ifname1)
EndIf

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

If BitAND(GUICtrlRead($Checkbox1), $GUI_UNCHECKED) Then
Dim $ifname1 = " set %mitBoden 0"
FileWrite($file, $ifname1)
EndIf
;FileWrite($file, )
FileClose($file)

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

Else
MsgBox(4096, "Warnung", "SkriptPathangaben.txt does NOT exists")
EndIf
MsgBox(0, "Test", $Checkbox4)

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

EndSwitch
WEnd

[/autoit]

Skar

Jetzt bin ich wider Happy. Wider was gelernt. Danke für die gedult, die ich nicht hatte heute.