dmtapi.bas

此文档为VB公共模块

Attribute VB_Name = "DmtApi"
Option Explicit
'*************************多媒体相关*************************
'*作者：谢建军                                              *
'*创建日期：2002年11月18日  20：47                          *
'************************************************************
'*1.PlayMusic(ByVal C_WavFile As String)                    *
'*2.GetSoundDevNum()                                        *
'************************************************************

'Play Sound Files(*.wav)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
'Get Sound Dev Number
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

'**************
'播放声音和提示
'**************
Public Function PlayWavMusic(ByVal C_WavFile As String, Optional cTB As Boolean)
  If Dir(C_WavFile, vbSystem + vbReadOnly + vbHidden + vbNormal) <> "" Then
    PlaySound C_WavFile, 0, Abs(Not cTB)
  End If
End Function

'**************
'得到声音输出设备号
'**************
Public Function GetSoundDevNum() As Long
  GetSoundDevNum = waveOutGetNumDevs()
End Function