COMO USAR SETAS
Pessoal quero executar uma funcao quando o cara aperta as teclas <<<< >>>> como faco pra saber se foi pressionando ou nao?
Altere a prorpiedade do formulario KeyPreview=True
Depois coloca isso no evento Keydow do form.
Select Case e.KeyCode
Case 39
MsgBox([Ô]DIREITA[Ô])
Case 37
MsgBox([Ô]ESQUERDA[Ô])
End Select
Só um exemplo, para dai vc fazer a adaptação.
Depois coloca isso no evento Keydow do form.
Select Case e.KeyCode
Case 39
MsgBox([Ô]DIREITA[Ô])
Case 37
MsgBox([Ô]ESQUERDA[Ô])
End Select
Só um exemplo, para dai vc fazer a adaptação.
vlw vou ver aqui...
Coloquei aonde voce falou e ativei a funcao tambem que voce falou mais nao faz simplesmente nada...
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case 39
MsgBox([Ô]DIREITA[Ô])
Case 37
MsgBox([Ô]ESQUERDA[Ô])
End Select
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case 39
MsgBox([Ô]DIREITA[Ô])
Case 37
MsgBox([Ô]ESQUERDA[Ô])
End Select
End Sub
consegui aqui mais tipo quando eu aperto no form e depois eu pressiono as teclas nada acontece agora se eu clickar em um textbox ele funciona por que sera?
Por algum motivo, seu formulario esta sem o focu.
to tentando fazer o seguinte se um
button1.enabled = false ----------a seta <<<< nao funcione
button2.enabled = false---------- a seta >>>> nao funcione
achei esse codigo que funciona muito bem ele desativar as teclas...so nao to conseguindo fazer da forma que eu planejei ai em cima...
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
Select Case (keyData)
Case 39
Return True
Case 37
Return True
Case Else
Return MyBase.ProcessCmdKey(msg, keyData)
End Select
End Function
button1.enabled = false ----------a seta <<<< nao funcione
button2.enabled = false---------- a seta >>>> nao funcione
achei esse codigo que funciona muito bem ele desativar as teclas...so nao to conseguindo fazer da forma que eu planejei ai em cima...
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
Select Case (keyData)
Case 39
Return True
Case 37
Return True
Case Else
Return MyBase.ProcessCmdKey(msg, keyData)
End Select
End Function
Pessoal quero executar uma funcao quando o cara aperta as teclas <<<< >>>> como faco pra saber se foi pressionando ou nao?
Quais são essas teclas no referido teclado.
A resposta do NILSONTRES ela funciona.
Fiz um teste aqui e funcionou,porém tive que apertar a tecla duas vezes para aparecer a mensagem.
Mas depois da terceira em diante ai funcionou legal.
Quais são essas teclas no referido teclado.
A resposta do NILSONTRES ela funciona.
Fiz um teste aqui e funcionou,porém tive que apertar a tecla duas vezes para aparecer a mensagem.
Mas depois da terceira em diante ai funcionou legal.
esqueda e direita, setas direcionais nao falei que o que ele postou nao funcionou, postei la em cima que tinha conseguido estava tentando fazer um coisa e ja deu certo...
Tópico encerrado , respostas não são mais permitidas