|
所谓动态画中画，指的是在大画面视频播放时，小画面在大画面中也播放另外的画面，或者是两个画面都在做某种活动。
笔者前段时间用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|All File (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
ActiveMovie1.filename = CommonDialog1.filename
ActiveMovie1.Height = Form1.Height
ActiveMovie1.Width = Form1.Width
ActiveMovie1.Run
End Sub
这是对单个的ActiveMovie1进行控制。还可以在“文件”（FILE）中依次加入子菜单：“打开B画面”（OPENB）、“打开C画面”（OPENC），并相应地加入ActiveMovie2、ActiveMovie3等多个画面，并把上述程序代码略为改动后加入。这样，当您按下F5键即运行程序，打开您想要播放的VCD文件就可以欣赏VCD了。在屏幕上单击右键，还可以控制画面呢！
现在是否就满足了呢？不行！我们再增加一个用鼠标任意拖动屏幕的功能：
Private Sub ActiveMovie1_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
ActiveMovie1.Drag 1
X1 = X
Y1 = Y
End Sub
我们还增加了一个定义任意播放时间的主菜单项：“时间”（TIME）及其子菜单项：“画面A时间”（SETTIMEA）：
Private Sub SETTIMEA_Click()
On Error Resume Next
Dim R As Integer
R = InputBox("请输入时间（分钟：0-60）")
R = R * 60
ActiveMovie1.CurrentPosition = Int(R)
ActiveMovie1.Run
End Sub
CurrentPosition是控制VCD播放的时间：（1）ActiveMovie1.CurrentPosition =
0（从头开始）；（2）ActiveMovie1.CurrentPosition =
900（15分钟后）；（3）ActiveMovie1.CurrentPosition =
1800（30分钟后）。依此类推，但是不能超过60分钟。
我们再增加一个主菜单项：“屏幕”（SCREEN）及其子菜单项：“全屏A”（FULLSCREENA），用来控制屏幕大小：
Private Sub FULLSCREENA_Click()
On Error Resume Next
ActiveMovie1.FullScreenMode = True
ActiveMovie1.Run
ActiveMovie1.MovieWindowSize = amvMaximized
End Sub
FullScreenMode用来控制画面是否为全屏，当它为TRUE时则以全屏方式播放VCD，为FALSE时则取消全屏方式。
MovieWindowSize也是控制屏幕的大小：（1）全屏大小：ActiveMovie1.MovieWindowSize =
amvMaximized；（2）正常大小：ActiveMovie1.MovieWindowSize =
amvOriginalSize；（3）倍屏：ActiveMovie1.MovieWindowSize =
amvDoubleOriginalSize；（4）1/2屏：
ActiveMovie1.MovieWindowSize =
amvOneHalfScreen；（5）1/4屏：ActiveMovie1.MovieWindowSize =
amvOneFourthScreen；（6）1/16屏：ActiveMovie1.MovieWindowSize =
amvOneSixteenthScreen。
我们可以随意控制屏幕，下面让我们再把声音控制一下吧！
Microsoft
ActiveMovie控件2.0版的确比1.2、1.0改善不少！1.2、1.0版在我的创新AWE64顶级声卡中的表现很不尽人意，但2.0版却把我的“科达”音箱功能在创新AWE64的驱动下发挥得淋漓尽致！想必Microsoft
公司对ActiveMovie控制器中内嵌的MPEG 音频解码器下了苦功！
我们在菜单中增加主菜单项：“声音”
及其子菜单项：“增加”（SOUNDADD？？快捷键设置为F4）和“减少”（SOUNDDUCE？？快捷键设置为F5），分别用来控制声音的增强：
Private Sub SOUNDADD_Click()
ActiveMovie1.Volume = ActiveMovie1.Volume + 100
End Sub
Private Sub SOUNDDUCE_Click()
ActiveMovie1.Volume = ActiveMovie1.Volume - 100
End Sub
当然，我们还想增加“静音”（SOUNDNO）功能。经我反复试验，当ActiveMovie1.Volume = -4000时效果最好！
我们还需要让VCD播完后乖乖地“自动重播”（AUTOREPLAY）：
Private Sub AUTOREPLAY_Click()
ActiveMovie1.AutoRewind = True
AutoRewind设置播放时是否“自动重播”
End Sub
为了让VCD播放时交替“显示帧”（SHOWFRAME）或“显示时间”（SHOWTIME），可在DisplayMode中进行设置：
Private Sub SHOWFRAME_Click()
On Error Resume Next
ActiveMovie1.DisplayMode = amvFrames
End Sub
Private Sub SHOWTIME_Click()
On Error Resume Next
ActiveMovie1.DisplayMode = amvTime
End Sub
经过上面的设计，功能也凑合了。行了吗？别急！我们还想将界面搞得漂亮一点。例如，增加工具栏，加强鼠标右键的功能和画面中的双击功能等。
如果我们想在VCD画面中单击右键弹出菜单，则可添加如下代码：
Private Sub ActiveMovie1_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 2 Then PopupMenu MENUOK
End Sub
其中，MENUOK是我们在菜单中额外增加的，子菜单内容可自定义（但要记住在设计时将名为“MENUOK”的菜单设置成不可见）。例如：（1）控制VCD“暂停”：ActiveMovie1.PAUSE；（2）控制VCD“运行”：ActiveMovie1.Run；（3）控制VCD“停止”：ActiveMovie1.STOP；（4）控制VCD“自动播放”：ActiveMovie1.AutoStart
= True。
ActiveMovie还有非常有用的其它属性：
（1）AllowChangeDisplayMode ：运行时是否允许改变显示的模式；
（2）AllowHideControls：运行时显示/隐藏控制面板；
（3）AllowHideDisplay ：运行时显示/隐藏显示面板；
（4）Appearance：设置面板的外观（平面或3D）；
（5）AutoStart：设置打开VCD文件后是否“自动播放”
（6）EnableContextMenu ：当在画面中右键单击时是否允许出现控制菜单（设成False时可以显示您自行设计的控制菜单；
（7）FileName：设置ActiveMovie播放的文件名；
（8）PlayCount：设置播放次数；
（9）Rate ：设置播放时的速率，为1时为正常播放，大于1时为快进（过大时可能无声、无影）；
（10）SelectionStart:设置播放的开始位置（缺省值为0）；
（11）SelectionEnd: 设置播放的结束位置（缺省值为-1）；
（12）ShowControls ：显示/隐藏控制面板；
（13）Showdisplay ：显示/隐藏显示面板；
（14）ShowpositionControls：在控制面板中显示/隐藏位置按钮；
（15）ShowSelectionControls ：在控制面板中显示/隐藏选择按钮；
（16）ShowTracker ：在控制面板中显示/隐藏音轨栏；
（17）ToolTipText ：当光标停留在画面时出现的提示文字。
我们除了可用Microsoft的ActiveMovie控件进行开发外，还可以用MCIWnd控件来进行开发（可惜二者不能同时使用。换言之，单纯用MCIWnd无法制作画中画，但MCIWnd可以和ActiveMovie“和平共处”，这样我们就可以用MCIWnd制作一个“特别版VCD”。值得一提的是，MCIWnd声音解码非常出色，不愧“师出名门”--XING）。这种技术的实现实际上是VB借助于XING的MCI驱动程序来实现的，如果没有XING的DLL程序运行时就会出错。但这种技术实现得非常巧妙，比用VB中的OLE技术来得更加隐蔽，可以设计成自己的VCD播放程序。
如果动画控件MCIWnd不在工具栏上，可按如下方法进行添加：
（1）从“项目”中选择“部件”，再选中控件MCIWndX Control（MCIWndx.ocx） ，MCIWnd控件即出现在“工具箱”中。
MCIWnd控件的属性有：
1）AutosizeMovie ：控制画面是否自动适应窗口，为False可能会遮掩掉部分画面，结合Auotsizewindows使用；
2）Auotsizewindows：控制画面是否自动适应原来影片的大小，为False时可能会挤压或拉长画面，使画面变形，结合AutosizeMovie使用；
3）DefaultContextMenuenabled：当在画面中右键单击时是否允许出现控制菜单（缺省值为TRUE，这样您将不能触发鼠标右键的MouseDown、MouseUp和DblClick事件；设成False时可以显示您自行设计的控制菜单）；
4）FileName ：指定设备所要播放的文件；
5）Menu ：显示/隐藏播放条上的控制菜单并设置在控制面板上单击右键时是否弹出控制菜单；
6）Playbar ：显示/隐藏播放条；
7）PositionString ：返回打开的MCI设备的当前位置；
8）Record ：设置控制菜单的“保存”命令是否可用；
9）Repeat ：设置播放时是否“自动重播”
10）Speed：设置播放时的速率，为1000时表示正常播放，大于1000时为快进（过大时可能无声、无影），小于1000时为慢进；
11）ToolTipText：返回/设置当鼠标停留在画面时的文本；
12）TimerFreq ：指定时间周期；
13）Volume：设置MCI设置的声音大小，1000为正常值；
14）Zoom：设置画面的缩放率。
在新建窗体上添加一个MCIWnd控件，并在控件上单击鼠标右键，选取“属性”（或直接在属性栏中进行设置），在Filename中设置您需要播放的VCD文件，按F5键则开始运行。然后单击“播放”键，就会自动播放VCD。右键单击图像，可以直接对图像的播放、暂停等进行控制，并且可以在播放时直接设置屏幕大小（
1/2屏、正常屏幕、倍屏）和控制音量，并对画面进行打开、保存、关闭、复制、配置（显示XING的有关信息）等操作。但是，要想更好地控制画面，我们还得编程，程序参见ActiveMovie控件的编程。
令人鼓舞的是，该控件几乎支持所有上述的多媒体文件。在“命令”行中可直接输入丰富的MCI指令（如基本的play、close、stop、open、info、capability、pause、put、record、save、resume、seek、set等等。）。
怎么样？您的VCD播放器可以横空出世了吧！？如果您觉得意犹未尽的话，则还可以用Windows API
函数进行开发，只不过API所能控制的就简单得多了（Windows API 函数也是借用MCI驱动程序来实现的。）。
Windows 中mciExecute 函数支持wav、rmi、mid、avi（可以有声音）等文件。可在声明中加入如下代码：
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As
String) As Long
Private Sub Form_Load()
Dim x
x = mciExecute("Play e:\mpegav\music01.dat")
如果您的VCD中MPEGAC目录下的文件名不是MUSIC01.DAT，则改为AVSEQ01.DAT（下同）；
End Sub
按F5运行程序即自动播放VCD。
Windows 中mciSendString函数同样可以播放上述类型的文件。在声明中加入如下代码：
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
Dim x
X = mciSendString("Play e:\mpegav\music01.dat", 0&, 0, 0)
End Sub
按F5运行程序也自动播放VCD。
再给出一个小程序，运行时它能自动播放您的CD音乐,然后将控制权还给VB应用程序，但不影响计算机的其它操作（当然您的CD-ROM中要有CD才行！）。在声明中加入如下代码：
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
s$ = "play cdaudio "
x& = mciSendString(s$, 0&, 0, 0)
End Sub
上述程序在中文Windows 95 OSR2、VB 5.0中文专业版下调试通过。
多媒体是明天计算机的核心。极好的声音效果和音乐、完全的运动视频和动画给我们所需的信息带来了生机和活力，很难相信没有图像、声音和动画的程序是完美的。通过上面的讨论，我们会由衷地叹服：在Visual
Basic中控制各种多媒体设备是多么地轻而易举，简直是信手拈来！
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
