|
Página 1 de 1
|
Unos Detalles Con Los Controles Textbox Y Valuebox
Autor |
Mensaje |
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
Unos Detalles Con Los Controles Textbox Y Valuebox
Hola muy buenas noches compañeros, como están, espero que bien con sus proyectos y en sus grandes sistemas desarrollados, quiero comentarles que tengo un control textbox para guardar números, siempre me ha gustado usar las textbox por su capacidad de centrar o mover lo que se introduzca en las mismas, estoy usando este control para guardar números telefónicos de los cuales estos tienen 11 números, por consiguiente en las mismas textbox le puse condiciones para que solo en estas se puedan meter solo números y no letras que es este código visto aquí en el foro!
Public Sub TextBox2_Change()
CInt(TextBox2.Text) 'Convierte el numero en entero
Catch
TextBox2.Text = Mid$(TextBox2.Text, 1, -1) 'Si no es un numero borra el caracter
Stop Event
End
Esta sentencia funciona bien para no dejar meter caracteres o letras, pero al agregar mas de 10 números no me lo permite! , ni siquiera usando la propiedad Maxlength=11, claro si le quito el código pues de lógica deja meter lo que sea! pero esa no es la idea, que podrá ser?
Otra cosa, no me gusta usar la valuebox porque noto que el numero introducido se pone es en la parte derecha del control, lo cual no tiene propiedad para Alignment y para colmo intento meter un numero en la misma como 0414 y me permite introducir es 414 el "0" no lo deja, ustedes dirán que esto es una estupidez, pero es algo que quizá se me escapa de mi saber, gracias de antemano.
Quizá haya algo que no sepa y este perdido, gracias por sus ayuda saludos.
última edición por jousseph el Sabado, 22 Junio 2013, 04:26; editado 1 vez
|
#1 Sabado, 22 Junio 2013, 02:02 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Unos Detalles Con Los Controles Textbox Y Valuebox
Hola jousseph.
Mira este post:
http://foro.gambas-es.org/viewtopic.php?f=5&t=3174
En el veras como hacerlo. Hay dos maneras y además también puedes añadir que solo admita ciertas teclas.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#2 Sabado, 22 Junio 2013, 07:20 |
|
|
angelnu
Angel
Programador
Registrado: Septiembre 2009
Mensajes: 106
Edad: 61 Ubicación:
|
Re: Unos Detalles Con Los Controles Textbox Y Valuebox
Citar:
Public Sub TextBox2_Change()
CInt(TextBox2.Text) 'Convierte el numero en entero
Catch
TextBox2.Text = Mid$(TextBox2.Text, 1, -1) 'Si no es un numero borra el caracter
Stop Event
End
Esta sentencia funciona bien para no dejar meter caracteres o letras, pero al agregar mas de 10 números no me lo permite! , ni siquiera usando la propiedad Maxlength=11, claro si le quito el código pues de lógica deja meter lo que sea! pero esa no es la idea, que podrá ser?
Creo que tu paras la inserción en el evento Change (después de que la tecla ya se ha insertado) por eso si el ultimo caracter es erroneo te deja insartar Maxlengtn -1, debes interceptar la tecla en el evento KeyPress así impedirás la inserción de la tecla.
Yo utilizo el siguiente código de tres lineas en el evento keyPress
|
#3 Sabado, 22 Junio 2013, 07:51 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
Re: Unos Detalles Con Los Controles Textbox Y Valuebox
Citar: Hola jousseph.
Mira este post:
http://foro.gambas-es.org/viewtopic.php?f=5&t=3174
En el veras como hacerlo. Hay dos maneras y además también puedes añadir que solo admita ciertas teclas.
Saludos
Gracias señor shell, estuvo buenísimo.
Citar: Creo que tu paras la inserción en el evento Change (después de que la tecla ya se ha insertado) por eso si el ultimo caracter es erroneo te deja insartar Maxlengtn -1, debes interceptar la tecla en el evento KeyPress así impedirás la inserción de la tecla.
Yo utilizo el siguiente código de tres lineas en el evento keyPress
Código: [Ocultar] [Seleccionar]
Public Sub TextBox1_KeyPress()
If Asc(Key.Text) < 32 Or Key.Code = key.Delete Then Return ' poder pulsar teclas de control
Try CInt(Key.Text) ' si es del 0 al 9 no da error insertamos el numero
If Error Then Stop Event ' no se ha pulsado un numero cancelamos el evento
End
Gracias compañero angelnu excelente, esta me sirvió también, muchas gracias a los dos.
Saludos.
|
#4 Sabado, 22 Junio 2013, 19:23 |
|
|
tomas
Usuario
Registrado: Febrero 2010
Mensajes: 33
Edad: 57
|
Re: Unos Detalles Con Los Controles Textbox Y Valuebox
Si es para insertar un numero desde teclado:
Public sub cajadetexto_keypress(key.code as integer)
If instr("0123456789", key.text)=0 then stop event
End
Saludos
|
#5 Sabado, 22 Junio 2013, 21:24 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Unos Detalles Con Los Controles Textbox Y Valuebox
Otra cosa, no me gusta usar la valuebox porque noto que el numero introducido se pone es en la parte derecha del control, lo cual no tiene propiedad para Alignment
...un simple estratagema te permite de hacerlo:
http://www.gambas-it.org/wiki/index..._in_un_ValueBox
|
#6 Jueves, 20 Noviembre 2014, 01:22 |
|
|
|
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
|
|
|
|
|