Jump to content

Recommended Posts

I'm trying to create an inputbox that automatically formats numbers with leading zeroes when the updown control is used.  I found an example from Melba23 (see below) that shows a step incremented inputbox, and based on that, I tried to create one that would work, but it does not.

I am creating separate inputs for hours and minutes, and I want to make sure the inputbox is always 2 digits. And right up front, I don't pretend to really understand the DLLStruct* calls.. 

Melba23's sample:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <UpDownConstants.au3>

$hGUI = GUICreate("Test", 500, 500)

$hInput = GUICtrlCreateInput("5000", 10, 10, 100, 20)
$hUpDown = GUICtrlCreateUpdown($hInput, BitOR($UDS_WRAP, $UDS_NOTHOUSANDS))
GUICtrlSetLimit($hUpDown, 6000, 5000)

GUISetState()

GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

Func _WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)

    ; Is it from the UpDown?
    If BitAND($wParam, 0xFFFF) = $hUpDown Then
        ; Create NMUPDOWN structure
        Local $tStruct = DllStructCreate("hwnd;long;int;long;long", $lParam)
        ; Is it a change message?
        If DllStructGetData($tStruct, 3) = 0xFFFFFD2E Then ; $UDN_DELTAPOS
            ; Alter the change value
            DllStructSetData($tStruct, 5, 100 * DllStructGetData($tStruct, 5))
        EndIf
    EndIf

EndFunc
;~ The NMUPDOWN structure holds:

;~ 1 - Handle of UpDown
;~ 2 - ControlID of UpDown
;~ 3 - Message type sent by UpDown
;~ 4 - Current value of UpDown
;~ 5 - Change to apply to input (+/-1)

And here is my non-working sample (it runs, and the initial value shows correctly, but when you hit the updown, you lose the leading zeroes.

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Window", 300, 100, -1, -1)

$Count = 1

Global $hEdit = GUICtrlCreateInput($Count, 15, 15, 100, 30)
GUICtrlSetFont(-1, 12, 400, "", "Tahoma")
GUICtrlSetData(-1, StringFormat("%03u",$Count))

Global $hUpDown = GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 100, 0)


GUISetState()

While 1
    $hMsg = GUIGetMsg()
    Switch $hMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)

    ; Is it from the UpDown?
    If BitAND($wParam, 0xFFFF) = $hUpDown Then
        ; Create NMUPDOWN structure
        Local $tStruct = DllStructCreate("hwnd;long;int;long;long", $lParam)
        ; Is it a change message?
        If DllStructGetData($tStruct, 3) = 0xFFFFFD2E Then ; $UDN_DELTAPOS
            ; Alter the change value
            $ValueToSet = DllStructGetData($tStruct, 4)
            $ValueToSet = StringFormat("%03u", $ValueToSet)
            GUICtrlSetData($hEdit, $ValueToSet)
        EndIf
    EndIf

EndFunc

 

Link to post
Share on other sites
  • Moderators

DavidFigueroa,

Welcome to the AutoIt forums.

The example you found is not really relevant to what you want to do - what you need to do is look for a change to the input content and then pad it with a leading zero as required:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <WinAPI.au3>

$hGUI = GUICreate("Test", 500, 500)

$cInput = GUICtrlCreateInput("", 10, 10, 200, 20)
$cUpDown = GUICtrlCreateUpdown($cInput)
GUICtrlSetLimit($cUpDown, 100, 0)

GUISetState()

; Register the WM_COMMAND message
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)

     ; If it was an update message from our input
    If _WinAPI_HiWord($wParam) = $EN_CHANGE And _WinAPI_LoWord($wParam) = $cInput Then

        ; Read the content
        $sContent = GUICtrlRead($cInput)
        ; Reset the content padded with zeroes
        GUICtrlSetData($cInput, StringFormat("%02i", $sContent))

    EndIf

EndFunc

