Input keine Buchstaben

    Hey ich habe mal eine frage also ich habe mit dem Kodaform designer ein inputbox gemacht das soll die zeit in sekunden aufnehmen is ja nicht schwer das es wenn drinne steht 1 das mit 1000 multipliziert aber ich will das wenn jemand nen buchstaben anstatt ne zahl schreibt das programm eine msg box mit einem fehler anzeigt und das proggi sich beendet. zu faul nenn ich es nicht aber ich denke mal es gibt einen einfacheren weg als alle zeichen die nicht 0,1,2,3,4,5,6,7,8 oder 9 sind zu beenden.

    wäre nett wenn ihr mir helfen würdet

    Einmal editiert, zuletzt von Rey96 (19. Februar 2011 um 15:56)

    [autoit]

    GUICtrlCreateInput("Input1", 109, 74, 218, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))

    [/autoit]


    Wie man das Programm dann beenden könnte, wüsst ich nich..

    [align=center]Meine Werke mit der Irrlicht Engine
    AutoIt Picture Viewer Dreidimensionaler Bildbetrachter
    Mr Bubble 3D Neue Interpretation des Flashklassikers Bubble trouble

    ja du, genau das passiert doch aber auch.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #region - GUI Create
    GUICreate('',100,100)
    $i = GUICtrlCreateInput("", 4, 4, 80, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
    GUISetState()
    #endregion

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #endregion

    [/autoit]

    Beenden könnte man das so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    $hWnd = GUICreate("Test", 200, 35)
    $cInput = GUICtrlCreateInput("", 5, 5, 190, 25)
    GUISetState()

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

    $iOldNumber = ""

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

    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    If GUICtrlRead($cInput) <> $iOldNumber Then
    $iOldNumber = GUICtrlRead($cInput)
    If StringRegExp($iOldNumber, "[^0-9]", 0) Then Exit
    EndIf
    WEnd

    [/autoit]