SOMENTE NUMEROS EM CAMPO TEXT

USUARIO.EXCLUIDOS 02/03/2005 10:51:00
#70708
Ola Amigos,

Como meu primeiro programinha em VB, so pra pegar as manhas eu tenei fazer uma calaculadora que soma dois numeros.

ate ai tudo bem, ai eu queria ir mais alem um pouco e deixar ser digitado somente numeros no campo.

tentei fazer um codigozinho, mais nao deu certo, será que podem me ajudar.

Evento: KeyDown

Public total As Integer
Public contador As Integer
Public frase As String

frase = Trim(num1.text) 'num1 é o campo text
num1.text = ""
total = len(frase)

for contador = 0 to total
if IsNumeric(Mid(frase, contador, 1)) = true Then
num1.text = num1.text & Mid(frase, contador, 1)
end if
next


Quando fiz o teste esse codigo que eu criei nao deu certo, se alguem puder me ajudar ou me dizer outra forma de fazer o mesmo.

Obrigado
FELIPEA 02/03/2005 10:56:03
#70711 Resposta escolhida
USUARIO.EXCLUIDOS 02/03/2005 12:19:41
#70725
é o Topico é ótimo, mais valeu ai a minha vontade de criar alguma coisa que nao sabia..

Muito Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar