É POSSÍVEL LIMPAR BUFFER DO TECLADO?

 Tópico anterior Próximo tópico Novo tópico

É POSSÍVEL LIMPAR BUFFER DO TECLADO?

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#487312 - 21/02/2019 11:50:23

MARCOS

Cadast. em:Dezembro/2003


Bom dia,Colegas!
Meu projeto é em VB.NET
Minha dúvida é simples:

Uso o seguinte código, para detectar o pressionamento de uma tecla do teclado:

            'Detecta Tecla '2'
            hotkey1 = GetAsyncKeyState(Keys.NumPad2)
            If hotkey1 = True Then
                      
                                  'Meu código

                       End if

Funciona perfeitamente.

O que preciso,agora é usar um código que me permita limpar o Buffer do teclado.
Existe algum método ou comando que eu possa usar para realizar esta tarefa?




#487314 - 21/02/2019 13:59:52

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


em qual evento voce esta capturando isso? KeyDown?



#487340 - 23/02/2019 08:11:41

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Em vb6 da pra usar api

____________________________________________________________________
Episcopal Studios





#487343 - 23/02/2019 14:08:26

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


https://www.mrexcel.com/forum/excel-questions/254206-flushing-keyboard-buffer.html

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#487351 - 23/02/2019 21:32:55

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Olha só quem apareceu ........ programadorvb6

____________________________________________________________________
Episcopal Studios





Resposta escolhida #487354 - 24/02/2019 12:18:18

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


Bom se entendi direito o que ele quer, ou seja, capturar a tecla, e matar o pressionamento, e executar o código, pode ser feito direto pelo evento, e nem precisa usar API
Ativa a propriedade KeyPreview = true para o form
  
Private Sub FrmMain_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    dim tecla as Integer = CInt(e.KeyCode)
    e.SuppressKeyPress = True
    'seu codigo
End Sub




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MARCOS em 26/02/2019 10:01:07