以下是引用purana在2006-12-15 19:08:47的发言：
1....好像KeyPress,KeyDown,KeyUp这些事件..不能同时判断两个键(除了Alt,Shift,Ctrl这些),我也不太清楚..没怎么用过这些事件...
2...有很多控件可以播放..MMControl,WMP,这些..也可以用API....
3....程序中使用App.Path应用程序设计就行...它所指的路径..就是你工程的路径...

以下是引用slore在2006-12-15 19:55:02的发言：

Option Explicit

Dim OneHasPress As Boolean
Dim TheKey1 As Integer, TheKey2 As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)

If Not OneHasPress Then
TheKey1 = KeyAscii
TheKey2 = KeyAscii - 32

Select Case KeyAscii
Case 97
Print "97"
Case 98
Print "98"
Case Else
Print KeyAscii
End Select
End If

If Not OneHasPress Then OneHasPress = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = TheKey1 Or KeyCode = TheKey2 Then OneHasPress = False
End Sub

Private Sub Form_Load()
OneHasPress = False
End Sub

谢谢你的代码

我试了下可行的
但是离我要的效果还差一点点

可能我讲的不太清楚

举例说明
比如 我一直按着A（不放手 就会一直输出A 当按B 的时候就会输出B 。。。从在会被B打断
要求效果 按着A 时 再输入其他没有任何效果或作用
。。。

上述代码如果按着A时只会输出一个A