Ajuda codigo...

[Bernardo Santos]

Olá pessoal....

Eu sou Bernardo, estudo no Colégio Pedro II - Unidade Escolar Engenho Novo II (Rio de Janeiro - RJ), e sou da turma do Integrado, ou seja, sou de uma turma que terá formação técnica em Processamento de Dados. Para a formação, é necessário ter um tempo determinado de estagio cumprido. E para poder obter estagios (o que está sendo muito dificil) eu tenho estudado diversas linguagens de programação, começando por VB (pois na escola estão ensinando Delphi e eu assisti uma palestra a pouco tempo em que o palestrante falou para "esquecer" Delphi - e VB - julgando sua utilização no mercado atual). Estudo VB por conta própria para desenvolver uma boa lógica de programação.

Tenho feito uns exercícios. E eu queria aprimorar um programa.

É o seguinte: eu quero que um text bar receba apenas números. Sendo que eu sei que eu posso usar o evento Change. E é esta a questão. Como usar o evento change para receber apenas números?

Eu imaginava algo como (apenas a lógica):

If not vNumeroRecebido in ('1', '2', '3' ... '9', '0') then
  Msgbox ("Digite números!", vbOk, "Erro.")
  txtNumero = Empty
End If

Algo assim, eu suponho. Porém, não é possivel representar os digitos assim. Se não me engano, eu teria que representar por meio da tabela ASCII, mas eu não sei como se usa.

alguém poderia me ajuda?

Obrigado!

PS: Estou disposto a fazer pequenos programas simples. Se precisarem, é só pedir. :lol:

[Macêdo]

Use o Keypress:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

KeyAscii = 0

End If

End Sub

[Bernardo Santos]

Valeu!! :D