Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest Aaron Godoy

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

Question

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...

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0
Guest AARON GODOY

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

Share this post


Link to post
Share on other sites
  • 0

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.

Share this post


Link to post
Share on other sites
  • 0
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...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148507
    • Total Posts
      644177
×
×
  • Create New...