Tæl antal KeyDown\'s

Dim keyCount As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    keyCount = keyCount + 1
   
End Sub

Private Sub Form_Load()
    keyCount = 0
End Sub



/nuno

Jeg har prøvet dette nuno, dog har jeg ikke prøvet at sætte keycount til 0, så det vil jeg prøve, derefter vender jeg tilbage.
Ved du i øvrigt hvordan jeg får MP (Media Player\'en) til at spille et bestemt antal gange? - MP.Play(KeyCount)  ???

-Webcrawler

Jeg har ikke arbejdet med kald af MP i VB. Hvis du vil kalde den hver gang der bliver trykket keyDown - så liægger du bare kaldet ind, under sub\'en

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    keyCount = keyCount + 1
    \'Media Player kald her
End Sub

/nuno

Jeg har nu fundet ud af at man kan sætte PlayCount (altså antal gange den skal afspille sekvensen) lig med KeyCount - jeg bliver dog nød til at klade Sleep funktionen da den ikke skal spille lyden i én køre. Men takker for hjælpen...
-Webcrawler