|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:33:55 |
|
|
在Windows系统中，满屏播放AVI文件同在窗口中播放AVI文件是不同的，在满屏播放的时候不需要屏幕上的颜色进行抖动，只需要将调色板设置为AVI文件所独有的就可以了，这是因为没有其它的窗口在背景中存在的缘故。
使用Windows 应用程序编程接口（API）的mciSendString函数可以实现对AVI文件的播放。
样例程序
下面的样例程序将满屏播放位于C盘根目录下的test.avi文件。你可以将你的Windows 95 CDROM中的某些AVI文件改名并拷贝到C盘根目录下以播放它。
1.在Visual Basic中开始一个新的项目，采用缺省的方法建立Form1。
2.将如下的声明语句添加到Form1的通用声明部分中（注意每个声明语句?需要被书写在一行内）：
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
3.在Form1上添加一个命令按钮控件，采用缺省的方法建立Command1。将它的Caption属性设置为“播放文件”。
4.将如下的代码添加到Command1的单击事件中：
Private Sub Command1_Click()
CmdStr$ = "play c:\test.avi fullscreen "
ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
End Sub
通过按下F5键来执行样例程序。单击播放命令按钮，可以在满屏方式下播放AVI文件。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:55 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]