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

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