GUI - Installer: Button mit Countdown?!

  • Hey,

    Ich brauche einen Button in dem "PAUSE (X)" (X= Steht für den Countdown) steht, wenn der Countdown vorbei ist, wird der Button "Installieren" gedrückt, wenn aber der Button "Pause (X)" gedrückt wird, bevor der Countdown vorbei ist, beendet sich der Countdown und der Button "Installieren" kann manuel angeklickt werden!

    Einmal editiert, zuletzt von freakisch (10. Mai 2009 um 11:38)

  • Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    $Pausieren = 10
    GUICreate("Countdown")
    $hButtonP = GUICtrlCreateButton(" Pause (" & $Pausieren & ") ",20,20)
    $hButtonI = GUICtrlCreateButton(" Installieren ",100,20)
    GUISetState (@SW_SHOW)

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

    AdlibEnable("_CountDown",1000)
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit

    Case $msg = $hButtonP
    $Pausieren = -1
    AdlibDisable()
    GUICtrlSetData($hButtonP," Pause ")

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

    Case $msg = $hButtonI
    _Installieren()

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

    EndSelect
    If $pausieren = 0 Then
    AdlibDisable()
    GUICtrlSetData($hButtonP," Pause ")
    $pausieren = -1
    _Installieren()
    EndIf
    WEnd

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

    Func _Installieren()
    Msgbox(0,"","Installieren wurde gewählt")
    EndFunc

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

    Func _CountDown()
    If $Pausieren > 0 Then $pausieren -= 1
    GUICtrlSetData($hButtonP," Pause (" & $Pausieren & ") ")
    EndFunc

    [/autoit]

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

    • Offizieller Beitrag

    Mal ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    $iCount = 10
    GUICreate('test', 200, 100)
    $hPause = GUICtrlCreateButton('Auto-Install (' & $iCount & ')', 10, 70, 100, 20)
    $hInstall = GUICtrlCreateButton('Installieren', 120, 70, 70, 20)
    GUISetState()
    AdlibEnable('_CountDown', 1000)
    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hPause
    AdlibDisable()
    GUICtrlSetData($hPause, 'Pause')
    GUICtrlSetState($hPause, $GUI_DISABLE)
    Case $hInstall
    _Install()
    EndSwitch
    WEnd

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

    Func _CountDown()
    $iCount -= 1
    GUICtrlSetData($hPause, 'Auto-Install (' & $iCount & ')')
    If $iCount = 0 Then
    AdlibDisable()
    _Install()
    EndIf
    EndFunc

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

    Func _Install()
    MsgBox(0, 0, 'Installiere...')
    EndFunc

    [/autoit]