PROBLEMAS COM TECLAS

GAMISTIK 01/12/2006 19:53:49
#187523
galera pq toda vez q eu preciono uma tecla via keydown ela chama duas vezes a mesma função??? outro detalhe eu use o comando sendkeys pra q trocasse o Enter por Tab e mesmo assim toda vez q eu preciono enter... sou aquele bipe chato do windows..como resolvo isso??


valew galerinha...abracos
MARCOSAV 01/12/2006 20:05:19
#187524
a propriedade KeyPreview do seu form está como True ??? se não estiver, deixe e veja se resolve...

Se possível, coloque seu código aqui prá podermos ajudar melhor...

Abraço

T+
GAMISTIK 01/12/2006 20:17:39
#187525
esta ativo sim...morcosav...e

abaixo segue o codigo

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 113 Then
 If MsgBox("Deseja Confirmar o Diretorio?", vbQuestion) = vbYes Then
 Dim RegistroWindows As Registry
 Set Registro = New Registry
 Registro.UpdateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Minha Empresa Softwares\Meu  Programa ", "DiretorioBD", caminho
 End If
ElseIf KeyCode = 114 Then
 If ConectarAoBanco = True Then
 MsgBox "Sua Conexão foi Realizada com Sucesso.", vbInformation
 End If 
end if 
End Sub


e o do enter ta aqui..

Private Sub Nome_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys ("{tab}")
End If
End Sub



tem ideia do q pode ser??
MARCOSAV 01/12/2006 20:49:50
#187530
Bom com o Enter não tem nada de errado...
eu é que costumo fazer sem os parenteses

SendKeys "{Tab}"
mas não faz diferença nenhuma (pelo menos aqui)

Agora com o bloco anterior,, coloque um Exit Sub antes do primeiro End if

Também funcionou aki... tenta aí e vê o que acontece, vlw ???

T+
Tópico encerrado , respostas não são mais permitidas
Voltar