https://foro.gambas-es.org/viewtopic.php?f=1&t=63&p=186#p186
-----------------------------------
CanihoJR
Miercoles, 23 Septiembre 2009, 22:26

Evitar Letras En Textbox
-----------------------------------
Buenas! realmente nose si es el metodo correcto, ni la forma de la q deberia hacerse, pero me funciona y de lujo :D

[code linenumbers=false]PUBLIC SUB Ttelefono_Change()
  CInt(Ttelefono.Text) 'Convierte el numero en entero
  CATCH
  Ttelefono.Text = Mid$(Ttelefono.Text, 1, -1) 'Si no es un numero borra el caracter
  STOP EVENT
END[/code]

De este sencillo metodo consigo que en mi [i]textbox[/i] llamado Ttelefono no pueda escribir una letra, para en parte, asegurarme deq almenos se parezca a un numero de telefono :P spero q os sirva de ayuda ;)


