Visual_Basic编程100例..docVIP

　 在VB中播放AVI文件 　AVI文件是语音和影像同步组合在一起的文件格式。在VB5？0中用MMControl多媒体控件设计播放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文件在图形框中播放，如果没有这一行，将自动开启一个窗口播放。 巧用VB编程使XMPLAYER自动播放VCD（缺少） 用VB 5.0实现多画面播放功能 2000-07-15· ·请作者与我们联系··学vb找王国荣 font size=2 　　所谓动态画中画，指的是在大画面视频播放时，小画面在大画面中也播放另外的画面，或者是两个画面都在做某种活动。 　　笔者前段时间用VB 5.0开发了一个VCD播放程序，可以实现以下功能： 　　（1）可以多屏播放，也就是画中画功能，可同时播放几个不同的画面； 　　（2）可以同时播放CD-ROM中的视频音频文件（当然，在硬盘中播放速度会更快些）； 　　（3）支持多种文件格式（如.dat、.wav、.avi、.mov、.mmm、.mid、.rmi、.mpeg、.mpg、.mpa、.mpv等）； 　　（4）自带画面美观且功能齐全的CD播放程序； 　　（5）增强了鼠标的右键功能，用它可以控制各画面的大小（1/16、1/4、1/2、1、2倍和全屏）、播放、暂停等； 　　（6）控制声音、图像、时间/帧显示转换、自动重播等; 　　（7）控制条随意拖动播放，再加上定时播放、自定义播放时间等播放方式，可使您更加惬意地控制VCD； 　　（8）屏幕可随意拖动，画面可任意放缩。 　　VCD中的影像文件都在光盘的MPEGAV目录下，文件名只有两种：AVSEQ01.DAT或MUSIC01.DAT（如果是音乐版的卡拉OK，则还有MUSIC02.DAT等。）。 　　可视动画控件ActiveMovie是Microsoft公司的控件，从不成熟的1.0、1.2到2.0，每次都有了很大的改进，如1.0版本中有几个属性是只读的（例如，DisplayMode 只能为 amvTime，而不能改为amvFrames）。该控件支持音频文件（.wav、.mid、.rmi）、影片文件（.avi、.mov、.mmm、.mpeg、.mpg、.mpa、.mpv）和VCD文件（.dat）等。播放时若用鼠标右键单击画面，则可以直接对画面的播放、暂停、停止等进行控制，读者还可以自行在“属性”栏中对影片播放进行控制设置，诸如设置“播放次数”、“音量”、“影片大小（1/16、1/4、1/2、1、2倍和全屏）”、“面板”、“颜色”、“过滤器”等。这种技术的实现实际上是VB调用ActiveMovie控制器来完成的，而ActiveMovie控制器内嵌了Microsoft MPEG 音频解码器和Microsoft MPEG 视频解码器。 　　首先，我们建立一个“项目”，依次选择“项目|部件”，然后添加Microsoft ActiveMovie Control（Amovie.OCX）、Microsoft Commondialog Control（COMDLG32.OCX），控件即出现在“工具箱”中。将上述两个控件加进窗体，再单击“菜单”工具栏，建立一个主菜单项：“文件”（FILE）及其子菜单项：“打开A画面”（OPENA）。 　　在OPENA中? 如下代码： 　　Private Sub OPENA_Click() 　　 On Error Resume Next 　　 CommonDialog1.Filter = Video File (*.dat)|*.dat|Wave File (*.wav)|*.wav|AVI File (*.avi)|*.avi|Movie File (*.mov)|*.mov|Media File (*.mmm)|*.mmm|Mid File (*.mid;*.rmi)|*.mid;*.rmi|MPEG File (*.mpeg)|*.mpeg