Preciso De Ajuda Sobre Textbox

[Guest - Rafael -]

Olá..

Eu gostaria q meu TextBox fizesse uma função.. q eu não sei fazer...

Eu queria q em tempo d execução, o usuario não poderia digitar letras, só poderia digitar somente números.. e queria q os numeros, aparececem em forma monetaria

isso é possível??

Eu peguei da internet um comandu para não digitar numeros:

Private Sub txtExemplo_KeyPress(KeyAscii As Integer)

If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Then

KeyAscii = 0

End If

End Sub

mas o q eu queru é para não digitar letras e somente digitar numeros

atenciosamente

Rafael Batista

rafael-batista@hotmail.com

[Ozi]

Opsss

você só precisa indicar os keyasciis que você quer permitir ou seja: Aproveitando o seu prprio codigo tente este:

[Ozi]

Opsss

você so precisa indicar os Keyascii's que cv n~ quer permitir ou seja, aproveitando o seu proprio codigo, tente esta modificação:

Private Sub txtExemplo_KeyPress(KeyAscii As Integer)

If KeyAscii <= 48 And KeyAscii >= 57 Then

KeyAscii = 0

End If

End Sub

Acho que vai funcionar, tanta ai e me diz depois se eu ajudei!!!

Abraços -- Ozi --

[Guest Guest]

Obrigado -- Ozi -- pela força

mas ainda não funcionou!!!!

Ainda continuo escrevendo Letras e Números no TextBox

[Ozi]

tá meio osso de tempo aqí maninho, mas vou vë se da pra eu dar uma olhadinha no meu bauzinho, se ninguém agudar até lá, vou ver o que posso fazer pra ajudar. É q eu tö no trampo a noite e durmo ao dia sacou?

[Guest Guest]

Aë colega, desculpe a falha. Só depois de ter um tempinho pra analizar melhor as coisas é q percebi o erro.

troque a função <and> pela <or> dessa vez vai funcionar. eu testei em casa antes, só pra te passar.

Ex.

Private Sub txtExemplo_KeyPress(KeyAscii As Integer)

If KeyAscii <= 48 or KeyAscii >= 57 Then

KeyAscii = 0

End If

End Sub

me retorna se funcionar pra agente o tópico encerrar

abraços --Ozi--

[Ozi]

Olá Brother, tö postando de novo porque meu login não saiu da otra veiz!

Aë colega, desculpe a falha. Só depois de ter um tempinho pra analizar melhor as coisas é q percebi o erro.

troque a função <and> pela <or> dessa vez vai funcionar. eu testei em casa antes, só pra te passar.

Ex.

Private Sub txtExemplo_KeyPress(KeyAscii As Integer)

If KeyAscii <= 48 or KeyAscii >= 57 Then

KeyAscii = 0

End If

End Sub

me retorna se funcionar pra agente o tópico encerrar

abraços --Ozi--

[Alexandre_Ribeiro]

Amigo,

um ótimo controle para isso é o INPUT32x.OCX , que você poderá baixar no endereço http://www.eoliv.com/

Abraço,

Alexandre Ribeiro.

[Guest DJ Primo]

olha tente isto.... este código faz que somente seja digitado números em tempo de execução......

Private Sub txtEntrada_LostFocus()

On Error GoTo Valor_Errado

vValor = CCur(txtNome.Text)

Valor_Errado:

If Err = 13 Then

MsgBox "Dados inválido", vbExclamation + vbSystemModal, "Aviso"

txtEntrada.Text = InputBox("Informe somente números:", _

"valor do Financiamento")

Resume 0

End If

End Sub

bom isto é de uma projetinho financeiro.. e segue como base para você ok até...