巧用VB的ActiveMovie控件制作视频播放器

编程思路 在Visual Basic 6.0系统中,能够用来播放视频文件的ActiveX控件有:Mmcontrol、MediaPlayer、ActiveMovie等,相比之下各有所长,但用ActiveMovie控件播放扩展名为AVI的视频文件,则显得更加灵活。因为它不仅可以控制视频大小,还可以实现全屏播放。 本人所设计的“视频播放器”主要有以下功能:用“CommonDialog”控件调出“打开”对话框,并找到某个特定的文件;用“ActiveMovie”控件进行播放和控制;用“Slider”控件显示和控制播放进度;从下拉列表框中选择视频尺寸可改变视频大小;窗体以及其中的控件尺寸的大小随视频大小的改变而改变。