MCI多媒体空间(二)

前端之家收集整理的这篇文章主要介绍了MCI多媒体空间(二)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

12.3.1 MCI多媒体控件(2)

(3)MCI命令

MCI使用一套高级的、与设备无关的命令,称为媒体控制接口命令,可以控制多种媒体设备,表12-3给出MCI控件中使用的MCI命令。

表12-3 MCI命令

Open

打开MCI设备

Close

关闭MCI设备

Play

播放文件

Pause

暂停

Stop

停止MCI设备

Back

向后步进

Step

向前步进

Prev

跳到当前曲目的起始位置

Next

跳到下一首曲目的起始位置

Seek

更改媒体位置

Record

向前或向后查找曲目

Eject

弹出CD

Save

保存打开的文件

MCI控件命令的使用方法是通过控件的Command属性来执行,例如:

 
 
  1. @H_404_343@@H_404_343@AxMMContyrol1.Command="Open"@H_404_343@

上述语句表示打开指定的多媒体设备。对于命令及属性的具体使用方法,将通过具体的实例来说明。

2.用MCI控件实现多媒体播放器

(1)创建一个项目类型为VB.NET,模板为Windows应用程序的项目Ch12_1。

(2)界面设计。

从工具箱中拖曳出一个MCI控件、一个PictureBox控件、两个Button控件以及一个OpenFileDialog控件。设置窗体和控件的属性,如表12-4所示,设计好的窗体如图12-3所示。

表12-4 窗体属性设置

Form

Name

FrmMPlayer

Text

我的播放器

AxMMControl

Name

mciPlayer

PictureBox

Name

picDisplay

Button

Name

btnOpenFile

Text

打开文件

Button

Name

btnExit

Text

退出

图12-3 设计的播放器界面

(3)代码设计,为播放器添加播放AVI文件功能

在"打开文件"按钮的Click事件中添加下面的代码

 
 
  1. @H_404_343@Private@H_404_343@Sub@H_404_343@btnOpenFile_Click(ByVal@H_404_343@senderAs@H_404_343@System.Object@H_404_343@,_
  2. @H_404_343@ByVal@H_404_343@eAs@H_404_343@System.EventArgs)Handles@H_404_343@btnOpenFile.Click
  3. @H_404_343@Dim@H_404_343@dlgOpenAs@H_404_343@New@H_404_343@OpenFileDialog
  4. @H_404_343@dlgOpen.Filter="avi格式|*.avi"@H_404_343@
  5. @H_404_343@dlgOpen.Title="打开媒体文件"@H_404_343@
  6. @H_404_343@If@H_404_343@dlgOpen.ShowDialog=Windows.Forms.DialogResult.OKThen@H_404_343@
  7. @H_404_343@mciPlayer.Command="close"@H_404_343@
  8. @H_404_343@Select@H_404_343@Case@H_404_343@dlgOpen.FilterIndex
  9. @H_404_343@Case@H_404_343@1
  10. @H_404_343@Me@H_404_343@.mciPlayer.DeviceType="avivideo"@H_404_343@
  11. @H_404_343@Case@H_404_343@Else@H_404_343@
  12. @H_404_343@MsgBox("无效的文件格式"@H_404_343@)
  13. @H_404_343@End@H_404_343@Select@H_404_343@
  14. @H_404_343@Me@H_404_343@.mciPlayer.FileName=dlgOpen.FileName
  15. @H_404_343@Me@H_404_343@.mciPlayer.Command="open"@H_404_343@
  16. @H_404_343@Me@H_404_343@.mciPlayer.Command="play"@H_404_343@
  17. @H_404_343@End@H_404_343@If@H_404_343@
  18. @H_404_343@End@H_404_343@Sub

猜你在找的VB相关文章