VB4.0与Windows 95 API接口的多媒体应用程序设计实例.docxVIP

VB4.0与Windows 95 API接口的多媒体应用程序设计实例 Visual Basic以其简单、快捷的特点深受广大多媒体开发者的喜爱。用Visual Basicfor Windows 95可以迅速地编写出真正的Windows 95应用软件,尤其是在中通过调用Windows 95 API函数,一方面可以灵活地利用Windows 95提供的系统资源,另一方面无需调用VB的MCI,使多媒体软件编写更方便。 本文所提供的源程序,具有简单、方便操作和易于移植使用的特点。 该程序可以使用户选择播放*.AVI文件,如稍加改动即可播放其他格式的多媒体文件。本程序经编译通过。 调用*.AVI文件源程序如下: 源程序清单: ’窗体的特性表 VERSION Begin files01 Caption=Files ClientHeight=4365 ClientLeft=1095 ClientTop=1515 ClientWidth=7230 Height=4770 Left=1035 LinkTopic=files ScaleHeight=4365 ScaleWidth=7230 Top=1170 Width=7350 Begin Command1 Caption=Ok Height=735 Left=5880 TabIndex=4 Top=1800 Width=615 End Begin text1 Height=375 Left=600 TabIndex=3 Top=360 Width=5415 End Begin File1 Height=2760 Left=2760 TabIndex=2 Top=1080 Width=2175 End Begin Dir1 Height=2280 Left=600 TabIndex=1 Top=1560 Width=1815 End Begin Drive1 Height=315 Left=720 TabIndex=0 Top=1080 Width=1695 End End ’窗体代码 Attribute VB-Name=files01 Attribute VB-Creatable=False Attribute VB-Exposed=False Private Sub Command1-Click Load file02 End Sub Private Sub Dir1-Change = End Sub Private Sub Drive1-Change = End Sub Private Sub File1-Click = End Sub Private Sub File1-DblClick pth$= If Right$=\Then =pth$+ Else =pth$+\+ End If End Sub ’窗体特性表 VERSION Begin file02 Caption=file02 ClientHeight=4230 ClientLeft=1095 ClientTop=1515 ClientWidth=6720 Height=4635 Left=1035 LinkTopic=Form1 ScaleHeight=4230 ScaleWidth=6720 Top=1170 Width=6840 Begin Command3 Caption=End Height=735 Left=2400 TabIndex=2 Top=2520 Width=3135 End Begin Command2 Caption=Stop Height=975 Left=4920 TabIndex=1 Top=720 Width=1455 End Begin Command1 Caption=Play Height=975 Left=360 TabIndex=0 Top=600 Width=3135 End End ’窗体file02代码 Attribute VB-Name=file02 Attribute VB-Creatable=False Attribute VB-Exposed=False Private Sub Command1-Click aa End Sub Private Sub Command2-Click i=mciExecute Unload file02 Unload file01 Load files01 End Sub Private Sub Command3-Click i=mciExecute End End Sub ’多媒体调用模块 Attribute VB-Name=Module1 Declar