Please ask if you have any questions.

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By odaylton
      Text translated from Portuguese by google - please apologize for any errors
       
      First I have to thank the development team for product quality and the ease with which it is possible to develop tools with AutoIt.
       
      I am developing a series of libraries to facilitate the creation of Forms that once it is stable and comprehensive I intend to share here for autoit
      But suddenly during development an unexpected effect appeared in simple inputbox fields.
       
      Everything is working fine, however if I'm in an inputbox, don't change its selected content and move focus to another field the selected text remains blue (selected) instead of returning to normal
      See the image....

      When pricing 3x TABs all remain blue
       
      However if I change the field , when leaving its focus it behaves normally
      See the ex below:

      1) I selected “tipo Default” and pressed TAB (to test what happens)
      2) typed "TESTE" and pressed TAB
      3) I pressed TAB 2x again and the "Centralizado" field turned blue
      Note: by default, when receiving focus, the text is always automatically selected
       
      Here are some parts of the code:
      Gui  create:
      ;modifique o tamanho inicial aqui ;$Form[$Form[0][0]][1] = 600 ;largura =800 ;$Form[$Form[0][0]][2] = 600 ;Atura =600 ;$Form[$Form[0][0]][3] = "RoboAutomato - "&$NomeProjeto $Form[$Form[0][0]][0] = GUICreate($Form[$Form[0][0]][3], _ $Form[$Form[0][0]][1], $Form[$Form[0][0]][2], _ Default, Default, _ BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP, $WS_POPUP)) GUISetFont($FormFonteTam, _ ;Tamanho da Fonte $FormFonteTipo, _ ;Tipo da Fonte $FormFonteEstilo, _ ;Estilo da Fonte $FormFonteNome) ; Nome da Fonte #Region Criando ToolTip $hGUIToolTip = _GUIToolTip_Create($Form[$Form[0][0]][0], BitOR($_TT_ghTTDefaultStyle, $TTS_BALLOON)) ; balloon style tooltip #EndRegion Criando ToolTip  inputs create:
      .... InputCriar(200, 200, _ ;Coordenadas Base Default, Default, _ ;Largura e Altura automatica se negativo em função do extremo da janela "|Referencia|", _ ;Label do Input "Tudo Default ou qq diferente de 1,2,3,4: mais simples", _ ;Texto explicativo do InputBox e seu label "Teste do tipo Default", _ ;Valor Default da Input Default, _ ;0 é Defaultou define o estilo Default, _ ;Defini a forma de incerção Default=20 caracteres "CCCCCCCCCCCCCCCCCCCC" Default, _ Default, _ Default, _ ; Tipo de alinhamento em relação a Janela Default, _ ;Tamanho da Fonte Default, _ ;Tipo da Fonte Default, _ ;Estilo da Fonte Default) ; Nome da Fonte InputCriar(200, Default, _ ;Coordenadas Base Default, Default, _ ;Largura e Altura automatica se negativo em função do extremo da janela "|Canto inferior esquerdo|", _ ;Label do Input "Tipo 1: 2 linhas", _ ;Texto explicativo do InputBox e seu label "Tipo 1: 2 linhas", _ ;Valor Default da Input 1, _ ;0 é Defaultou define o estilo Default, _ ;Defini a forma de incerção Default=20 caracteres "CCCCCCCCCCCCCCCCCCCC" Default, _ Default, _ Default, _ ; Tipo de alinhamento em relação a Janela Default, _ ;Tamanho da Fonte Default, _ ;Tipo da Fonte Default, _ ;Estilo da Fonte Default) ; Nome da Fonte ..... Function InputCriar:
      Func InputCriar($InputX = Default, $InputY = Default, _ ;Coordenadas Base Canto Superior Esquerdo se não definido proxima linha e coluna $InputWidth = Default, $InputHeight = Default, _ ;Largura e Altura automatica se negativo em função do extremo da janela $InputRotulo = "", _ ;Label do Inpu $InputTip = "", _ ;Texto explicativo do InputBox e seu label $InputDefault = "", _ ;Valor Default da Input $InputAlin = Default, _ ;0 é Defaultou define o estilo $InputMascara = Default, _ ;Defini a forma de incerção Default=20 caracteres "CCCCCCCCCCCCCCCCCCCC" $InputEstilo = Default, _ $InputEstiloEx = Default, _ $InputResizing = Default, _ ; Tipo de alinhamento em relação a Janela $InputTamFonte = Default, _ ;Tamanho da Fonte $InputFonteTipo = Default, _ ;Tipo da Fonte $InputFonteEstilo = Default, _ ;Estilo da Fonte $InputFonteNome = Default) ; Nome da Fonte .... $InputEstilo = BitOR($ES_AUTOHSCROLL, _ $WS_TABSTOP) ... $InputEstiloEx = $WS_EX_CLIENTEDGE ;formato baixo relevo ... $Inputs[$Inputs[0][0]][0] = GUICtrlCreateInput($Mascara5, _ ;Default da Input $Form[$Form[0][0]][6]+$InputX, $Form[$Form[0][0]][7]+$InputY, _ ;Coordenadas Base $InputWidth, $InputHeight, _ ;Altura e largura automatica $InputEstilo, _ ;Estilo $InputEstiloEx) ;Extilo extra ... GUICtrlSetData($Inputs[$Inputs[0][0]][0], $Inputs[$Inputs[0][0]][3]) Return $Inputs[$Inputs[0][0]][0] EndFunc ;==>InputCriar sorry for not putting all the code because there are many libraries and they are in the initial stage of development
       
      What should I change to get Inputbox's behavior back to normal????
      Thank you for your attention
    • By nooneclose
      Why can I not click on either of my input fields?
      #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Form1", 730, 437, 192, 124) ;GUISetFont(14, 800, 0, "MS Sans Serif") GUISetBkColor(0xC0DCC0) Global $Label1 = GUICtrlCreateLabel("Enter your Password. UserName is auto filled", 62, 40, 604, 41, $SS_CENTER) GUICtrlSetFont(-1, 26, 800, 0, "MS Sans Serif") Global $Label2 = GUICtrlCreateLabel("User Name:", 120, 130, 604, 31, $SS_LEFT) GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif") Global $Label3 = GUICtrlCreateLabel("Password:", 135, 210, 604, 31, $SS_LEFT) GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif") Global $Input1 = GUICtrlCreateInput(@UserName, 274, 130, 185, 32) GUICtrlSetFont(-1, 14, 800, 1, "MS Sans Serif") Global $Input2 = GUICtrlCreateInput("Password", 274, 210, 185, 32, $ES_PASSWORD) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") Global $OK = GUICtrlCreateButton("OK", 274, 270, 185, 57) GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $OK Global $UserName = GUICtrlRead($Input1) Global $PassWord = GUICtrlRead($Input2) ExitLoop EndSwitch WEnd ; Delete the GUI window GUIDelete()  
    • By matwachich
      Hi AutoIters!
      Here is my new UDF about GUIs: it's an enhanced mixture of Advanced InputBox (deprecated) and KODA Parser (deprecated), with additional functions.
      What you can do with it:
      Parse KODA files and directly create GUIs (_GUIUtils_CreateFromKODA) Parse a simple JSON form definition to simply create advanced InputBoxes with any amount/type of input controls (_GUIUtils_CreateFromJSON) Created GUIs are returned as Scripting.Dictionary objects, and you have helper functions to access GUIs controls by their names (_GUIUtils_HWnd, _GUIUtils_CtrlID, _GUIUtils_HCtrl ...) A function that can make a GUI created from KODA/JSON (defined by it's $oForm object) and make it a modal InputDialogBox (just like InputBox, but returns all entered data as Scripting.Dictionary object) Functions are documented, and there are some examples.
      Consider this UDF as beta, but since I'm currently using it in a small commercial project, it should become production ready in near future.
      To always get the latest code version, get it from Github (more up to date than this topic).
      Update 04/02/2020:
      New simple application example Fixed focused control handling in _GUIUtils_InputDialog Reset input values before returning from _GUIUtils_InputDialog Fixed CloseOnEsc in _GUIUtils_InputDialog Fixed Input not reset Fixed all ListBox items are selected Project now on GitHub https://github.com/matwachich/autoit-guiutils/
      Update 05/02/2020:
      Support for nodate for Date and Time input controls (pass null value) New handling of focused control _GUIUtils_InputDialog: Now, you can specify the focused control in $oInitialData by setting "controlName:focus" = True Updated documentation of _GUIUtils_InputDialog Update 07/02/2020:
      Bug corrected when setting Data input control Added: abillity to read a single input control New functions (_GUIUtils_GetInputs, _GUIUtils_WriteInputs), documentation completion. Readme file and screenshots on Github Page  
      GUIUtils.zip
    • By matwachich
      DEPRECATED: see this new UDF
       
    • By robertocm
      I'm trying to use some inputboxes as radio buttons.
      This code seems to work ok, but don't know if there's is a better 'option'
      #include <GUIConstantsEx.au3> #include <GuiConstants.au3> GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") Global $aInput[4] $hGUI = GUICreate("Test", 500, 500) $aInput[0] = GUICtrlCreateInput("Some text 1a", 10, 10, 200, 24) $aInput[1] = GUICtrlCreateInput("Some text 1b", 10, 40, 200, 24) $aInput[2] = GUICtrlCreateInput("Some text 2a", 10, 80, 200, 24) $aInput[3] = GUICtrlCreateInput("Some text 2b", 10, 110, 200, 24) GUISetState(@SW_SHOW, $hGUI) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func WM_COMMAND($hWnd, $msg, $wParam, $lParam) Local $nNotifyCode = BitShift($wParam, 16) ; high word Local $nID = BitAND($wParam, 0xFFFF) ; low word Local $hCtrl = $lParam Switch $nID Case $aInput[0] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[0], 0x98FB98) GUICtrlSetBkColor($aInput[1], 0xD3D3D3) EndSwitch Case $aInput[1] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[0], 0xD3D3D3) GUICtrlSetBkColor($aInput[1], 0x98FB98) EndSwitch Case $aInput[2] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[2], 0x98FB98) GUICtrlSetBkColor($aInput[3], 0xD3D3D3) EndSwitch Case $aInput[3] Switch $nNotifyCode Case $EN_SETFOCUS GUICtrlSetBkColor($aInput[2], 0xD3D3D3) GUICtrlSetBkColor($aInput[3], 0x98FB98) EndSwitch EndSwitch ; Proceed the default Autoit3 internal message commands. ; You also can complete let the line out. ; !!! But only 'Return' (without any value) will not proceed ; the default Autoit3-message in the future !!! Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND Would you recommend using _WinAPI_GetFocus instead?
       
       
      Thanks,
       
×
×
  • Create New...