[VB6] Controllare i campi di input.

[Poker32]

ciao,

vorrei implementare una funzione che permetta di verificare il tipo di dati inseriti in un campo testo.

l'utente deve compilare tutti i campi senza lasciarne uno vuoto e i valori inseriti devono essere corretti con i vincoli che impongo io (es. il campo anno deve avere solo 4 caratteri numerici e magari deve essere compreso tra due estremi tipo 1900 - 2000

come posso implementarla?
mi date un consiglio?

ciao

[allejo]

C'è il comando che si chiama onKeyPress

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub

E così quel campo diventa sicuramente numerico

[Poker32]

ok, ma come controllo la dimensione del campo e se tutti i campi sono settati?

[Gigi84]

Ciao!!
allora vediamo un po',
la soluzione di allejo è molto buona, ma se uno fa il copia incolla? :gren:

potresti iniziare a impostare i MaxLen delle textbox (Anno 4, mese 2 ecc),
poi quando l'utente conferma i dati, controlli che tutte le textbox siano piene

If Len(txtNome.Text)=0  OR Len(txtCognome.Text)=0 OR ..then sbagliato

e che se sono piene contengano un valore numerico (quelle che lo devono contenere)

If Not (IsNumeric(txtQtà.Text) and IsNumeric(txtNumero.Text) and...) Then Sbagliato

poi usi delle combo cerca di usarle con Style DropDownList, in modo l'utente non possa inserire quello che vuole..
e tante altre cosine che ti verranno in mente per una specifica necessità!

[Poker32]

adesso che ho impostato questi controlli,
come gestisco la funzione che fa i controlli?

mi spiego:
ho creato una sub che effettua i controlli dei campi di imput,
la sub è inserita all'inizio del comando command che avvio l'applicazione.

se viene trovato un errore come devo fare per tornare allo stato originale del programma per permettere di risettare il campo senza perdere i vari settaggi già fatti?