none
keyascii=13 não funciona?? RRS feed

  • Pergunta

  •  

    A paz a todos..

     

     

     

    Alguém sabe me dizer porque que o evento keypress utilizando keyascii=13 em formulário ou em planilha não funciona?

     

     

    Obrigado..

    sábado, 1 de dezembro de 2007 13:41

Respostas

  • Verdade, ele não entende o Enter como Asc no UserForm.

     

    Use o evento KeyDown:

     

    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And Shift = 0 Then
        MsgBox "OK"
    End If
    End Sub

     

    quarta-feira, 5 de dezembro de 2007 03:28
    Moderador

Todas as Respostas

  • Funciona só se o formulário tiver o foco.

     

    Se ele possuir controles que recebam o foco, eles é que deverão ter o evento KeyPress.

     

    No Access e no VB, a propriedade KeyPreview serve para que o formulário receba o evento antes do controle.

     

    No Excel, esta dica deve lhe ajudar a usar um mesmo procedimento para todos os controles:

    http://j-walk.com/ss/excel/tips/tip44.htm

     

     

    sábado, 1 de dezembro de 2007 18:21
    Moderador
  •  

    Mas quando o foco está no formulario evento keypress usando keyascii=13 funciona normalmente, mas se o foco estiver num textbox usando keypress nele mesmo só o keyascii=13 não funciona, pq será??Alguma propriedade q tem q mudar??

     

     

    segunda-feira, 3 de dezembro de 2007 19:59
  • Verdade, ele não entende o Enter como Asc no UserForm.

     

    Use o evento KeyDown:

     

    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And Shift = 0 Then
        MsgBox "OK"
    End If
    End Sub

     

    quarta-feira, 5 de dezembro de 2007 03:28
    Moderador
  • Agora sim funciona certinho.....Obrigado Luiz.

    quarta-feira, 5 de dezembro de 2007 09:50