ValueBox

[fsurfing]

se vuoi proprio il codice asci puoi fare così:

Codice: [Seleziona]

PUBLIC SUB TextBox1_Change()




Label1.text = Asc(Right(TextBox1.Text, 1)) 'codice ascii
label2.text = key.Code 'codice tasto di sistema

END

 

[Ceskho]

fsurfing ha scritto:
se vuoi proprio il codice asci puoi fare così:

Codice: [Seleziona]

PUBLIC SUB TextBox1_Change()




Label1.text = Asc(Right(TextBox1.Text, 1)) 'codice ascii
label2.text = key.Code 'codice tasto di sistema

END

 

oppure puoi creare una textybox che contiene solo una lettera alla volta e poi dai il comando.

Codice: [Seleziona]

PUBLIC SUB TextBox1_Change()

Label1.text = Asc(TextBox1.Text)

END SUB

[tornu]

Grazie giulio del suggerimento, ma per il momento mi tengo lo zero come mi consiglia il  buon Ceskho.

[Ceskho]

:cappello:

[ivosperi]

Ciao

 fsurfing ha scritto:

se vuoi proprio il codice asci puoi fare così:

Codice: [Seleziona]

PUBLIC SUB TextBox1_Change()

Label1.text = Asc(Right(TextBox1.Text, 1)) 'codice ascii
label2.text = key.Code 'codice tasto di sistema

END 

Facendo così controlli solo l'ultimo carattere del testo, ma mentre scrivi non è detto che tu sia alla fine del testo, puoi esserti spostato con le frecce.
Io voglio controllare i caratteri che si possono inserire, ho provato questo:

Codice: [Seleziona]

PUBLIC SUB TextQuant_KeyPress()
 IF Key.Code >= 48 AND Key.Code <= 57 THEN RETURN 
 IF Key.Code = 8 THEN RETURN 
 IF Chr$(Key.Code) = "." THEN RETURN 
 Key.Code = 0   
END

.. ma key.Code = 0 è in sola lettura, mi basterebbe capire come annulare l'ultimo tasto premuto

[Ceskho]

Ma non vedo il bisogno di annullare l'ultimo tasto...quando premi un nuovo tasto la variabile che ti restituisce il codice viene automaticamente sovrascritta...

Se scrivi a cosa ti serve il codice vedo se posso aiutarti meglio...

[ivosperi]

Lo scopo sarebbe avere un textbox nel quale si possono digitare solo i caratteri "che dico io", ho capito che riesco a capire che carattere è stato inserito usando key.code ma come posso gestirlo?

Grazie ciao

[Ceskho]

Key.Code è in sola lettura effettivamente. Ma se usi il tuo esempio togliendo la stringa

Codice: [Seleziona]

key.Code=0

funziona come vuoi tu?

[Ceskho]

L'ultimo esempio che mi viene in mente è questo. Provalo:

Codice: [Seleziona]

PUBLIC SUB TextQuant_KeyPress()

 DIM codice as integer 

 codice = Key.Code 
 IF codice >= 48 AND codice <= 57 THEN RETURN 
 IF codice = 8 THEN RETURN 
 IF Chr$(codice) = "." THEN RETURN 
 codice = 0

END 

[ivosperi]

No, in vb c'era keyascii che assomigliava a key.code, allora sempre secondo esempio se la condizione era verificata usciva dalla sub altimenti l'ultima istruzione della sub eliminava il carattere appena premuto

Codice: [Seleziona]

PUBLIC SUB TextQuant_KeyPress()
 IF Key.Code >= 48 AND Key.Code <= 57 THEN RETURN 
 IF Key.Code = 8 THEN RETURN 
 IF Chr$(Key.Code) = "." THEN RETURN 
 Key.Code = 0   
END

[Ceskho]

E l'altro esempio funziona? quello con la variabile "codice" ?

[ivosperi]

No se se vari il valore di "condice" vari solo una variabile da te impostata che non agisce sul sistema

[Ceskho]

Sarà...a me pareva funzonasse

[ivosperi]

non è che non funziona
Ma non annulla l'ultimo carattere premuto se diverso da uno di quelli specificati
ciao

[Ceskho]

Allora prova a fare:

Codice: [Seleziona]

PUBLIC SUB TextQuant_KeyPress()

 DIM codice as integer
 DIM a as string

 a = textQuant.Text
 codice = Key.Code 
 IF codice >= 48 AND codice <= 57 AND codice = 8 AND Chr$(codice) = "."   THEN RETURN 
 ELSE
 textQuant.text = a
 
END