媒体的播放与控制

最新推荐文章于 2024-10-15 17:50:18 发布

penlau

最新推荐文章于 2024-10-15 17:50:18 发布

阅读量1k

点赞数

文章标签： vb 编程工具 windows timer .net

本文链接：https://blog.csdn.net/penlau/article/details/1467706

版权

媒体的播放与控制

在媒体播放控件选择上，我们选择Windows Media Player 9.0的播放控件WMP.DLL，该控件的功能相当完善，而且有漂亮的视频插件，在播放音频文件时，可以享受漂亮的视觉效果。由于WMP.DLL控件不在工具箱中，所以我们先必须加入该控件：打开工具箱，在空白处点击鼠标右键，选择右键菜单中的"新建项..."，将弹出"选择工具箱项"对话框，在此对话框中，从"COM 组件"选项卡中勾选"Windows Media Player"组件，确定返回，这时候，在工具箱中就可以看到这个控件了。

WMP.DLL控件本身支持播放控制操作，为了通过程序代码控制WMP.DLL实现播放，我们在程序中禁止该控件的一切操作，所以先在窗体放置一个容器Panel1，向其中放置一个WMP控件AxWmp，在该控件上点击鼠标右键，选择“属性”项，在弹出的属性对话框中，设置模式为“None”，取消“自动启动”，选择“按比例伸展”，并将音量调整到最大。再设置Panel1的Enabled属性为False，这样AxWmp控件就无效了，注意，即使设置AxWmp的Enabled属性为False也无法禁止该控件的使用。

下面看看WMP控件在VB2005中的播放控制方法：

1、播放

通过控件的URL方法设置播放媒体文件名，然后通过控件的Ctlcontrols.play()方法开始播放，代码如下：

Private Sub ListBox1_SelectedIndexChanged(…)…

AxWmp.URL=ListBox1.Items.Item(ListBox1.SelectedIndex)

AxWmp.Ctlcontrols.play()

End Sub

2、暂停

通过控件的Ctlcontrols.pause()方法实现播放暂停，通过控件的Ctlcontrols.stop()方法可停止媒体播放。

3、全屏播放

通过设置控件的fullScreen属性为True实现全屏播放，若播放的是音频文件，则该属性可以启用全屏视频插件效果。

4、进/退控制

在播放中，如果需要调节播放位置，可通过改变控件的Ctlcontrols.currentPosition属性实现，将该属性的值进行增减，就可以实现播放位置的调整，如：

AxWmp.Ctlcontrols.currentPosition=AxWmp.Ctlcontrols.currentPosition+10

上面的代码是播放位置向后快进了10秒时间，VB2005中增减量以秒为单位，要实现媒体播放位置向前移动，只要减去一定量即可。

5、连续播放的实现

在某曲媒体播放完成时，自动进入下一个媒体的播放，这就是所谓的连续播放。要实现连续播放，我们需要通过定时器控件实时判断当前播放位置是否到达媒体的最后位置（通过控件的currentMedia.duration属性获取），在一首曲目播放完成后，自动改变播放列表中的播放位置，从而进入下一曲目的播放。编程方法和核心代码如下：

Private Sub Timer1_Tick(…)…

Dim mPos,mLen As Long

'获取媒体长度

mLen=AxWmp.currentMedia.duration

If mLen=0 Then Exit Sub

mPos=AxWmp.Ctlcontrols.currentPosition

If mPos<mLen Then '播放中

'显示播放时间

Label1.Text=AxWmp.Ctlcontrols.currentPositionString

Else '播放到媒体末尾

If ListBox1.Items.Count=0 Then

AxWmp.Ctlcontrols.play()