[vb6] Key Ascii

[Drocchia]

Ragazzi quall'è il key ascii del tasto delete ??

il mio problema è questo

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
If Len(txtPiva.Text) > 10 Then
MsgBox "La P.Iva deve contenere solo 11 Numeri"
KeyAscii = 0
End If

questo è il codice che uso in un campo per inserimento partita iva..se raggiungo il valore mx 11 e cancello lui lo prende come un carattere di inserimento e mi comunica La P.Iva deve contenere solo 11 Numeri

a m e serve solo che mi escluda il key ascci del delete..sapete il codice??

[Drocchia]

ho sbagliato..chi me lo sposta?

[Mabi]

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
  KeyAscii = 0
End If
If Len(TxtPiva.Text) > 10 And KeyAscii <> 8 Then
  MsgBox "La P.Iva deve contenere solo 11 Numeri"
  KeyAscii = 0
End If

[Acaro]

ciao drocchia cmq per controllare la lunghezza del text, c'è una porprietà del text(sulla barra laterale o fai text1.maxlenght = 10)che si chiama maxlenght = 0 se metti 10 praticamente l'11° carattere non te lo fa mettere così non fai quel controllo....poi il tasto delete come ctrl e altri tasti non si vedono non ti fanno uscire proprio il key spero di esserti stato d'aiuto:mavieni: :sexpulp: :metallica :metallica

[ale500]

'almeno massimo puoi inserire 10 caratteri
private sub form_load()
text1.maxlenght=10
end sub

'almeno puoi inserire solo numeri
private sub text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr$(KeyAscii)) = 0 Then KeyAscii = 0
End Sub