1/1VB4.0與Windows95API接口的多媒體應(yīng)用程序設(shè)計實例VisualBasic以其簡單、快捷的特點(diǎn)深受廣大多媒體開發(fā)者的喜愛。用VisualBasicforWindows95可以迅速地編寫出真正的Windows95應(yīng)用軟件,尤其是在中通過調(diào)用Windows95API函數(shù),一方面可以靈活地利用Windows95提供的系統(tǒng)資源,另一方面無需調(diào)用VB的MCI,使多媒體軟件編寫更方便。

本文所提供的源程序,具有簡單、方便操作和易于移植使用的特點(diǎn)。

該程序可以使用戶選擇播放*.AVI文件,如稍加改動即可播放其他格式的多媒體文件。本程序經(jīng)編譯通過。

調(diào)用*.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

’多媒體調(diào)用模塊

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中使用動態(tài)程序連接庫不同,使用Windows95中的動態(tài)程序連接庫。若運(yùn)行本程序應(yīng)首先調(diào)用,然后選取所要調(diào)用的AVI文件,最后進(jìn)行播放。如想播放其他格式的文件,只需將語句:

tf$="open"++"typeavivideoaliasvideo

"中的"typeavivideoalia