Ir para conteúdo
Fórum Script Brasil
  • 0

Funçao


mestre fyoda

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

a variavel keyascii so funciona dentro do evento KeyPress. do jeito q esta é a mesma coisa q voce fazer:

Public SUb Proximo()

If x = 13 Then
  SendKeys "{TAB}"
End If

End Sub
pra falar a verdade, fica mais facil por esse codigo dentro do keypress do q fazer uma funcao. vai gastar so uma linha. assim:
Private Sub Form_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
mas se você quiser mesmo usar uma funcao, c pode fazer assim:
Public Sub Proximo(KeyAscii as Integer)
If KeyAscii = 13 Then
  SendKeys "{TAB}"
End If
End Sub
e na hora de chamar, assim:
Private Sub Form_KeyPress(KeyAscii As Integer)
     Proximo KeyAscii
End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

quando coloco o codigo no proprio form funciona legal

ue, c tinha dito q funcionava...

você pos o propriedade KeyPreview do Form = True?

Outra coisa é q costumo fazer esse mesmo codigo seu no evento KeyDown. assim:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{TAB}"
End Sub

se não funcionar do seu jeito, tente com o KeyDown

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...