Vb6 - Impedire caratteri non conosni

[XVincentX]

Salve a tutti
Nella creazione di MOOOLTISSIMI form mi sono dimenticato del controllo caratteri delle textbox
Ora dove sono permessi soltanto i numeri possono scriverci anche lettere creando scompiglio nel database!!!
Come posso risolvere questo problema n fretta? Avevo provato con

if not isnumeric(caz.text) then
caz.text = ""

però non funziona perchè se per esempio sbaglio a scrivere l'ultima cifra questo costrutto mi azzera tutta la stringa!!!
Grazie!

[Fado84]

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ì:

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...

[Jupy64]

Originariamente inviato da Fado84

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ì:

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

[Fado84]

giusto... era una bozza quello che gli ho mandato.. può rimediare mettendo qualche and or ecc... poi per tutti gli altri cazzilli penso sia in grado di aggiungerseli...
vedendo quello che aveva postato lui...

if not isnumeric(caz.text) then
caz.text = ""

pensavo volesse fare una cosa tipo quello che gli ho spedito...
poi basta mettere un and per rispondere alla sua domanda

Ora dove sono permessi soltanto i numeri possono

ciao a tutti!!

[XVincentX]

Grazie degli aiuti
Riepilogando ho varie textbox in cui possono essere scritti vari numeri decimali.
Volevo sapere la differenza tra
sub e function
function deve per forza restiturre un valore, ok ma
tra public e private, quale è la differenza?

[TheSpoiler]

una public può essere vista in tutto il progetto mentre una private no.

[XVincentX]

A proposito ma non funziona il backspace usando la funzione detta sopra, come posso fare?