Originariamente inviato da Fado84
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
così impedisci all'utente di scrivere caratteri non numerici...
se hai molte textbox fatti una funzione così:
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ControllaDigitazione(KeyAscii)
End Sub


Public Function ControllaDigitazione(KeyAscii As Integer) As Integer
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
ControllaDigitazione = KeyAscii
End Function

ciau!

se ho cannato qualcosa o hai bisogno di altro chiedi pure...
Ciao, direi che non è il massimo... soprattutto per il fatto che in questa maniera non puo' usare il tasto BackSpace..

Se il TextBox deve accettare solo ed esclusivamente numeri interi positivi poi modificare lo style della textbox con l'api SetWindowLong in modo che accetta solo numeri, mentre se deve accettare numeri in virgola mobile positivi e negativi, allora devi costruirti tu una funzione, o altrimenti prova a vedere se ti va bene l'oggetto MaskEdit