Programación General > VBA
Txt En Euros!
sndr82:
Hola foro!!!
Tengo un txt donde me ponen una cantidad de dinero en euros,
1. en el campo tengo el siguiente codigo para q me ponga puntos cada 3 digitos:
X = Len(txtimporte.Text)
txtimporte.Text = Format(txtimporte, "#,###") 'en ejecución es un "." no ","
txtimporte.SelStart = X + 1
2. Tambien tengo el siguiente codigo para que solo me puedan ingressar numeros y comas:
If (KeyAscii <> 48 And KeyAscii <> 49 And KeyAscii <> 50 And KeyAscii <> 51 And KeyAscii <> 52 And KeyAscii <> 53 And KeyAscii <> 54 And KeyAscii <> 55 And KeyAscii <> 56 And KeyAscii <> 57 And KeyAscii <> 8 And KeyAscii <> 44 Or KeyAscii = 13) Then
KeyAscii = 0
End If
El problema es q si pongo el codigo 1 no me deja escribir "," -comas- como lo puedo solucionar????
MUCHAS GRACIASSSSS!!!!!!!!!!!!!!!!
nelson_z:
Porque no usas el control de Microsoft que se llama "masked Edit "
saber agregar componentes??
a este control ... solo le pegas el formato que quieres te vas a las propiedades... y en formato... ahi le das el formato deseado....
sale...
sndr82:
Holaa!!
Esto del "masked Edit" ... es un componente que hay q agregarle? pq no lo encuentro, y en la web de microsoft el ejemplo que da es como si le tuvieras que dar las propiedades mediante codigo...... en mi txt ya le doy las propiedades mediante codigo... cuál es la diferencia entonces????
Muchas grácias Nelson!!!!
nelson_z:
para agregar el componente te ubicas en toolbox... y presionas el boton derecho del raton y seleccionas Components... o en Projects >> Componets .... o con CTRL + T
ya que te abrio la ventana... seleccionas el check ,,, qu edice...
Microsoft Masked Edit Control 6.0
y le das aplicar y veras que aparece el control en la ventana del ToolBox
en las propiedades del objeto ... trae un formarto,... ahi le pones tu formato...
sale...
sndr82:
Buenas,
No conocia este control en VB!
Esta muy bien pero queda un poco feo en mi caso ya que no se la cantidad de dinero que me van a ingressar (desde 100€ hasta 100.000.000.000€ o más) asi que si pongo todos los espacios para una cantidad grande y me ponen una peke aparece asi mientras lo editas: 100______,15
Y así cuando pierde el enfoque: 100 ,15
He estado mirando si se le puede "engañar" con los espacios pero no.... verdad?
Gracias de nuevo
Navegación
[#] Página Siguiente
Ir a la versión completa