DialogOpen

AutoTim

Wenn ich bei Folgendem Abschnitt meiner Gui, das FileOpen Fenster schließe, hängt sich meine Gui auf. Was bekomme ich denn zurück, wenn ich das Fenster schließe ? Ich habe in der Hilfe nicht gefunden

Spoiler anzeigen

[autoit]

Case $MenuItem5
$fileopendialog = FileOpenDialog("Projekt öffnen", @DesktopDir, "INI-Datei (*.ini;)", 1) ; Öffnen Dialog
If @error Then ExitLoop MsgBox(0, "", "Abbruch durch Benutzer") ; Nach error Fragen
If StringRight($fileopendialog, 4) <> ".ini" Then $fileopendialog &= ".ini" ; wenn kein .ini dann .ini

For $i = 0 To 43
$var = IniRead($fileopendialog, $i, "Input", 1000)
;~ msgbox(0,"",$var)
GUICtrlSetData(($Inputport[$i]),$var)
Next

[/autoit]

lg Tim

Er darf die For schleife nicht mehr ausführen, wenn ich auf schließen gehe. Mit ExitLoop, beendet er meine Haupt While Schleife.

**Schnitzel**

@error wird auf 1 gesetzt wenn man Abbrechen oder Schließen drückt.

hättest aber auch ganz leicht selber testen können...

Spoiler anzeigen

[autoit]

$ret = FileOpenDialog("", @DesktopDir,"all (*.*)")
MsgBox(0, @error, $ret)

[/autoit]

Prajoss

Hi,

probiers so

Spoiler anzeigen

[autoit]

Case $MenuItem5
$fileopendialog = FileOpenDialog("Projekt öffnen", @DesktopDir, "INI-Datei (*.ini;)", 1) ; Öffnen Dialog
If $fileopendialog <> -1 Then
If StringRight($fileopendialog, 4) <> ".ini" Then $fileopendialog &= ".ini" ; wenn kein .ini dann .ini

For $i = 0 To 43
$var = IniRead($fileopendialog, $i, "Input", 1000)
;~ msgbox(0,"",$var)
GUICtrlSetData(($Inputport[$i]),$var)
Next
Else
MsgBox(0, "", "Abbruch durch Benutzer") ; Nach error Fragen
EndIf

[/autoit]

**Schnitzel**

Zitat von Prajoss

Hi,

probiers so

Das ist Käse. $fileopendialog ist immer <> -1

AutoTim:
Das was du hast sollte doch funktionieren. Ich glaube kaum dass du andere Rückgabewerte hast wenn du Schließen drückst.
Teste das mal mit den 2 Zeilen aus Post #2

Prajoss

Ach mist, hab ausversehen FileOpen drin gehabt in der Hilfe :-/

**autoBert**

Hallo AutoTim,

mmach es doch so:

[autoit]

Case $MenuItem5
$fileopendialog = FileOpenDialog("Projekt öffnen", @DesktopDir, "INI-Datei (*.ini;)", 1) ; Öffnen Dialog
If @error Then
MsgBox(0, "", "Abbruch durch Benutzer") ; Nach error Fragen besseren Fehlertext suchen
else
If StringRight($fileopendialog, 4) <> ".ini" Then $fileopendialog &= ".ini" ; wenn kein .ini dann .ini

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

For $i = 0 To 43
$var = IniRead($fileopendialog, $i, "Input", 1000)
;~ msgbox(0,"",$var)
GUICtrlSetData(($Inputport[$i]), $var)
Next
EndIf

[/autoit]

AutoTim

Ok, Danke, das letzte steht
Vielen Dank euch allen Manchmal ist die Lösung so einfach

lg Tim

AutoTim

Noch eine Kleinigkeit. wie bekomme ich es hin, wenn die Msgbox das Nein bekommt, das dann MunüItem 5 aufgerufen wird ? Am besten Ohne Funktion:

Spoiler anzeigen

[autoit]

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
$magboxschliesenantwort = Msgbox(36,"Ohne speichern beenden ?!","Möchten sie Ihr Projekt ohne speichern beenden ?")
If $magboxschliesenantwort = 7 Then GUICtrlSetData($Edit1, "=> Dann bitte speichern !"&@CRLF, 1) ; Nein
If $magboxschliesenantwort = 6 Then Exit ; Ja

Case $MenuItem5
$fileopendialog = FileOpenDialog("Projekt öffnen", @DesktopDir, "INI-Datei (*.ini;)", 1) ; Öffnen Dialog
If @error Then
GUICtrlSetData($Edit1, "=> Das Projekt konnte nicht geöffnet werden!"&@CRLF, 1)
else
If StringRight($fileopendialog, 4) <> ".ini" Then $fileopendialog &= ".ini" ; wenn kein .ini dann .ini

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

For $i = 0 To 43
$var = IniRead($fileopendialog, $i, "Input", 1000)
;~ msgbox(0,"",$var)
GUICtrlSetData(($Inputport[$i]), $var)
Next
GUICtrlSetData($Edit1, "=> Projekt wurde geöffnet! -> "& $fileopendialog &@CRLF ,1)
EndIf

Case $MenuItem4
$filesavedialog = FileSaveDialog("Projekt speichern", @DesktopDir, "INI-Datei (*.ini)", 16) ;Speichern Dialog
If @error Then
GUICtrlSetData($Edit1, "=> Projekt konnte nicht gespeichert werden!"&@CRLF ,1)
else
If StringRight($filesavedialog, 4) <> ".ini" Then $filesavedialog &= ".ini" ; wenn kein .ini dann .ini

For $i = 0 To 43
IniWrite($filesavedialog, $i, "Input", GUICtrlRead($Inputport[$i])) ; Ini beschrieben
Next
GUICtrlSetData($Edit1, "=> Projekt wurde gespeichert! -> "& $filesavedialog &@CRLF ,1)
EndIf
Case $MenuItem7
Exit
EndSwitch
WEnd

[/autoit]

SEuBo

ContinueCase

AutoTim

BIG THX