Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: zaida20 en Viernes 8 de Agosto de 2008, 14:26
Título: Solo numeros codigo basic (gambas)
Publicado por: zaida20 en Viernes 8 de Agosto de 2008, 14:26
Hola a todos:
Estoy utilizando gambas (código basic)
Quiero limitar la entrada de un texbox solo a numeros, estoy inetentando usar el siguiente codigo:
Código: Text
PUBLIC SUB TextBox_KeyPress()
SELECT CASE Key.Code
CASE 48 TO 57
CASE Key.BackSpace
CASE Key.Delete
CASE Key.Tab
STOP EVENT
END SELECT
END
Me da un error de sintaxis en ésta línea CASE 48 TO 57 y no consigo descubrir por qué. Espero que podais ayudarme :hitcomp:
Saludos y muchas gracias :hola:
Título: Re: Solo numeros codigo basic (gambas)
Publicado por: SysEdw en Viernes 8 de Agosto de 2008, 15:01
hola por que no pruebas con este codigo
Código: Text
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
KeyAscii = 0
End If
End Sub
Título: Re: Solo numeros codigo basic (gambas)
Publicado por: zaida20 en Miércoles 20 de Agosto de 2008, 14:00
Hola SysEdw, muchas gracias por contestar, he probado el código y me aparece lo siguiente cuando lanzo el form:
El programa se cerró inesperadamente enviando la señal #11
por que pasa? Muchas gracias y saludos :hola:
Título: Re: Solo numeros codigo basic (gambas)
Publicado por: m0skit0 en Miércoles 20 de Agosto de 2008, 15:38
Prueba con éste a ver:
Código: Text
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Está más optimizado que el anterior porque primero evitas el uso de la función Chr() (una función menos), y segundo el uso de cadenas de caracteres, que siempre son más lentas.