1,453
社区成员




Option Explicit
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 65: WindowsMediaPlayer1.URL = "F:\电影\疯狂的石头.mp4"
'WindowsMediaPlayer1.Controls.play ' 可以不用这个,一般它会自动播放
Case 66: WindowsMediaPlayer1.URL = "F:\电影\赌侠.mp4"
'WindowsMediaPlayer1.Controls.play
Case 67: WindowsMediaPlayer1.URL = "F:\电影\冰河世纪_5:星际碰撞.mp4"
'WindowsMediaPlayer1.Controls.play
End Select
'按键码: A=65, B=66, C=67, 其余类推,也可以自己“实测”哪个键是多少
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub