problème getasynckeystate

Bonjour,
je voudrais mettre la valeur de mon tableau dans la fonction getasynckeystate comme suis :

dim tableau
tableau=array("un","deux")
for i=0 to 1 step 1
if (getasynckeystate(tableau(i)) and &H1) = &H1 Then
Msgbox("vous avez cliquez sur le bouton gauche de votre souris")
end if
next

avec en module ceci :

Declare function getasynckeystate lib "user32.dll" (byval vkey as long) as Integer
public const un= &H1

Une erreur vient à getasynckeystate(tableau(i)), il ne reconnait pas la valeur du tableur.

Merci beaucoup .

salut,

"un" <> un
tableau = array(...) => variant

++

---

Prenez un instant pour répondre à ce sondage svp

désolé j'ai pas compris ce que tu as voulu dire, en fait je veux pas que tableau(i) soit interprété par la fonction comme étant tableau(i) mais comme étant le mot "un".
 Merci.

ok.
alors tu peux me traduire (avec tes mots) la signification de çà stp :
getasynckeystate(tableau(i)) and &H1) = &H1

qu'est-ce que tu .... penses faire avec ce test ?

---

Prenez un instant pour répondre à ce sondage svp

je compte vérifier si l'utilisateur a cliqué sur le bouton gauche de sa souris....

çà j'ai bien compris, c'est l'intention du code que je ne vois pas.

utiliser le mot "un", quel rapport?
déclarer une variable un en long à 1&, ok mais pourquoi?
faire un And avec une string et un long, quoi?!!
utiliser cette API pour la souris, hein??!!

The GetAsyncKeyState function determines whether a key is up or down at the time the function is called, and whether the key was pressed after a previous call to GetAsyncKeyState.

++

---

Prenez un instant pour répondre à ce sondage svp

Il ne faut pas utiliser l'API GetAsyncKeyState mais GetKeyState :


Coloration syntaxique automatique

' API pour test si une touche est enfoncée
Private Declare Function GetKeyState Lib "user32" ByVal nVirtKey As Long) As Integer 

' Déclaration des touches
Const VK_LBUTTON = 1  '  *** bouton gauche souris

'  *** Place un Timer dans une Form pour tester :
Private Sub Timer1_Timer() 

    If GetKeyState(VK_LBUTTON) >= 0 Then 
        Me.Caption = "Bouton gauche de la souris relaché" 
    Else 
        Me.Caption = "Bouton gauche de la souris enfoncé" 
    End If 
End Sub 
Coloration syntaxique automatique

@++

---

C'est clair ^^

l'autre (reprends moi PCPT si je me trompe) est pour garder une touche 'virtuellement' enfoncée.

La valeur vkey de getasynckeystate prend la valeur d'une touche, et simule un appuie tant que tu ne lui dis pas d'arrêter la simulation.
Par ex : tu lance la fonction pour la Touche Maj, bah à chaque fois que tu écriras qque chose, ce sera en Majuscule. (même après fermeture du prog, il me semble)

@++

---

non mortalino, ta description est celle de keyb_event.

---

Prenez un instant pour répondre à ce sondage svp

Effectivement Mortalino ton code fonctionne bien et il est moins lourd que l'autre. Mais je vais me retrouvé au même probleme. Si je stock le nom de toutes mes constantes dans un array (par exemple: tabl = array("lettrea","lettreb","lettrec"), il ne va pas les interpréter; il va prendre tabl(i) et nom pas "lettrea", "lettreb" ou "lettrec".

for i=0 to 2 step 1
 If GetKeyState(tabl(i)) = 1 Then
        'code en fonction de la touche saisie
End If

et hmmm tu trouve ou les autres valeurs des touches ?

merci beaucoup ^^