Ultima tecla

[bill100vergonha 0]

Galera.... alguém sabe no VB6 como faço pra saber qual foi a ultima tecla pressionada pelo usuário....preciso desabilitar algumas teclas....

[allan_pedroni 0]

Caro amigo! :D

 

Espero que o código lhe ajude!

 

Vá na Propriedade do seu form e mude para

- KeyPreview = TRUE

 

Agora de um duplo click no form e escolha o evento Form_KeyDown

 

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim ultima_tecla_precionada As Stringultima_tecla_precionada = KeyCode 'guarda a ultima tecla precionadaEnd Sub

 

Para poder saber qual tecla foi preesionada, voce pode comparar com a tecla desejada por voce!

 

Ex:

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim ultima_tecla_precionada As Stringultima_tecla_precionada = KeyCode 'guarda a ultima tecla precionadaIf ultima_tecla_precionada = KeyCodeConstants.vbKeySpace Then      MsgBox "Tecla ESPAÇO FOI PRESSIONADA"ElseIf ultima_tecla_precionada = 13 Then      MsgBox "Tecla ENTER FOI PRESSIONADA"End If      KeyCode = 0     'desabilita a tecla precionada atual      MsgBox "Ultima tecla precionada " & ultima_tecla_precionadaEnd Sub

Abraços