I=mciExecute("open "d:\sound.wav" alias sound")
I=mciExecute("play sound")
I=mciExecute("stop sound")
I=mciExecute("close sound")
2、mciSendString()函数，它的功能与上面的函数相同, 但它可以传送相应的信息给应用程序, 使用时需要四个参数, 第一个是MCI命令字符串, 第二个是缓冲区,第三个是缓冲区长度, 第四个在VB中可恒置为0; 使用此函数能播放哪些媒体文件呢，可以打开win.ini文件看看便知道，找到[mci extensions]部分，这里记录了你的计算机所能使用的所有媒体文件名，如：mid=Sequencer，等号左边的表示媒体文件的扩展名，等号右边的表示打开此媒体文件的设备名。
使用该函数还要知道如何使用命令字符串来控制设备.下面列出的命令集是各种设备同时都具有的也是关键的命令集：
1）Open device_name [alias alias_name]：Open命令用来打开device_name设备并取别名为alias_name。device_name为媒体文件名或设备名，alias_name是为device_name取的别名。如：Open C:\windows\kl.wav alias WAV意思是打开:c:\windows\kl.wav这个文件并取别名为WAV，在操作过程中可用这个别名来控制它所打开的设备了。
2）Close alias_name:Close命令用来关闭别名为alias_name的设备，在关闭程序时必须调用该命令否则其它的程序将无法打开该设备。
3）Play alias_name:Play命令用来播放别名为alias_name的媒体文件，成功的打开设备后就可调用该命令来播放媒体文件了。
4）Stop alias_name命令用来停止播放媒体文件。
5）Seek alias_name命令用来设置当前播放的位置.(需事先设定时间格式) 。
6）Set alias_name[audio all off][audio all on][time format ms]命令用来设置设备的各种状态.如:静音,有声音,时间格式为毫秒等。
7）Status alias_name[length][mode][position]命令用来取得设备的状态，如该媒体文件的长度、该媒体文件所处状态、该媒体文件的当前位置等。
下面的代码实现了AVI文件的播放；
Dim i As Long, RS As String, cb As Long, A$, x As Long, y As Long
RS = Space$(128)
A$ = "e:\kt.avi"
'Frame1为播放AVI文件的框架窗口；
i = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Frame1.hWnd & " style child", RS, 128, 0)
i = mciSendString("play movie", RS, 128, 0)
在实际应用中, 还涉及很多具体的编程细节, 比如播放进度的显示、播放进度的改变、视频播放的窗口控制、播放界面的设计等等，这些功能的实现，读者朋友们可以参考MSDN。
小结
由于篇幅的限制，笔者只能对各种播放多媒体文件的方法泛泛地讨论一下，其实每一种方法都很强大，读者朋友们需要在实践中不断摸索，才能灵活运用，发挥出它们的强大功能来。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
