Comment traduire ceci en vb ?Résolu

Question

Bonjour,

J'ai une question très importante concernant un projet que je mène depuis plus d'un an et demi. 

Comment traduire cette phrase en vb ?

If "Touche Control enfoncée" then .......

If "Touche Alt enfoncée" then ....

Je précise que c'est pour mettre dans la procédure évènementielle Click d'un label.

Merci

eXclusif

nycoss · Accepted Answer

Tu met ça dans la partie declaration de ton module :


Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Ensuite pour executer un code si une touche est pressé tu fait :


If getasynckeystate(touche) Then

'Ton code a executer si la touche est pressé

End If


Dans la parentéz tu met soi le numero coresspondant a la touche ou alors la Constant VB correspondante

@++ et bonne chance

cs_CanisLupus · Answer

Salut, nycoss a raison si après ton Ctrl ou ton Alt il n'y a rien.

Sinon faut voir du côté Keylogger. Voir sur le site.

Cordialement, CanisLupus

cs_EBArtSoft · Answer

Les labels ne sont pas des fenetres il ne recoivent pas les messges windows

Sinon utilise plutot GetKeyState (car recupere seulement si la touche est enfoncé a l'instant t)

@+

E.B.

Comment traduire ceci en vb ?

3 réponses

Discussions similaires