Limite immissioni caratteri in textbox

di
alexps81
il
2 risposte
A
alexps81
Utente Attivo
Iscritto da
ago, 2015
Messaggi:
129

Limite immissioni caratteri in textbox

Buongiorno a tutti, ho bisogno di un aiutino.
Ho la necessità di limitare l'immissione del numero di caratteri a un max di 23 in una textbox non associata. Ho provato con il seguente codice:
Private Sub Testo0_KeyPress(KeyAscii As Integer)
If Len(Testo0.Text) > 23
Then
KeyAscii = 0
End If
End Sub
Il problema è che chiaramente superato il ventritesimo carattere la tastiera si blocca dato il keyascii = 0, mentre io ho la necessità che il backspace, le frecce direzionali, il tab e l'invio siano operativi.
Grazie.

2 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8704

    Re: Limite immissioni caratteri in textbox

    Prima di controllare il LEN(....) verifica quale CHAR hai premuto... se appartiene ad uno dei caratteri ammessi... lo fai passare... 
    
If KeyAscii <> vbKeyBack
   If Len(Testo0.Text) > 23 Then KeyAscii = 0
End if
  • A
    alexps81
    Utente Attivo
    Iscritto da
    ago, 2015
    Messaggi:
    129

    Re: Limite immissioni caratteri in textbox


    Ciao @Alex, non ho parole!!! Mi fa sorridere con quanta semplicità riesci a risolvere questi problemucci.
    Funziona a meraviglia.
    Grazie ancora.
Devi accedere o registrarti per scrivere nel forum
2 risposte