版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1/1VB4.0与Windows95API接口的多媒体应用程序设计实例VisualBasic以其简单、快捷的特点深受广大多媒体开发者的喜爱。用VisualBasicforWindows95可以迅速地编写出真正的Windows95应用软件,尤其是在中通过调用Windows95API函数,一方面可以灵活地利用Windows95提供的系统资源,另一方面无需调用VB的MCI,使多媒体软件编写更方便。
本文所提供的源程序,具有简单、方便操作和易于移植使用的特点。
该程序可以使用户选择播放*.AVI文件,如稍加改动即可播放其他格式的多媒体文件。本程序经编译通过。
调用*.AVI文件源程序如下:
源程序清单:
’窗体的特性表
VERSION
Beginfiles01
Caption="Files"
ClientHeight=4365
ClientLeft=1095
ClientTop=1515
ClientWidth=7230
Height=4770
Left=1035
LinkTopic="files"
ScaleHeight=4365
ScaleWidth=7230
Top=1170
Width=7350
BeginCommand1
Caption="Ok"
Height=735
Left=5880
TabIndex=4
Top=1800
Width=615
End
Begintext1
Height=375
Left=600
TabIndex=3
Top=360
Width=5415
End
BeginFile1
Height=2760
Left=2760
TabIndex=2
Top=1080
Width=2175
End
BeginDir1
Height=2280
Left=600
TabIndex=1
Top=1560
Width=1815
End
BeginDrive1
Height=315
Left=720
TabIndex=0
Top=1080
Width=1695
End
End
’窗体代码
AttributeVB-Name="files01"
AttributeVB-Creatable=False
AttributeVB-Exposed=False
PrivateSubCommand1-Click
Loadfile02
EndSub
PrivateSubDir1-Change
=
EndSub
PrivateSubDrive1-Change
=
EndSub
PrivateSubFile1-Click
=
EndSub
PrivateSubFile1-DblClick
pth$=
IfRight$="\"Then
=pth$+
Else
=pth$+"\"+
EndIf
EndSub
’窗体特性表
VERSION
Beginfile02
Caption="file02"
ClientHeight=4230
ClientLeft=1095
ClientTop=1515
ClientWidth=6720
Height=4635
Left=1035
LinkTopic="Form1"
ScaleHeight=4230
ScaleWidth=6720
Top=1170
Width=6840
BeginCommand3
Caption="End"
Height=735
Left=2400
TabIndex=2
Top=2520
Width=3135
End
BeginCommand2
Caption="Stop"
Height=975
Left=4920
TabIndex=1
Top=720
Width=1455
End
BeginCommand1
Caption="Play"
Height=975
Left=360
TabIndex=0
Top=600
Width=3135
End
End
’窗体file02代码
AttributeVB-Name="file02"
AttributeVB-Creatable=False
AttributeVB-Exposed=False
PrivateSubCommand1-Click
aa
EndSub
PrivateSubCommand2-Click
i&=mciExecute
Unloadfile02
Unloadfile01
Loadfiles01
EndSub
PrivateSubCommand3-Click
i&=mciExecute
End
EndSub
’多媒体调用模块
AttributeVB-Name="Module1"
DeclareFunctionmciExecuteLib"c:\win95\system\
ll"->
AsLong
Subaa
If=""Then
Unloadfile02
Load
EndIf
OnErrorResumeNext
tf$="open"++"typeavivideoaliasvideo
"
i&=mciExecute
i&=mciExecute
EndSub
与在Windows中使用动态程序连接库不同,使用Windows95中的动态程序连接库。若运行本程序应首先调用,然后选取所要调用的AVI文件,最后进行播放。如想播放其他格式的文件,只需将语句:
tf$="open"++"typeavivideoaliasvideo
"中的"typeavivideoalia
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 高校创新创业教育创业资源共享课题申报书
- 摄影师夜景拍摄题库及分析
- 网络工程题库及详解
- 教育管理理论题库及答案
- 初中化学九年级下册《常见的盐》第一课时教学设计
- 2026年老年人足浴保健与中药配方讲稿
- 2026年城市更新中历史文化街区的保护与活化利用
- 2026年农村社区糖尿病饮食管理知识讲座
- 初中数学七年级下册《不等式的基本性质(一)》教学设计
- 初中信息技术八年级下册:Python海龟绘图之线型与色彩的图形创意实践教案
- 电力行业智能巡检体系建设实施方案
- 保密管理方案和措施
- 青浦区2024-2025学年六年级下学期期末考试数学试卷及答案(上海新教材沪教版)
- 华辰芯光半导体有限公司光通讯和激光雷达激光芯片FAB量产线建设项目环评资料环境影响
- 医学翻眼睑操作规范教学
- 《纳米碳酸钙在橡胶中的应用机理》课件
- 车间材料损耗管理制度
- 宿舍改造可行性研究报告
- 实验动物咽拭子采集流程规范
- 2024年-2025年国网学堂考试题库及答案
- RL-、RC串联电路课件
评论
0/150
提交评论