6 replies to this topic

[MrCreatoR]

Hi to all!

Custom (GUI-Based) version of the Build-in function InputBox():

AutoIt        expandcollapse  popup

;===============================================================================
;
; Function Name:    _InputBox()
; Description:      Custom InputBox Function (GUI based).
; Parameter(s):     $Title - The title of the Input Box.
;                   $Prmt - A message to the user indicating what kind of input is expected.
;                   $sDef - [Optional] The value that the input box starts with.
;                   $hWnd - [Optional] Window handle of the parent.
;                   $IsPass - [optional] If <> 0 Then typed characters will be replaced with password characters (*).
;                   $IsDig - [optional] If <> 0 Then only numbers can by typed to the input.
;                   $Limit - [optional] Limit the input for accept N characters.
;                   $W - [optional] The width of the window. Use -1 for default width (200).
;                   $H - [optional] The height of the window. Use -1 for default height (150).
;                   $Left - [optional] The left side of the input box. By default (-1), the box is centered.
;                   $Top - [optional] The top of the input box. By default (-1), the box is centered.
;                   $Style - [optional] Defines the style of the GUI window (forced style(s): $WS_SIZEBOX).
;                   $exStyle - [optional] Defines the extended style of the GUI window. -1 is the default.
;                   $iTOut - [optional] How many seconds to wait before automatically cancelling the InputBox.
;
; Requirement(s):   #include <GuiConstants.au3>.
; Return Value(s):  String that was typed to the Input.
; Author(s):        G.Sandler (a.k.a CreatoR).
; Note(s):          None.
;
;===============================================================================ƒ

Example + UDF:
 _InputBox.au3   2.9K   210 downloads

[NEW]
 _InputBox.au3   4.71K   936 downloads


========================================

EDIT 1:
Added $Timeout param - It allows to set timeout (in seconds), just like in the original function InputBox().

EDIT 2:
Added focus of input when window is shown.

EDIT 3:
Added $IsDigits param - it allows to set the behaviour of typing in the input - if this parametr set to 1, then only digits can be typed in the InputBox.

EDIT 4:
Change the way that parent window is disabled (now its by WinSetState() - so its' work not just for Gui).

EDIT 5:
Change te example, now there is no parent gui, the inputbox is “attached” to currently active window.

EDIT 6:
Change the function completly - * Now it is possible to set limit for entered string, * the promt text is displayed more correct now, * and the input text are scrollable now ($ES_AUTOHSCROLL).

EDIT 7:
The Example + UDF attached to the post.
+ Little "cosmetic corrections" in the functions.

EDIT 8: (19.11.2007)
+ Added full description/comments to the main function.
* Changed example a little.
* Now the function and the example required #include <GuiConstants.au3> (see bellow why).
* The function now is stripped from &#8220;Magic Numbers&#8221;

Edited by MrCreatoR, 28 July 2012 - 05:49 PM.

[Sardith]

You version has a lot of issues. Ie. The Ok and Cancel buttons don't work. You set styles, which cause some styles to be predefined. I'd leave it up to the user to define which styles they'd like.

I used a lot of smokes as a building block. My code works well.

AutoIt        expandcollapse  popup

Func _InputBox($Title, $Text = "", $Width = 200, $Height = 75, $Left = -1, $Top = -1, $OnTop = 1, $nInStyle = -1, $nInStyleEx = -1, $IsPassword=0, $IsDigits=0, $Timeout = 0)
    $hWnd = WinGetHandle(WinGetTitle(""))
    Local $aCID[5], $Y = 0, $sRead
    If $Left = -1 Or $Left = Default Then $Left = @DesktopWidth / 2.5
    If $Top = -1 Or $Top = Default Then $Right = @DesktopHeight / 2.5
    If $Width < 175 Then $Width = 175
    If $Height < 75 Then $Height = 75
    If $Text <> '' Then $Y = 20
    Local $hGUI = GUICreate($Title, $Width, $Height + $Y, $Left, $Top)
    If $Text <> '' Then $aCID[1] = GUICtrlCreateLabel($Text, 10, 10, $Width - 20, 20, $ES_CENTER)
    If $IsPassword <> 0 Then $IsPassword = 32
    If $IsDigits <> 0 Then $IsDigits = 8192
    $aCID[2] = GUICtrlCreateInput('', 10, 10 + $Y, $Width - 20, 20, $nInStyle & $IsPassword+$IsDigits, $nInStyleEx)
    $aCID[3] = GUICtrlCreateButton('OK', (($Width - 150) / 2), 40 + $Y, 75, 25, $BS_DEFPUSHBUTTON)
    $aCID[4] = GUICtrlCreateButton('Cancel', (($Width - 150) / 2) + 80, 40 + $Y, 75, 25)
    WinSetOnTop($hGUI, '', $OnTop)
    GUISetState()
    
    If $Timeout > 0 Then $TimerStart = TimerInit()
    While 1
        Switch GUIGetMsg()
            Case - 3, $aCID[4]
                Exit
            Case $aCID[3]
                $sRead = GUICtrlRead($aCID[2])
                Return $sRead
        EndSwitch
    If $Timeout > 0 And Round(TimerDiff($TimerStart)/1000) = $Timeout Then
            $RetValue = GUICtrlRead($aCID[2])
            WinSetState($hWnd, "", @SW_ENABLE)
            GUIDelete($aCID[2])
            SetError(2)
            Return $RetValue
        EndIf
    WEnd
EndFunc

[MrCreatoR]

You version has a lot of issues

And your's even more - You say:

I'd leave it up to the user to define which styles they'd like

But what about $ES_CENTER and $BS_DEFPUSHBUTTON - i have no #Include <GuiConstants.au3> at the begining of script, and what i get? right, an error (Variable used without being declared).

And also, you set in the function the title of the window (Win handle), its not ok, it should be like an option that user can set. And what for do you need it (in your changed func), if there is no disabling of that window (to allow “attaching” of input to that window).

In my function, there is default forced styles (just like in many original funnctions), this is for the resizing - 0x00040000, and for the input there is the style that make it look better (0x00000001), and some styles for set the resizing behaviour. And if user want to add more styles, he can do it easily, just like with other functions that have a styles.

The Ok and Cancel buttons don't work

If you use the example that i provided in my first post, you will see that everything work fine!

Edited by MsCreatoR, 26 February 2007 - 06:25 PM.

[MrCreatoR]

Edit first post, the function now more reliable now :">

EDIT 6:
Change the function completly - * Now it is possible to set limit for entered string, * the promt text is displayed more correct now, * and the input text are scrollable now ($ES_AUTOHSCROLL).

[Mast3rpyr0]

This should be in Example Scripts should it not?

[MrCreatoR]

I post it there, i don't know what wrong with the forum, and this is not the first time that topics are moved without any warning/message....

To Moderators:
Please, put it back to Example forum, it should be there i think (it is not "help asking" topic or something ).
Thanks .

Edited by MsCreatoR, 12 August 2007 - 07:02 PM.

[MrCreatoR]

First post updated! The function rewrited again (i hope that is the last time).