Inserire solo numeri (VB)

[xit]

Nella mia text vorrei che si potessero inserire solo numeri
e non caratteri cosa devo fare?

[ans]

Nell'evento key_press controlli i singoli caratteri, se non è numerico il carattere premuto allora non lo fai scrivere.

[amodio]

if not isnumeric(txt_testo.text) then
msgbox errore
end if

isnumerico è una funzionae buleana ti restituisce un valore true se il valore è un numerico


amodio.too.it

[ans]

Come dici amodio i caratteri non numerici vengono comunque inseriti, e non corrisponde alla richiesta di xit che ha detto nella mia text vorrei che si potessero inserire solo numeri.

[xit]

Private Sub txtTel_KeyPress(KeyAscii As Integer)
KeyAscii

Adesso come devo procedere?
Cosa assegno a KeyAscii

[jefferson]

nella keypress della text :

If Not KeyAscii = 8 Then '<--- controllo se vuoi cancellare un
If KeyAscii < 48 Or KeyAscii > 57 Then 'numero inserito
KeyAscii = 0
End If
End If

Ciao a presto
Jefferson

[s_peppe]

approvo!