GUI "mit" MsgBox

  • Hey Leute,
    hab ein kleines Problem mit einer GUI. Und zwar soll das Programm aus einer Combobox etwas auslesen, wenn man auf einen Button klickt. Wenn dann etwas "falsches" in der Combobox steht, soll eine MsgBox kommen wo drin steht: "Achtung dies kann zu Fehlern führen! Programm wirklich ausführen?". Wenn man dann auf "Ja" klickt, soll das Programm ganz normal ausgeführt werden. Dies ist kein Problem. Aber wenn man dann auf "Abbrechen" klickt, soll man wieder normal zur GUI zurückkommen und zwar ohne das nach dem Klick auf den Button die Funktion ausgeführt wird:

    Spoiler anzeigen
    [autoit]


    GUICreate ("hallo",500,500,50,50)
    GUISetState (@SW_SHOW)
    $button = Guictrlcreatebutton ("Start",50,50,50,-1)
    $combobox = GUICtrlCreateCombo ("Profil",100,100,100,-1)
    GUICtrlSetData (-1,"Abgefahren|Noch brauchbar")
    ;die GUI in meinem Programm is allerdings um einiges länger...

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

    While 1
    $msg = Guigetmsg ()
    If $msg = $button Then
    If Guictrlread ($combobox) = "Profil" Then
    $msgbox = MsgBox (1,"Fehler","Achtung dies kann zu Fehlern führen! Programm wirklich ausführen?")
    If $msgbox = 1 Then
    GUIDelete ()
    EndIf
    If $msgbox = 2 Then
    ;?!?!?!?!?!
    EndIf
    EndIf
    Hotkeyset ("{F5}","Start")
    Hotkeyset ("{ESC}","Ende")
    EndIf
    WEnd

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

    While 1
    Sleep (50)
    WEnd

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

    Func Start ()
    ToolTip ("Start",0,0)
    ;usw
    EndFunc

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

    Func Ende ()
    Exit
    EndFunc

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

    Danke

    LG
    Manlius

  • Ich habe dir mal was zusammeln gebastelt :) Also ich würde es so machen :)

    Bei mir klappt es ^^

    Hoffe du freust dich =D

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    HotKeySet("{F5}", "Start")
    HotKeySet("{ESC}", "Ende")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 344, 197, 320, 277)
    $Button1 = GUICtrlCreateButton("Start", 120, 56, 89, 41, 0)
    $Combo1 = GUICtrlCreateCombo("Profil", 96, 136, 153, 25)
    GUICtrlSetData(-1, "Abgefahren|Noch brauchbar")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1
    If GUICtrlRead($Combo1) = 'Abgefahren' Then
    $Abgefahren = MsgBox(8244, "Abgefahren", "Achtung dies kann zu Fehlern Füghren! Programm wirklick ausführen?")
    Select
    Case $Abgefahren = 6 ;Yes
    GUIDelete ()
    Case $Abgefahren = 7 ;No
    MsgBox(0,"","Shit Happens")
    EndSelect
    EndIf

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

    If GUICtrlRead($Combo1) = 'Noch brauchbar' Then
    $Nochbrauchbar = MsgBox(8244, "Noch brauchbar", "Achtung dies kann zu Fehlern Füghren! Programm wirklick ausführen?")
    Select
    Case $Nochbrauchbar = 6 ;Yes
    GUIDelete ()
    Case $Nochbrauchbar = 7 ;No
    MsgBox(0,"","Shit Happens")
    EndSelect
    EndIf

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

    If GUICtrlRead($Combo1) = 'Profil' Then
    $Profil = MsgBox(8244, "Profil", "Achtung dies kann zu Fehlern Füghren! Programm wirklick ausführen?")
    Select
    Case $Profil = 6 ;Yes
    GUIDelete ()
    Case $Profil = 7 ;No
    MsgBox(0,"","Shit Happens")
    EndSelect
    EndIf
    EndSwitch
    WEnd

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

    Func Start()
    ToolTip("Start", 0, 0)
    ;usw
    EndFunc ;==>Start

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

    Func Ende()
    Exit
    EndFunc ;==>Ende

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