[VB6]: Formattare casella di testo

[vr-claudio]

Ciao ragazzi,
scusatemi ma ho bisogno di sapere come posso formattare una casella di testo con la percentuale, cioè, io obbligo la casella di testo ad accettare solo numeri nella funzione keypress:

On Error Resume Next
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8) Then
MsgBox "Sono ammessi solo caratteri numerici!", vbCritical
KeyAscii = 0
Else
End If

vorrei che quando esco tramite la funzione lostfocus si trasformasse in questo: "10%"
grazie

[gibra]

Non fai prima a mettere un semplice controllo Label con il '%' subito a destra della casella di testo?

Altrimenti ti tocca scrivere un bel po' di codice per gestire la scrittura e lettura del valore, il che secondo me non ha alcuna utilità, sempre che il tuo problema sia solo quello di mostrare un %.

Se invece il segno % ti serve proprio come valore allora conviene sostituire il TextBox con il controllo MaskEditBox che è fatto apposta per questi scopi.

[vr-claudio]

Grazie mille!!