020301.htm
来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 88 行
HTM
88 行
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
</tr>
<tr>
<td width="100%">
<p align="center"><font size="2">多媒体控件（ActiveMovie和）MediaPlayer控件</font></td>
</tr>
<tr>
<td width="100%"><br>
<font size="2">可直接播放光驱上VCD的DAT格式文件。不需要象别的多媒体控件或MCI函数那样，先必须把后缀名 . DAT改为 . MPG。<br>
MediaPlayer的一些属性：<br>
Autosize属性：当画面超过对象大小时是否扩大以自动匹配画面原大小。<br>
Filename属性：打开的多媒体文件名。<br>
Open方法：打开一个多媒体文件，如 MediaPlayer1.Open "e:\vcd\nr1.lxn"。<br>
AutoStart属性：是否自动播放已Open的文件。<br>
Play方法：开始播放；<br>
Pause方法：暂停播放；<br>
Stop方法：停止播放。<br>
ShowControls属性，是否在运行时显示控件自身的按纽。<br>
PlayCount属性 ：重复播放多少遍，为０重复播放无限次。<br>
AutoRewind属性，设置自动回绕功能（结束时指针回到开头）。<br>
EnableContextMenu属性，运行时是否显示控件自身的弹出式菜单。<br>
CurrentPosition属性：返回或指定播放位置（以秒为单位），<br>
SelectionEnd属性：返回播放文件的长度。<br>
1个VCD中快进的例子：<br>
Private Sub Timer1_Timer()<br>
Static x As Single<br>
If x = 0 Then x = MediaPlayer1.SelectionEnd / 20<br>
MediaPlayer1.CurrentPosition = MediaPlayer1.CurrentPosition + x<br>
If MediaPlayer1.CurrentPosition >= MediaPlayer1.SelectionEnd Then End<br>
End Sub<br>
Rate属性：设定播放速度，缺省为1正常速度（范围在0到2.26之间）。<br>
PlayStateChange事件：当播放状态发生变换时产生，如由播放变成停止，它用两个参数oldState和newState来返回变化前后的两种状态。oldState,newState参数的值如下：0为停止状态；1为暂停状态；2为播放状态。<br>
openstatechange事件：当打开文件状态发生改变时触发此事件，参数与上相同。<br>
PositionChange事件：当播放位置发生改变时触发此事件。有oldPosition(原位置)和<br>
newPosition(新位置)两个参数。<br>
AllowChangeDisplaySize属性：画面大小是否可以改变（为false时画面大小锁定）ClickToplay属性：运行时是否保持手形鼠标指针具有单击时暂停/播放功能。<br>
Volume属性：设置声音大小。取值范围从：(无声) -10000->(最大声) 0。<br>
DisplaySize属性：选择画面大小。有0-7种选项，0为原始大小；1为原始大小的一半，2为随对象尺寸而自动调整。3为全屏显示（此时windowlessVideo属性要为False）；4为缺省，5为十六分之一屏幕，6为四分之一屏幕，7为二分之一屏幕。<br>
在Mediaplayer控件缺省情况下，不会响应鼠标和键盘事件，如果需要编写此类事件，例如按键盘上方向键时能快进和快退，需要在属性窗口中改变控件的以下属性：<br>
是否响应键盘事件：SendKeyboardEvents属性。注：键盘上的特殊功能键不能直接响应键盘事件（如PageDown,PageUP等等，它们被控件生产商占用），需要和Shift,Ctrl或Alt键组合，因此一定要注意ShiftState参数。缺省为任意组合。<br>
是否响应鼠标单击事件：SendMouseClickEvents属性。<br>
是否响应鼠标移动事件：SendMouseMoveEvents属性。<br>
此外，还可控制是否响应PlayStateChange事件--SendPlayStateChangeEvents属性，是否响应OpenStateChange事件--SendOpenStateChangeEvents属性。<br>
要播放一段多媒体文件，最简单的办法是只设置它的FileName属性和Play方法即可。如下：<br>
MediaPlayer1.FileName = "e:\黄梅戏.mpg"<br>
MediaPlayer1.Play 用这两句便可播放了。<br>
也可用另一方法Open打开文件，同时设AutoStart属性为True,如下：<br>
MediaPlayer1.Open "d:\美女.mpg"<br>
MediaPlayer1.AutoStart = True 只用这两句也可播放。<br>
★ ActiveMovie控件的一些属性：ShowControls属性，是否在运行时显示控件自身的按纽。<br>
AutoRewind属性，设置自动回绕功能。EnableContextMenu属性，运行时是否显示控件自身的弹出式菜单。MovieWindowSize属性，选择播放画面的大小。filename属性：打开的多媒体文件名。OpenComplete事件：当ActiveMovie控件完成文件加载后触发（即给其filename属性赋值后触发）。CurrentPosition属性：指定当前播放位置（以秒为单位）run方法：播放多媒体文件，如ActiveMovie1.run。 Pause方法：暂停播放多媒体文件，如ActiveMovie1.Pause. Stop方法：停止播放。StateChange事件：当播放状态发生变换时产生，如由播放变成停止，它用两个参数oldState和newState来返回变化前后的两种状态。oldState,newState参数的值如下：0为停止状态；1为暂停状态；2为播放状态。SelectionEnd属性：返回播放文件的长度。Rate属性：设定播放速度，缺省为1正常速度。</font>
<p align="center">
<br>
< <a href="020203.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020302.htm">下一页</a>
><br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?