《vb4.0与windows 95 api接口的多媒体应用程序设计的实例》由会员分享,可在线阅读,更多相关《vb4.0与windows 95 api接口的多媒体应用程序设计的实例(5页珍藏版)》请在金锄头文库上搜索。
1、VB4.0VB4.0 与与 WindowsWindows 9595 APIAPI 接口的多媒体接口的多媒体 应用程序设计的实例应用程序设计的实例Visual Basic 以其简单、快捷的特点深受广大多媒体开发者的喜爱,与 Windows 95 API 接口的多媒体应用程序设计实例。用 Visual Basicfor Windows 95(以下简称)可以迅速地编写出真正的 Windows 95 应用软件,尤其是在中通过调用 Windows 95 API 函数,一方面可以灵活地利用Windows 95 提供的系统资源,另一方面无需调用 VB 的MCI(多媒体控制接口),使多媒体软件编写更方便。本文
2、所提供的源程序,具有简单、方便操作和易于移植使用的特点。该程序可以使用户选择播放*.AVI 文件,如稍加改动即可播放其他格式的多媒体文件。本程序经编译通过。调用*.AVI 文件源程序如下:源程序清单:窗体的特性表VERSIONBegin files01Caption=“Files“ClientHeight=4365ClientLeft=1095ClientTop=1515ClientWidth=7230Height=4770Left=1035LinkTopic=“files“ScaleHeight=4365ScaleWidth=7230Top=1170Width=7350Begin Comma
3、nd1Caption=“Ok“Height=735Left=5880TabIndex=4Top=1800Width=615EndBegin text1Height=375Left=600TabIndex=3Top=360Width=5415EndBegin File1Height=2760Left=2760TabIndex=2Top=1080Width=2175EndBegin Dir1Height=2280Left=600TabIndex=1Top=1560Width=1815EndBegin Drive1Height=315Left=720TabIndex=0Top=1080Width=1
4、695EndEnd窗体代码Attribute VB-Name=“files01“Attribute VB-Creatable=FalseAttribute VB-Exposed=FalsePrivate Sub Command1-ClickLoad file02End SubPrivate Sub Dir1-Change=End SubPrivate Sub Drive1-Change=End SubPrivate Sub File1-Click=End SubPrivate Sub File1-DblClickpth$=If Right$(pth$,1)=“Then=pth$Else=pth$ “End IfEnd Sub窗体特性表VERSIONBegin file02Caption=“file02“ClientHeight=4230ClientLeft=1095ClientTop=1515