|
Página 1 de 1
|
Poner Valores Antes Del Textbox
Autor |
Mensaje |
2fast2good
Usuario
Registrado: Junio 2010
Mensajes: 4
Edad: 33
|
Poner Valores Antes Del Textbox
Me preguntaba si había alguna forma de que pudiera insertar automáticamente valores numéricos en un textbox después que el usuario lo hace. Me explico con un ejemplo:
Tengo un textbox al cual llamaremos TXTCODIGO le pongo cantidad máxima de campos de 4
Ahora el usuario al llegar al textbox solo inserta un valor de solo una campo, digamos "1".
Ahora el programa busca en la base de datos el valor "1", siendo que el correcto debería ser "0001", por lo cual me dice que dicho valor "1" no existe en la base de datos.
Entonces mi pregunta es:
¿Se puede hacer que si el usuario ingreso en el TXTCODIGO el valor "1", este automáticamente se cambie a "0001"?.
PD: Estoy loco de buscar esto en Google y demás lugares y nada, por favor ayuda.
|
#1 Lunes, 28 Junio 2010, 03:38 |
|
|
Dani26
Analista Programador
Registrado: Junio 2010
Mensajes: 365
Edad: 58 Ubicación: Montevideo
|
Re: Poner Valores Antes Del Textbox
Amigo, suponiendo que el evento que dispara la lectura del textbox es click en un botón, se me ocurre una sugerencia, no para insertar los números automaticamente, pero si para que el usuario deba hacerlo.
Este es el código que utilizé para analizar tu pregunta:
PRIVATE cantidad AS String
PRIVATE total AS Integer
PUBLIC SUB Button1_Click()
cantidad = Txtcodigo.text
' --------------contar caracteres
total = Len(cantidad)
' ---------------comparar cantidad caracteres y si es diferente a 4 lanzar un mensaje y poner el textbox a 0000
IF total == "4" THEN
Message.info("debe insertar todos los números")
Txtcodigo.text = "0000"
ELSE
ENDIF
END
PUBLIC SUB Form_Open()
Txtcodigo.text = "0000"
END
Luego del endif iría el código que utilizas para buscar. Espero te sirva.
Saludos
=================== Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
|
#2 Lunes, 28 Junio 2010, 05:29 |
|
|
rausilva
Usuario
Registrado: May 2010
Mensajes: 2
Edad: 70
|
Re: Poner Valores Antes Del Textbox
Creo que la mejor manera es hacer así:
PUBLIC SUB Txtcodigo_Change()
Txtcodigo.Text = Format(Txtcodigo.TEXT, "0000")
END
|
#3 Lunes, 28 Junio 2010, 14:26 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Poner Valores Antes Del Textbox
Yo solucioné el tema en su día haciéndome una función. Ponla en tu modulo de funciones comunes (si no tienes uno pues lo creas)
Suponiendo que tu módulo de funciones se llama funciones sólo tienes que poner en el evento change de tu textbox
Mitextbox.text=funciones.pad(mitextbox.tex,4,true)
Suerte
=================== No podemos regresar
|
#4 Lunes, 28 Junio 2010, 17:08 |
|
|
2fast2good
Usuario
Registrado: Junio 2010
Mensajes: 4
Edad: 33
|
Re: Poner Valores Antes Del Textbox
Muchas gracias, cuando llegue a mi casa los probare, y les estare comentando como me fue, espero me funcionen.
|
#5 Lunes, 28 Junio 2010, 19:30 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|