浅显基础教程
电脑操作教程
电脑怎样拨号上网
怎么做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典进步教程
怎样运用代理服务器
怎么做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
怎么制造动画图片
OICQ&ICQ运用办法

高手学习攻略

硬件晋级技巧
CGI教程
ASP教程

PHP教程

注册表运用技巧
路由器的设置
vwin建造攻略
SQL
最近更新:
VB
相关内容

在VB顶用API完成多媒体
秦嘉 (06/04/1999)


    在VB顶用API完成多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中):
1.′播映CD和AVI所需求的声明。
  Declare Function mciSendString Lib ″MMSYSTEM″(ByVal lpstrCommand as String,ByVal lpstrReturnStr as Any,By Val wRetumLen as Integer,ByVal hCallBack as Integer) as Long
  ′播映WAV所需求的声明
  Declare Function sndPlaySound Lib ″MMSYSTEM.DLL″(ByVal lpszSoundName as String,ByVal wF1ags as Integer) as Integer
  ′检测声卡所需求的声明
  Declare Function auxGetNaumDevs Lib ″MMSYSTEM″()as Integer
  ′所用到的全局变量声明
  Global Const SND_SYNC=&H0000   ′播映WAV用到的全局变量
  Global Const SND_ASYNC=&-H0001 ′播映WAV用到的全局变量
  Global Const SND_NODEFAULT=&H0002 ′播映WAV用到的全局变量
  Global Const SND_LOOP=&H0008 ′播映WAV用到的全局变量
  Global Const SND_NOSTOP=&-H0010 ′播映WAV用到的全局变量
  ′接下来是调用这些声明
  Function auxTest()as Boolean
  Dim i As Integer
  i=auxGetNumDevs()
  If i>0 Then
  AuxTest=True ′假如有声卡则回来真
  Exit Function
  Else
  AuxTest=False ′假如未检测到声卡则回来假
  Exit Function
  Else
  AuxTest=False ′假如未检测到声卡则回来假
  Exit Function
  End If
  End Function
2.播映CD的源代码
  Sub PlayCD(b As Integer)
  ′ b为所播的音轨号
  Dim a As Long
  a=mciSendString(″open cdaudio alias cd wait″,0&,0,0) '初始化驱动
  a=mciSendString(″set cd time format tmsf″,0&,0,0)
  a=mciSendString(″play cd from″& Str(b),0&,00) ′播映音轨
  End Sub
3.播映AVI的源代码
  Sub playAVI(AVIFile As String)
  Dim RVal as Long
  AVIFile=″play″+AVIFile+″fullscreen″ ′全屏幕播映AVI文件
  RVal=mciSendString(AVIFile,0&,0,0&)
  End Sub
4.播映WAV的源代码
  Sub playWAV(WAVFile As String)
  Dim Flag as Integer
  Dim a as Integer
  wFlag=SND_ASYNC or SND_NODEFAULT
  a=sndPlaySound(WAVFile,Flag)
  End Sub
  以上程序是我在调用多媒体时所常用的模块,你只需将上面的模块在程序中直接调用即可。

vwin :首页 用VB完成多文件查找与替换功用
用VB 5.0 规划Browser及FTP程序
用Visual Basic 5.0规划E-mail程序
谈谈WIN API在VB中的运用
在VB中运用Word的“艺术字”东西
获取Win95特别目录精确途径
配置文件.ini在VB5中的运用
操控结构VB5程序规划
用VB切换三个特别键
用VB5对Windows 95任务栏提示区编程
用API改善ListView显现作用
VB中Grid控件的打印办法
在VB中完成文件上载
用Microsoft Agent 控件与电脑攀谈
用VB5直接操控Excel 97
在Developer/2000中调用VB
在VB顶用API完成多媒体
 
 
 
 
 
 
 
 
 
教程站
收集整理