gui_inputfeld

1. offizieller Beitrag

    Hy!
    erst mal der code:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Wecker", 202, 237, 193, 125)
    GUISetOnEvent($gui_event_close, "end")
    $Group1 = GUICtrlCreateGroup("", 16, 16, 169, 177)
    $Label1 = GUICtrlCreateLabel("Wann soll der Wecker läuten?", 24, 32, 148, 17)
    $zeit = GUICtrlCreateInput("", 56, 56, 65, 21)
    $Label2 = GUICtrlCreateLabel("Zeitformat (Stunde:Minute)", 32, 88, 129, 17)
    $Button1 = GUICtrlCreateButton("OK", 48, 128, 41, 17, 0)
    GUICtrlSetOnEvent(-1, "ok")
    $Button2 = GUICtrlCreateButton("Cancel", 104, 128, 49, 17, 0)
    GUICtrlSetOnEvent(-1, "end")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    Sleep(100)
    WEnd
    Func ok()
    $msg = MsgBox(4, "Warnung", "Der Wecker wird um " & GUICtrlRead($zeit) & " läuten" & @CRLF & @CRLF & "Fortfahren?")
    If $msg = 6 Then
    GUISetState(@SW_HIDE)
    ToolTip("Wecker: " & GUICtrlRead($zeit),0,0)
    While 1
    If GUICtrlRead($zeit) = @HOUR & ":" & @MIN Then
    ShellExecute("C:\Dokumente und Einstellungen\***\Eigene Dateien\Eigene Musik\Eigene Wiedergabelisten\Alle.wpl")
    ExitLoop
    EndIf
    Sleep(100)
    WEnd
    Exit
    Else
    end()
    EndIf
    EndFunc
    Func end()
    Exit
    EndFunc

    [/autoit]

    lol, sry wegen topic name, mir ist echt nichts eingefallen --.-- :cursing:


    Ich hab mir einen wecker gebaut, der eigt. bis jetzt ganz gut funktioniert. nur hätte ich noch gerne dass man beim inputfeld nur uhrzeiten eingeben kann (stunde:minute). kann mir da jemand helfen bitte?

    mfg Fisch

    • Offizieller Beitrag

    Ich würde statt einem Input-Control lieber zwei Combo-Boxen nehmen:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)
    #region ### START Koda GUI section ### Form=
    Global $H, $M
    $Form1 = GUICreate("Wecker", 202, 237, 193, 125)
    GUISetOnEvent($gui_event_close, "end")
    $Group1 = GUICtrlCreateGroup("", 16, 16, 169, 177)
    $Label1 = GUICtrlCreateLabel("Wann soll der Wecker läuten?", 24, 32, 148, 17)
    $zeitH = GUICtrlCreateCombo("", 46, 56, 40, 21, BitOr($CBS_DROPDOWNLIST, $WS_VSCROLL))
    For $i = 0 To 23
    $H &= StringRight("0" & $i, 2) & "|"
    Next
    GUICtrlSetData($zeitH, $H, "00")
    GUICtrlCreateLabel(":", 95, 56, 10, 21)
    GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman")
    $zeitM = GUICtrlCreateCombo("", 106, 56, 40, 21, BitOr($CBS_DROPDOWNLIST, $WS_VSCROLL))
    For $i = 0 To 59
    $M &= StringRight("0" & $i, 2) & "|"
    Next
    GUICtrlSetData($zeitM, $M, "00")
    ; $zeit = GUICtrlCreateInput("", 56, 56, 65, 21)
    $Label2 = GUICtrlCreateLabel("Zeitformat (Stunde:Minute)", 32, 88, 129, 17)
    $Button1 = GUICtrlCreateButton("OK", 48, 128, 41, 17, 0)
    GUICtrlSetOnEvent(-1, "ok")
    $Button2 = GUICtrlCreateButton("Cancel", 104, 128, 49, 17, 0)
    GUICtrlSetOnEvent(-1, "end")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #endregion ### START Koda GUI section ### Form=
    While 1
    Sleep(100)
    WEnd
    Func ok()
    $msg = MsgBox(4, "Warnung", "Der Wecker wird um " & GUICtrlRead($zeit) & " läuten" & @CRLF & @CRLF & "Fortfahren?")
    If $msg = 6 Then
    GUISetState(@SW_HIDE)
    ToolTip("Wecker: " & GUICtrlRead($zeit), 0, 0)
    While 1
    If GUICtrlRead($zeit) = @HOUR & ":" & @MIN Then
    ShellExecute("C:\Dokumente und Einstellungen\***\Eigene Dateien\Eigene Musik\Eigene Wiedergabelisten\Alle.wpl")
    ExitLoop
    EndIf
    Sleep(100)
    WEnd
    Exit
    Else
    end()
    EndIf
    EndFunc ;==>ok
    Func end()
    Exit
    EndFunc ;==>end

    [/autoit]

    Das erspart Dir das ganze testen der Eingabe.

    Edit: Ich hab jetzt bloß die beiden Combo-Boxen eingefügt. Du musst noch den Rest des Scripts anpassen.