VB4.0與Windows 95 API接口的多媒體應(yīng)用程序設(shè)計實例_第1頁
VB4.0與Windows 95 API接口的多媒體應(yīng)用程序設(shè)計實例_第2頁
VB4.0與Windows 95 API接口的多媒體應(yīng)用程序設(shè)計實例_第3頁
VB4.0與Windows 95 API接口的多媒體應(yīng)用程序設(shè)計實例_第4頁
VB4.0與Windows 95 API接口的多媒體應(yīng)用程序設(shè)計實例_第5頁
已閱讀5頁,還剩4頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論