不要使用MMControl文件,因为现在的AVI解码的很多,MMControl根本无法使用。最好的办法就是使用WMPlayer控件。
首先在部件中添加一个“Windows Media Player”控件。并把它拖到窗体中,设置其属性。添加代码
Dim oPlayerMedia As WMPLibCtl.IWMPMedia
Set oPlayerMedia = WMP.newMedia(sFileName)
WMP.currentMedia = oPlayerMedia
即可播放。
注:WMP是Windows Media Player控件的名字
赞成一楼的,要不使用API也可以的,只是API相对于WMP有点复杂,所以新手使用wmp就OK了
这个问题,拽P解答不了了