https://foro.gambas-es.org/viewtopic.php?f=1&t=5406&p=31979#p31979
-----------------------------------
shordi
Miercoles, 27 Abril 2016, 08:14

Re: Como Hago Para Que Un Textbox No Admita Pegar Texto?
-----------------------------------
Supongo que con el evento change. Haz una función que suprima las letras... algo así:
[code linenumbers=false syntax=gambas]
public function sololetras(texto as string) as string

dim aletras as string[]
dim letra as string

aletras=["a,"b","c",...etc]
for each letra in aletras
texto=replace(texto,letra,"")
next

return texto[/code]

O quizá más rápido al revés, elimina todo lo que no sean números

[code linenumbers=false syntax=gambas]
public function sololetras(texto as string) as string

dim Numeros,limpio,letra as string
dim n as integer
numeros="1234567890"

for n=0 to len(texto)-1
 letra=mid(texto,n,1)
 if instr(numeros,letra)>0 then limpio &=letra
next

return limpio[/code]

Los he escrito aquí a vuelapluma, o sea que no copies y pegues sin más que lo mismo tiene errores, pero te haces una idea


