valeur intercepté par GetAsyncKeyState

Bonjour,


Sub TimerProc(ByVal Hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Ret = GetPressedKey
    If Ret <> sOld Then
        sOld = Ret
        sSave = sSave + sOld
Projet1F1.Text2.Text = sSave
    End If
End Sub

'----------------------------------------------------------------------

Function GetPressedKey() As String
    For Cnt = 32 To 256    
        'Get the keystate of a specified key
        If GetAsyncKeyState(Cnt) <> 0 Then
            GetPressedKey = Chr$(Cnt)
            Exit For
        End If
    Next Cnt
End Function

---

   J'utilise les quelques lignes de  codes ci-dessus pour saisir des entrées clavier.
Les caractères interceptés sont ensuite affichés dans une textBox.

Problème: Lorsque je presse sur la touche   $  , je ne récupère pas le même caractère dans ma textBox.  

Par avance merci pour votre réponse.

Salut Cjvg,

as-tu vérifié le code que tu reçois dans Cnt? est-ce bien le bon? si oui, vérifies que ta textbox est bien capable d'afficher un "$" et un chr$(36) (il suffirait de lui donner un PasswordChar égal à "$" pour qu'il n'affiche plus les "$").

pas d'autres pistes pour l'instant,
à+

rvblog^{n
Je veux ton bien....et je l'aurais....mieux vaut tard...que trop tard!}