在VB中播放AVI文件
1.新建一个工程。
2.在Form1上建立一个MMControl控件,并建立一个图片框。
3.设定MMControl对象的按钮属性。
4.撰写程序如下:
Private Sub Form_Load()
MMControl1.DeviceType=″avivideo″
MMControl1.filename=″c:\vb\avi\a.avi″
MMControl1.hWndDisplay=picture1.hWnd
MMControl1.Command=″Open″
End Sub
说明:
1.DeviceType=″avivideo″,是设定MCI播放媒体的种类。
2.HwndDisplay=picture1.hWnd,是把AVI文件在图形框中播放,如果没有这一行,将自动开启一个窗口播放。