|
|
VB4.0与Windows 95 API接口的多媒体应用程序设计实例
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
广告招租，e-mail:yesize@hotmail.com Visual Basic以其简单、快捷的特点深受广大多媒体开发者的喜爱。用Visual Basicfor Windows 95(以下简称VB4.0)可以迅速地编写出真正的Windows 95应用软件,尤其是在VB4.0中通过调用Windows 95 API函数,一方面可以灵活地利用Windows 95提供的系统资源,另一方面无需调用VB的MCI(多媒体控制接口),使多媒体软件编写更方便。 本文所提供的源程序,具有简单、方便操作和易于移植使用的特点。 该程序可以使用户选择播放*.AVI文件,如稍加改动即可播放其他格式的多媒体文件。本程序经VB4.0编译通过。 调用*.AVI文件源程序如下: 源程序清单: ’窗体files01.frm的特性表 VERSION 4.00 Begin VB.Form 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 VB.CommandButton Command1 Caption=Ok Height=735 Left=5880 TabIndex=4 Top=1800 Width=615 End Begin VB.TextBox text1 Height=375 Left=600 TabIndex=3 Top=360 Width=5415 End Begin VB.FileListBox File1 Height=2760 Left=2760 TabIndex=2 Top=1080 Width=2175 End Begin VB.DirListBox Dir1 Height=2280 Left=600 TabIndex=1 Top=1560 Width=1815 End Begin VB.DriveListBox Drive1 Height=315 Left=720 TabIndex=0 Top=1080 Width=1695 End End ’窗体files01.frm代码 Attribute VB-Name=files01 Attribute VB-Creatable=False Attribute VB-Exposed=False Private Sub Command1-Click() Load file02 flie02.Show End Sub Private Sub Dir1-Change() flie1.Path=Dir1.Path End Sub Private Sub Drive1-Change() Dir1.Path=Drive1.Drive End Sub Private Sub File1-Click() flie1.Path=Dir1.Path End Sub Private Sub File1-DblClick() pth$=Dir1.Path If Right$(pth$,1)=\Then Text1.Text=pth$+File1.FileName Else Text1.Text=pth$+\+File1.FileName End If End Sub ’窗体file02.frm特性表 VERSION 4.00 Begin VB.Form 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 VB.CommandButton Command3 Caption=End Height=735 Left=2400 TabIndex=2 Top=2520 Width=3135 End Begin VB.CommandButton Command2 Caption=Stop Height=975 Left=4920 TabIndex=1 Top=720 Width=1455 End Begin VB.CommandButton 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(close video) Unload file02 Unload file01 Load files01 flies01.Show End Sub Private Sub Command3-Click() i&=mciExecute(close video) End End Sub ’多媒体调用模块 Attribute VB-Name=Module1 Declare Function mciExecute Lib c:\win95\system\winmm.d ll-> (By Val Meicommand As String) As Long Sub aa() If files01.Text1.Text=Then Unload file02 Load files01files01.Show End If On Error Resume Next tf$=open+files01.Text1.Text+type avivideo alias video i&=mciExecute(tf$) i&=mciExecute(play video) End Sub 与VB3.0在Windows 3.1中使用动态程序连接库MMSYSTEM.DLL不同,VB4.0使用Windows95中的动态程序连接库WINMM.DLL。若运行本程序应首先调用files01.frm,然后选取所要调用的AVI文件,最后进行播放。如想播放其他格式的文件,只需将语句: tf$=open+files01.Text1.Text+type avivideo alias video 中的type avivideoalias video以及程序中与别名有关语句作相应的改动即可。
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
加入最爱
热门小游戏分类 
