1请教 当按着任意一个键位时 再按其他时键无反映 如KeyPress : Case了 65 就不能Case 68.....83 等等其他键

2 VB中的音乐播放控件在哪里呀？ 要能播放MP3或WMA的

3 因为程序是给别人写的 程序里有音乐 图片文件 要别人也能听音乐看图片 这样的路径要怎么设置呀

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
Debug.Print "A"
Case vbKeyB
Debug.Print "B"
Case vbKeyC
Debug.Print "C"
End Select

End Sub
你试下这优代码就知道了!

对楼上无言....
人家是说同时按下A和B...则显示..

我这段程序就是测试两个按钮能否同时按下的呀!

对你无言...

呵呵...怎么老是无言呀...

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键..还没有轻的时候..再按B键..就没有反应的了...
呵呵.

还没有轻的时候？？？什么时候？

我这个是当按住一个键，按其他键没反映……