通俗基础教程
电脑操作教程
电脑怎样拨号上网
如何做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典提高教程
怎样使用代理服务器
如何做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
如何制作动画图片
OICQ&ICQ使用方法

高手学习指南

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

PHP教程

注册表使用技巧
路由器的设置
网站建设指南
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
  以上程序是我在调用多媒体时所常用的模块,你只需将上面的模块在程序中直接调用即可。

用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实现多媒体
 
 
 
 
 
 
 
 
 
教程站
收集整理



月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有