ATALHO

JOHNHEY 15/08/2010 15:29:02
#350311
Boa tarde! preciso de uma ajuda com um atalho.

no evento keydown fiz o seguinte select:

select case e.keycode
case keys.alt, keys.U
txtnome.focus
end select

mas não funciona, como devo fazer?, também já tentei os modelos explicado por varios, na opção de ajuda que deram sobre o SHIFT + F2 que encontrei aqui no site mas também não resultou.
PAVILLION 15/08/2010 16:11:53
#350312
JOHNHEY....

Uma pergunta boba, habilitou a propriedade [Ô]KeyPreview[Ô] do Form?
JOHNHEY 15/08/2010 16:22:17
#350314
não considero uma pergunta boba, pois poderia ter me esquecido, mas infelizmente nao me esqueci
esta ativado sim
PAVILLION 15/08/2010 19:28:50
#350321
JOHNHEY...

Não podia testar nenhum código mais cedo, por isso fiz aquela pergunta simples..Mas que as vezes pega a gente...
Agora em casa, testei um código e funcionou....No Form coloquei 2 TextBox, o foco inicial é no TextBox1...
Segue o código...

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Enter
MsgBox([Ô]Tecla Pressionada[Ô])
TextBox2.Focus()
End Select
End Sub

Aqui o código funcionou bem, tenta ai...
JONATHANSTECKER 15/08/2010 20:24:53
#350325 Resposta escolhida
[txt-color=#0000f0]JOHNHEY[/txt-color]

Acredito que isso resolva seu problema.

[ô][ô][ô] <summary>
[ô][ô][ô] Recebe o evento de que uma tecla pressionada
[ô][ô][ô] </summary>
[ô][ô][ô] <remarks>
[ô][ô][ô] Tecla ALT + U - Passa o focu para o campo txtnome
[ô][ô][ô] </remarks>  
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If e.Modifiers = Keys.Alt Then
        If e.KeyCode = Keys.U Then
            txtnome.focus
        End If
    End If
End Sub


Mude a propriedade do Form KeyPreview = True
JOHNHEY 16/08/2010 05:52:27
#350331
desculpe-me JUIZ DE FORA m as tem que ser mesmo a combinação de duas teclas.
JOHNHEY 16/08/2010 06:31:10
#350332
Bom dia Blumenau, somente funcionou a primeira vez, depois ficou louco.
JOHNHEY 16/08/2010 07:04:38
#350333
também funcionou em um mdichildren, mas quando fui incluindo mais txt ficou louco, já formatei o pc pensando que poderia ser virus, mas agora só tenho o windows, office, visual studio 2010
JONATHANSTECKER 16/08/2010 08:12:16
#350337

Bom dia [txt-color=#0000f0]JOHNHEY[/txt-color]

Perceba que neste exemplo eu simplesmente coloquei minha resposta em prática.
E funciona perfeitamente presionando as teclas ALT+U. (Com vários caixas de texto)
Isso também vale para um form MDIChildren.
KILLER 17/08/2010 08:56:56
#350455
Tenta isso:

Select Case e.KeyCode
      Case e.Alt = True And Keys.U
            txtnome.focus
End Select
Tópico encerrado , respostas não são mais permitidas
Voltar