VB6中的WindowsMediaPlayer KeyDown事件

Question

我想用VB6创建一个虚拟钢琴 我的程序将使用KeyDown事件，所以我写了这个：

Private Sub Form_KeyDown(KeyCode As Integer, Sift As Integer)
   If KeyCode = VbKeyQ then
      WindowsMediaPlayer1.URL = App.Path & "\sound_bank\C2.wav"
   End If
End Sub

一切都很好，当我在键盘上按Q时播放声音，但是， 当我按住Q时声音在其持续时间长度之前停止。

说C2.wav的持续时间是10秒，当我按下并释放键盘上的Q时，它会播放C2.wav（10s）的完整持续时间，但是当我按住键盘上的Q时它只是播放了C2 .wav 4秒。我看到WMP的状态改为Connection ...当我按住键时播放。

那么，当我拿着钥匙时，如何让它不停止/削减C2.wav的持续时间？

Answer 1

只是一个想法：

当KeyDown事件被触发时，您可以按特定间隔触发计时器以播放C2.wav并在KeyUp事件上停止计时器。