Como ....

[Guest - tito -]

bom tenho em form um campo texto e quero fazer com que quando ocara

digitar uma letra não apareça a letra digitada. ou seja um campo que só entre

numeros. Só que é um desafio mortal descobrir como faço isto sem utilizar o Keyascii ......

tenho a função dentro do KeyPress

If IsNumeric(TextBox1.Text) = False Then

....... // Aqui é que pega

End if

Me ajudem por favor

[Graymalkin]

bom tenho em form um campo texto e quero fazer com que quando ocara

digitar uma letra não apareça a letra digitada. ou seja um campo que só entre

numeros. Só que é um desafio mortal descobrir como faço isto sem utilizar o Keyascii ......

tenho a função dentro do KeyPress

If IsNumeric(TextBox1.Text) = False Then

....... // Aqui é que pega

End if

Me ajudem por favor

Por que não utilizar o KeyAscii??? Fiquei curioso agora...

Graymalkin

[Guest - tito -]

nossa uma longa historia.....

mas, o tempo se passou bastante e perdi..não consegui!,...

mas você sabe como fazer!?:

[Graymalkin]

Tem que ser o KeyPress? Com o KeyUp deu pra fazer isso aqui:

    pos = TextBox1.SelStart
    texto = TextBox1.Text
    
    For i = 1 To Len(texto)
        c = Mid(texto, i, 1)
        If Not IsNumeric(c) Then
            texto = Replace(texto, c, "")
        End If
    Next i
    If pos > Len(texto) Then pos = Len(texto)
    If texto <> TextBox1.Text Then
        TextBox1.Text = texto
        TextBox1.SelStart = pos
    End If

Só não entendo porque não colocar apenas KeyAscii=0 naquele código do evento KeyPress...

Abraços,

Graymalkin