Programación General > Visual Basic 6.0 e inferiores

 Solo numeros codigo basic (gambas)

(1/1)

zaida20:
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:

SysEdw:
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 IfEnd Sub 

zaida20:
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:

m0skit0:
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 IfEnd 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.

Navegación

[0] Índice de Mensajes