ValueBox

[ivosperi]

Bella idea ma purtroppo quando salvi in "a" la stringa ormai il carattere è gia stato aggiunto

[giulio]

@ivosperi

Devi usare STOP EVENT.

Es.:

Codice: [Seleziona]

PUBLIC SUB TextBox1_KeyPress()

  IF Key.text = "a" THEN RETURN 
  STOP EVENT 

END

Nell'esempio la textbox accetta solo le "a". Attenzione che STOP EVENT
blocca tutto, anche tasti cursore e barra spazio et cetera, che dovrai mettere tra i tasti accettati.

[ivosperi]

FUNZIA !!!!!! grazie a tutti ecco Qui:

Codice: [Seleziona]

PUBLIC SUB TextQuant_KeyPress()
 IF Key.Code >= 48 AND Key.Code <= 57 THEN RETURN 
 STOP EVENT
END

Allora:
in un textbox durante l'utilizzo viene premuto un tasto, se il codice ascci di quel tasto è compreso tra 48 e 57 (sono i numeri), esce dalla sub e qundi consente l'inserimento del carattere,
altrimenti con STOP EVENT annulla il carattere inserito.

Basta variare la condizione IF...THEN e cosi si può decidere che caratteri possono essere immessi nel textbox

Grazie ancora a tutti ciao ivo

[ivosperi]

Così funziona meglio:

Codice: [Seleziona]

PUBLIC SUB TextQuant_KeyPress()
 
  Label1.Text = key.Code 'visualizza codice tasto premuto

  IF Key.Code >= 48 AND Key.Code <= 57 THEN RETURN 
  IF Key.Code = 4099 THEN RETURN   'cancella

STOP EVENT
END

è meglio consentire anche il codice 4099 che rappresenta il cancella,
e per conoscere i codici dei tasti si può aggungere:

Codice: [Seleziona]

Label1.Text = key.Code

 che visualizza in un label il codice del tasto premuto.

ciao   :-D  :-D  :-D