AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;===============================================================================
;
; Function Name:    _InputBox2()
; Description:      Create an InputBox like.
; Parameter(s):     $Title      - The title of the input box
;                   $Prompt     - Message to the user indicating what kind of input is expected
;                   $Default    - The value that the input box starts with. (optional)
;                   $Style      - The type of char that must be enter. (optional)
;                                       - 0 = All chars (default)
;                                       - 1 = Only numbers
;                                       - 2 = Password style
;                                       - 3 = Only numbers with password style
;                   $Limit      - The max number of char to type. (optional)
; Requirement(s):   
; Return Value(s):  On Success - Return 1
;                   On Failure - Return 0
; Author(s):        Tlem
;
; Example :         MsgBox(0, "", _InputBox2("Titre", "Entrez un nombre", "", 1))
;===============================================================================
Func _InputBox2($Title, $Prompt, $Default = "", $Style = 0, $Limit = "")
    $CharLimit = 5

    Select
        Case $Style = 0
            $InputStyle = $ES_AUTOHSCROLL

        Case $Style = 1
            $InputStyle = BitOR($ES_AUTOHSCROLL, $ES_NUMBER)

        Case $Style = 2
            $InputStyle = BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)

        Case $Style = 3
            $InputStyle = BitOR($ES_AUTOHSCROLL, $ES_NUMBER, $ES_PASSWORD)
    EndSelect

    $InputBox = GUICreate($Title, 240, 160, -1, -1)
    $Prompt = GUICtrlCreateLabel($Prompt, 15, 15, 210, 100)
    $Input = GUICtrlCreateInput($Default, 8, 88, 225, 21, $InputStyle)
    GUICtrlSetLimit(-1, $Limit)
    $OK = GUICtrlCreateButton("OK", 24, 120, 75, 25, $WS_GROUP)
    $Cancel = GUICtrlCreateButton("Annuler", 136, 120, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE, $Cancel
                SetError(1)
                Return ""

            Case $OK
                Return GUICtrlRead($Input)

        EndSwitch
    WEnd
EndFunc   ;==>_InputBox2