用VB 5.0实现多画面播放功能(2)

　　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等等。）。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有