VB编写可以调用window自带的播放器播放视频

[zhuyanmeng]

大神们，如何用VB编写可以调用window自带的播放器播放视频，然后通过下位机单片机上的按钮发送指令，播放电脑上对应的视频

[舉杯邀明月]

放视频，用WMP控件吧。这样实现起来不太难。 “下位机”的指令，实现相应的通讯就可以了。 用串口、USB接口、WinSock都可以，就看你的下位机适合选哪种了。

[zhuyanmeng]

如果不要单片机，直接用一个键盘模块，用VB调用WMP控件，然后按键盘上的一个按钮比如说A键，就播放一个视频，按一下B键就播放另外一个视频。请问这样大概如何实现啊？？

[舉杯邀明月]

新建一个“标准EXE”工程，添加“部件” WindowsMediaPlayer 。 然后窗体内画一个 WMP控件，粘贴如下代码，运行试一下： （视频或mp3等　的文件路径，按你自己实际的来写，注意要选择它能支持的格式）

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

[zhuyanmeng]

谢谢啦，大神

[zhuyanmeng]

请问一下大神，可以调用WMP控件同时播放音频和视频文件吗？

[zhuyanmeng]

知道了，不用指点了，谢谢