Ciao, direi che non è il massimo... soprattutto per il fatto che in questa maniera non puo' usare il tasto BackSpace..Originariamente inviato da Fado84
così impedisci all'utente di scrivere caratteri non numerici...codice:Private Sub Text1_KeyPress(KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End If End Sub
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...
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
![]()