Solo numeros codigo basic (gambas)

[zaida]

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:

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

Saludos y muchas gracias

[moradazo]

Este codigo es de Visual Basic 2005 tal vez lo puedas interpretar en la version que trabajas:

Código:

Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CBchar.KeyPress
        e.Handled = ValidaNum(CBchar, e.KeyChar) 'Aqui valida lo que trae de la funcion.
End Sug
        
Public Function ValidaNum(ByVal txtControl As TextBox, ByVal caracter As Char) As Boolean
        If (Char.IsNumber(caracter, 0) = True) Or (Char.IsControl(caracter) = True) Then
'Primer solo agrega digitos y despues del Or para que puedas borrar con el backspace
            Return False
        Else
            Return True
        End If
    End Function

Espero te sirva, saludos

[Avellaneda]

Iniciado por zaida

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:

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

Saludos y muchas gracias

Hola zaida,

en Gambas la instrucción CASE xx To XX, creo que no funciona, pero en vez de un Select puedes poner una condición If:

Código:

IF key.Code >= 48 AND key.Code <= 57 THEN 
    ELSE IF key.Code = key.BackSpace THEN 
    ELSE IF key.Code = key.Delete THEN 
    ELSE 
      STOP EVENT 
  ENDIF

Saludos

[ghvg]

El codigo debe ser asi.

Código:

PUBLIC SUB tbxPantalla_KeyPress()

    SELECT CASE Key.Code
        CASE 48 TO 57 'Codigo ASCII de los números
            CASE key.BackSpace 'Retroceso
            CASE key.delete 'Borrar
            CASE key.tab    'Tabulador
        CASE ELSE 
            STOP EVENT 
    END SELECT 
END

Seguro te funciona...