21/09/2006, 14:04
|
 | | | Fecha de Ingreso: septiembre-2006
Mensajes: 16
Antigüedad: 18 años, 7 meses Puntos: 0 | |
| en el Evento KeyPress del Cuadro de texto ingresas los siguiente:
Select case Keyascii
Case 8, 13, 27 'Permite el borrar, enter y escape
Keyascii=Keyascii
Case 44 'Permite la coma para separacion decimal
Keyascii=Keayscii
Case 48 to 57 'Permite entrada de numeros
keyascii=keyascii
Case else 'Bloquea cualquier otro caracter
Keyascii=o
End select
En el Evento LostFocus
if Texto.Text="" then Texto.Text="0"
Texto.Text=FormatNumber(Texto.Text,2) 'Formatea el valor con dos decimales, y separador de millares |