Quero uma função que bloqueia números negativos...

[Guest Aaron Godoy]

Gostaria de saber se tem uma função que bloqueia números negativos, se ela poderia de alguma maneira bloque-los na text box, assim como retkey que eu uso que não permite letras...

[Guest AARON GODOY]

Senão, como faço na hora de gravar, como declaro que não é permitido número negativo?

[Pinguimbera]

Este Quote é de outro fórum e soluciona sua questão:

tiagosandrade

27-May-2005, 22:05

No meu caso deu certo assim

Private Sub txtRaio_KeyPress(KeyAscii As Integer)

If KeyAscii = 46 Then

Exit Sub

ElseIf KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

KeyAscii = 0

End If

End Sub

Mas se quiser validar (. , e backspace) faça assim

Private Sub txtRaio_KeyPress(KeyAscii As Integer)

If KeyAscii = 46 Or KeyAscii = 44 Or KeyAscii = 8 Then

Exit Sub

ElseIf KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

KeyAscii = 0

End If

End Sub

Pra saber o valor das teclas eu fiz um programinha basico veja:

num textbox

Private Sub txt1_KeyPress(KeyAscii As Integer)

MsgBox KeyAscii

End Sub

so digitar q o programa mostra o valor

Espero ter ajudado.

[Guest Aaron]

Este Quote é de outro fórum e soluciona sua questão:

tiagosandrade

27-May-2005, 22:05

No meu caso deu certo assim

Private Sub txtRaio_KeyPress(KeyAscii As Integer)

If KeyAscii = 46 Then

Exit Sub

ElseIf KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

KeyAscii = 0

End If

End Sub

Mas se quiser validar (. , e backspace) faça assim

Private Sub txtRaio_KeyPress(KeyAscii As Integer)

If KeyAscii = 46 Or KeyAscii = 44 Or KeyAscii = 8 Then

Exit Sub

ElseIf KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

KeyAscii = 0

End If

End Sub

Pra saber o valor das teclas eu fiz um programinha basico veja:

num textbox

Private Sub txt1_KeyPress(KeyAscii As Integer)

MsgBox KeyAscii

End Sub

so digitar q o programa mostra o valor

Espero ter ajudado.

Brigadão cara, ajudou sim...