Auto-Tab between input boxes

[sias]

I am looking for a way to auto tab between input boxes after a certain amount of characters are typed in. I have tried using stringlen() and setting the focus to the next control using this code, placing it under each input box.

$length = StringLen(GUICtrlRead($bm))
If $length = 2 Then
    GUICtrlSetState($bd, $GUI_FOCUS)
EndIfoÝ÷ Øz0z÷«×hzÉí±ç¦¶!jx¶¡Ë¬¶azw±¶)éºÖèÄZ½æ¥²­µé©µçm¢­Ø§jZ(¥»­¶§Ü(ºWcºËfzË0ØfÉéí·¬r¸©´  òéiÂ¥u· ­æ­&©¦·«^u«­¢+Øí%¹ÁÕР ½áÌ)U%
Ñɱ
ÉÑ1° ÅÕ½Ðí54½½eeedÅÕ½Ðì°ÄÈ°ÈÀ°´Ä°´Ä¤)U%
Ñɱ
ÉÑ1° ÅÕ½Ðí! é54ÅÕ½Ðì°ÄÈ°ÌÔ¤(ÀÌØí´ôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÄÀ°ÔÀ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ìµ½¹Ñ )U%
Ñɱ
ÉÑ1° ÅÕ½Ðì¼ÅÕ½Ðì°ÌÄ°ÔȤ(ÀÌØíôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÐÀ°ÔÀ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ìä)U%
Ñɱ
ÉÑ1° ÅÕ½Ðì¼ÅÕ½Ðì°ØÄ°ÔȤ(ÀÌØíäôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÜÀ°ÔÀ°ÌÀ°ÈÀ°ÀÌØíM}9U5   H¤ìåÈ(ÀÌØí¡½ÕÈôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÄÀ°ÜÔ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ì¡½ÕÈ)U%
Ñɱ
ÉÑ1° ÅÕ½ÐìèÅÕ½Ðì°ÌÌ°Üܤ(ÀÌØíµ¥¸ôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÐÀ°ÜÔ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ìµ¥¹ÕÑ

[martin]

I am looking for a way to auto tab between input boxes after a certain amount of characters are typed in. I have tried using stringlen() and setting the focus to the next control using this code, placing it under each input box.

$length = StringLen(GUICtrlRead($bm))
If $length = 2 Then
    GUICtrlSetState($bd, $GUI_FOCUS)
EndIfoÝ÷ Øz0z÷«×hzÉí±ç¦¶!jx¶¡Ë¬¶azw±¶)éºÖèÄZ½æ¥²­µé©µçm¢­Ø§jZ(¥»­¶§Ü(ºWcºËfzË0ØfÉéí·¬r¸©´  òéiÂ¥u· ­æ­&©¦·«^u«­¢+Øí%¹ÁÕР ½áÌ)U%
Ñɱ
ÉÑ1° ÅÕ½Ðí54½½eeedÅÕ½Ðì°ÄÈ°ÈÀ°´Ä°´Ä¤)U%
Ñɱ
ÉÑ1° ÅÕ½Ðí! é54ÅÕ½Ðì°ÄÈ°ÌÔ¤(ÀÌØí´ôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÄÀ°ÔÀ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ìµ½¹Ñ )U%
Ñɱ
ÉÑ1° ÅÕ½Ðì¼ÅÕ½Ðì°ÌÄ°ÔȤ(ÀÌØíôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÐÀ°ÔÀ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ìä)U%
Ñɱ
ÉÑ1° ÅÕ½Ðì¼ÅÕ½Ðì°ØÄ°ÔȤ(ÀÌØíäôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÜÀ°ÔÀ°ÌÀ°ÈÀ°ÀÌØíM}9U5   H¤ìåÈ(ÀÌØí¡½ÕÈôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÄÀ°ÜÔ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ì¡½ÕÈ)U%
Ñɱ
ÉÑ1° ÅÕ½ÐìèÅÕ½Ðì°ÌÌ°Üܤ(ÀÌØíµ¥¸ôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÐÀ°ÜÔ°ÈÀ°ÈÀ°ÀÌØíM}9U5   H¤ìµ¥¹ÕÑ

Here is an example

expandcollapse popup

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $change2 = False

#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Form3", 413, 298, 303, 219)
$Input1 = GUICtrlCreateInput("Input1", 56, 32, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 64, 96, 121, 21)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "My_WM_COMMAND")
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
    If $change2 Then
        ControlFocus($Form3, "", $Input2)
        $change2 = False
    EndIf

WEnd


Func My_WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
    Local $setHK = False
    $nNotifyCode = BitShift($iwParam, 16)
    $nID = BitAND($iwParam, 0x0000FFFF)
    $hCtrl = $ilParam
    
    If $nNotifyCode = $EN_CHANGE Then
        If $hCtrl = ControlGetHandle($Form3, "", $Input1) Then
            If StringLen(GUICtrlRead($Input1)) > 1 Then
                $change2 = True
            EndIf
            
        EndIf
        
    EndIf
    


    Return $GUI_RUNDEFMSG


EndFunc  ;==>My_WM_COMMAND

While you're reading this, have a look at what happened to your script in this post when I replied to it, then please have a look at my signature about code tags.

[andybiochem]

Here's a very similar way to martins, with less code (but no control check):

;----- GUI -----
GUICreate("", 364, 131, 193, 115)

;----- Input Boxes -----
GUICtrlCreateInput("", 16, 24, 97, 21)
GUICtrlCreateInput("", 136, 24, 89, 21)
GUICtrlCreateInput("", 248, 24, 97, 21)
GUICtrlCreateInput("", 16, 56, 97, 21)
GUICtrlCreateInput("", 136, 56, 89, 21)
GUICtrlCreateInput("", 248, 56, 97, 21)

;----- Register handle on InputBox messgae -----
GUIRegisterMsg(0x0111, "_Auto_Tab")

;----- LOOP -----
GUISetState()
While 1
    Sleep(100)
WEnd

;----- Cause auto-tab when message called and length = 3 -----
Func _Auto_Tab($hWnd, $Msg, $wParam)
    $nNotifyCode = BitShift($wParam, 16)
    $nID = BitAnd($wParam, 0x0000FFFF)
    If $nNotifyCode = 0x400 And StringLen(GUICtrlRead($nID)) = 3 Then GUICtrlSetState($nID+1,256)
EndFunc