autotab in the textbox , is possible ?

[mutley]

Hi

How can I put auto tab in textbox , when the number is equal a number (example 5), I want that It setfocus the next textbox, Is It possible ?

Has someone function that read the table access and define the maxlen property of the text box, agree the type and length of the field ?


thank you in advance

[Pete Rosborough]

How about something like this?

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    If me.text = 5 then
        txtnext.setfocus
    end if

end sub

[Nucleus]

Also you can modify this which tabs, when a user hits enter, and avoids using sendkeys.

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101


Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
    PostMessage Text1.hwnd, WM_KEYDOWN, vbKeyTab, 0
    PostMessage Text1.hwnd, WM_KEYUP, vbKeyTab, 0
  End If
End Sub

[mutley]

Excuse me

But I want the length the textbox, eg I want that when the user type in the textbox has maxime 5 digits ("12345") or 10 ("1234567XYX") AND WHEN to be number it get the max digits of the type number

thank you

[Microbasic]

Is this what you wanted?

Private Sub Text1.KeyPress(KeyAscii As Integer)
  If Len(Text1.Text) > 10 Then 'Change 10 to the "maximum" number of digits allowed.
    KeyAscii=0
    txtSomeOtherTextBox.SetFocus
  End If
End Sub

[Nucleus]

I think this is what you want, tab when user enters the max characters set for the textbox?

Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101

Private Sub Form_Load()
Text1.MaxLength = 5
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Len(Text1) = Text1.MaxLength - 1 Then
        PostMessage Text1.hwnd, WM_KEYDOWN, vbKeyTab, 0
        PostMessage Text1.hwnd, WM_KEYUP, vbKeyTab, 0
    End If
End Sub

[mutley]

http://msdn.microsoft.com/library/of...abProperty.htm
is this link lier ?

[Microbasic]

Or this:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CHAR = &H102
 
Private Sub Form_Load()
Text1.MaxLength = 5
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Len(Text1) = Text1.MaxLength - 1 Then
        SendMessage Text1.hwnd, [b]WM_CHAR[/b], vbKeyTab, 0
    End If
End Sub

[Nucleus]

Micro, WM_CHAR doesn't work for me

[mutley]

Hi

Where is the autotab property of the textbox ?

[Microbasic]

Oops, I forgot. WM_CHAR is a output (or event) message. It can't be sent...

The autotab property of a textbox is in the Forms 2.0 Library.

[mutley]

http://msdn.microsoft.com/library/of...abProperty.htm


Where is autotab of the textbox ?

[Microbasic]

Right click the Toolbox, select "Microsoft Forms 2.0 Object Library", Click OK, and a new bunch of controls should appear in the toolbox. Find the control named "TextBox" in these new controls. THAT TEXTBOX has the autotab property.