KEYPRESS ENTER TAB

LUISSERA 06/03/2012 10:11:59
#396505
Queria que ao apertar Enter ele automaticamente mudava de Text Box, mas não quero ir em todas as as TextBox pra fazer isso.
Bom já procurei no Forum, inclusive olhei muitos tópicos onde falava isso, procurei até no livro que estou estudando, só que tem um porém, quando executo o código a seguir ele da uma mensagem de erro

   Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys [Ô]{Tab}[Ô]
        KeyAscii = 0
    End If
End Sub


A Mensagem de Erro que ele me retorna é:

Run-time Error [ô]70[ô]

Permission Danied

Obs: O KeyPreview do Form já coloquei como True.
LUCASVAZ 06/03/2012 10:27:22
#396506
Se você estiver utilizando o Visual Studio, quando você estiver na pagina de Design do Form você pode ir no menu View e clicar em TABORDER. Quando você fizer isso irá aparecer números em seus componentes do form, e aqueles que você clicar será a ordem que a tecla tab irá percorrer.

Espero ter ajudado, se permanecer a dúvida não deixe de perguntar.

Att,

Lucas
LUISSERA 06/03/2012 10:38:17
#396508
Estou utilizando o Visual Basic 6

isso que vc disse seria o TableIndex né?
Eu já configurei todos, a tecla TAB funciona perfeitamente, o que gostaria mesmo seria o Enter funcionar de maneira semelhante

Muito Obrigado pela ajuda
NALDOXD 06/03/2012 10:40:41
#396510
Esse erro,

Citação:

Run-time Error [ô]70[ô]

Permission Danied



Começou a dar depois que mudei meu sistema operacional de Win XP para Win 7 parace que o Win 7 não estava dando suporte a DLL eu tive que mudar o esquema do enter para dar certo, mas o engraçado que não era em todos os casos só em alguns.

Só 1 min, vou pegar um projeto meu e dar uma olhada aqui pois agora estou aprendendo C# e largando o VB... só 1 min!
LUISSERA 06/03/2012 11:08:34
#396515
estou aguardando amigo
NALDOXD 06/03/2012 11:16:04
#396518
Olha meu VB no not não quis abrir mas eu creio que sua sintaxe esta correta, eu dei uma leve pesquisada e encontrei um legal e uma gambiarra teste as duas ai rsrs...

POG - Programação Orientada a Gambiarra
Citação:

Private Sub txt_KeyPress(Index as integer, KeyAscii As Integer)
If KeyAscii = 13 then txt(Index +1).SetFocus
end sub



Outra forma:
Citação:

If Keyascii= 13 then [ô] Se vc der um ENTER
SendKeys([Ô]{TAB}[Ô])
Keyascii=0
End If



Hora que eu for almoçar caso ninguém tenha respondido eu lhe passerei meu código.
LUCASVAZ 06/03/2012 11:18:17
#396519
Fiz o teste com dois textbox, no evento KeyDown do txtBox1 eu coloquei assim:

Private Sub txtBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBox1.KeyDown
If e.KeyCode = Keys.Enter Then
SendKeys.Send([Ô]{TAB}[Ô])
End If
End Sub

Aqui funcionou, tenta ai.
NALDOXD 06/03/2012 11:21:09
#396520
sim, no keydown também funciona só que o código fica bem mais chato =s
LUCASVAZ 06/03/2012 11:24:15
#396523
Isso que o amigo NALDOXD disse é fato, pois você terá que fazer em todos os campos... mas é uma saida.
LUISSERA 06/03/2012 11:25:29
#396524
não funcionou nenhuma, mesmo erro, Error [ô]70[ô]
Obs: Utitlizo o Windows 7 Ultimate 32bits SP1
LUCASVAZ 06/03/2012 11:29:02
#396525
Da uma olhada neste link do forum ve se te ajuda:

http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=2956
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar