problema TextBox (solo numeros, solo letras)

[zaida]

Hola a todos, tengo el siguiente problema.

Estoy utilizando Gambas (Linux) y necesito que un textbox sólo me permita introducir números y comas y otro TexBox sólo me permita intruducir letras. He estado buscando información y he probado varios códigos, pero ninguno me funciona:

Código:

PUBLIC SUB TexBox1_KeyPress(KeyAscii AS Integer)
IF KeyAscii <> 8 THEN
   IF (KeyAscii < 48) OR (KeyAscii > 57) THEN
   KeyAscii = 0
   ENDIF
ENDIF
END

Código:

PUBLIC SUB TexBox1_KeyPress()
IF Key.Code <> 8 THEN
   IF (Key.Code < 48) OR (Key.Code > 57) THEN
   Key.Code = 0
   ENDIF
ENDIF
END

Código:

PUBLIC SUB TexBox1_KeyPress()
IF NOT IsNumber(TextBox1.Text) THEN
message.Info("Ingrese solo numeros")
ENDIF
END

¿Podeis ayudarme?
Saludos y gracias

[Avellaneda]

Hola,

El segundo código es el correcto pero sustituye Key.Code = 0 por STOP EVENT

Un saludo

[zaida]

Muchas gracias!!!!

Saludos