Visual Basic Programming Code Examples

Visual Basic > Forms Code Examples

Limit text and goto to next textbox



Limit text and goto to next textbox


'Of course you can set this also with the properties MaxLenght and TabIndex
'but if thats not enough:
'make a new project with a form and 3 textboxen (index 0,1,2)
'in the textbox(0) you can put 10 characters
'in the textbox(1) you can put 20 characters
'in the textbox(2) you can put 30 characters
'because it's in the keypress_event you get alwaus one character more
'in the CountCharacter you can chech on other Ascii-codes as well

Option Explicit
Dim MaxCharacters as Integer
Dim intCharacters as Integer
Dim intTxtBox as Integer

Private sub Text1_GotFocus(Index as Integer)
    intCharacters = 0
    select case Index
    case 0
        MaxCharacters = 9
        intTxtBox = 1
    case 1
        MaxCharacters = 19
        intTxtBox = 2
    case 2
        MaxCharacters = 29
        intTxtBox = 0
    end Select
        
End Sub

Private sub Text1_KeyPress(Index as Integer, KeyAscii as Integer)
    CountCharacters (KeyAscii)
End Sub

Function CountCharacters(source)
'put the next line in the Textbox_KeyPress event
'CountCharacters(KeyAscii)
   
    'backspace =8
    If source <> 8 Then
        'count characters
        intCharacters = intCharacters + 1
        'if there are more than you want
        If intCharacters > MaxCharacters Then
            'goto next textbox
            Text1(intTxtBox).SetFocus
            Exit Function
        end If
    Else
        intCharacters = intCharacters - 1
    end If
    CountCharacters = intCharacters
    
End Function

Return