Comment vider le buffer du clavier ???

Bonjour LE TROLL,
LE TROLL a écrit :

Bonjour,

Comment vider le buffer du clavier, de telle façon que si des touches
sont activées lors d'un pause, ces dernières ne soient pas prises en compte
???

Peut être ceci :

Private Type POINTAPI
x As Long
y As Long
End Type

Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Const WM_KEYFIRST = &H100
Const WM_KEYLAST = &H108
Const PM_REMOVE = &H1
Const PM_NOYIELD = &H2

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
(lpMsg As MSG, ByVal hwnd As Long, _
ByVal wMsgFilterMin As Long, ByVal _
wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long

Private Sub FlushKeyBoardBuffer()
Dim Mess As MSG

While PeekMessage(Mess, 0, WM_KEYFIRST, WM_KEYLAST, _
PM_REMOVE Or PM_NOYIELD)
Wend
End Sub

' inspiré de :

<http://www.swissdelphicenter.ch/en/showcode.php?id66>

Non testé. Voir aussi :

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/messagesandmessagequeues/messagesandmessagequeuesreference/messagesandmessagequeuesfunctions/peekmessage.asp>

--
Cordialement,

Jacques.

Merci, bien compliqué pour si peu, ben faut faire avec...

--
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur de MES ROMANS édités
http://irolog.free.fr/romans
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
eeE%23dkWNHHA.1816@TK2MSFTNGP06.phx.gbl...

Bonjour LE TROLL,
LE TROLL a écrit :

Bonjour,

Comment vider le buffer du clavier, de telle façon que si des touches
sont activées lors d'un pause, ces dernières ne soient pas prises en
compte ???

Peut être ceci :

Private Type POINTAPI
x As Long
y As Long
End Type

Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Const WM_KEYFIRST = &H100
Const WM_KEYLAST = &H108
Const PM_REMOVE = &H1
Const PM_NOYIELD = &H2

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
(lpMsg As MSG, ByVal hwnd As Long, _
ByVal wMsgFilterMin As Long, ByVal _
wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long

Private Sub FlushKeyBoardBuffer()
Dim Mess As MSG

While PeekMessage(Mess, 0, WM_KEYFIRST, WM_KEYLAST, _
PM_REMOVE Or PM_NOYIELD)
Wend
End Sub

' inspiré de :

<http://www.swissdelphicenter.ch/en/showcode.php?id66>

Non testé. Voir aussi :

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/messagesandmessagequeues/messagesandmessagequeuesreference/messagesandmessagequeuesfunctions/peekmessage.asp>

--
Cordialement,

Jacques.