Lunghezza massima raggiunta

di il
1 risposte

Lunghezza massima raggiunta

Salve! Forse la mia domanda vi sembrerà banle ma sono alle prime armi con visual basic. In una text ho impostato la lungheza massima del campo a 13, vorrei sapere se esiste un qualsiasi modo, una volta raggiunta questa lunghezza, per poter far spostare il cursore alla text successiva. Grazie in anticipo.

1 Risposte

  • Re: Lunghezza massima raggiunta

    'variabile per evitare di spostarsi in fase di eventuale inizializzazione del campo
    'sarà False al momento della GotFocus della textBox
    'sarà True in fase di inizializzazione
    Dim Fload as boolean

    Private Sub Form_Load()
    'importante per far anticipare il controllo degli eventi della Tastiera rispetto Quelli dei Controlli
    KeyPreview = True
    Text1. MaxLength = 5
    Fload = True
    Text1.text="PIPPO" 'non si ha l'AutoTab essendo Fload = True
    End Sub

    Private Sub Text1_GotFocus()
    Fload = False 'per abilitare l'AutoTab
    End Sub

    Private Sub Text1_Change()
    'automaticamente al campo successivo
    If Not Fload Then Call AutoTab(Text1)
    End Sub

    Public Sub AutoTab(Testo As TextBox)
    ' If Tasto <> vbKeyBack And Tasto <> vbKeyCancel Then ...
    If Testo.MaxLength > 0 Then
    If Len(Testo) = Testo.MaxLength Then SendKeys "{TAB}"
    End If
    End Sub

    Buon lavoro
    Guido by Gecsi
    www.gecsi.i
Devi accedere o registrarti per scrivere nel forum
1 risposte