声音的话可以用以下的函数: ' Set the global music/sample/stream volume levels. ' musvol : MOD music global volume level (0-100, -1=leave current) ' samvol : Sample global volume level (0-100, -1=leave current) ' strvol : Stream global volume level (0-100, -1=leave current) Declare Sub BASS_SetGlobalVolumes Lib "bass.dll" (ByVal musvol As Long, ByVal samvol As Long, ByVal strvol As Long)' Retrive the global music/sample/stream volume levels. ' musvol : MOD music global volume level (NULL=don't retrieve it) ' samvol : Sample global volume level (NULL=don't retrieve it) ' strvol : Stream global volume level (NULL=don't retrieve it) Declare Sub BASS_GetGlobalVolumes Lib "bass.dll" (ByRef musvol As Long, ByRef samvol As Long, ByRef strvol As Long)' Set the digital output master volume. ' volume : Desired volume level (0-100) Declare Function BASS_SetVolume Lib "bass.dll" (ByVal volume As Long) As Integer' Get the digital output master volume. ' RETURN : The volume level (0-100, -1=error) Declare Function BASS_GetVolume Lib "bass.dll" () As Long当然也可以用: waveOutGetVolume、waveOutSetVolume这两个API函数,具体的例子搜索一下一大堆。
http://www.vbaspnew.com/ziyuan/y/dmt/m013.ZIP
' Set the global music/sample/stream volume levels.
' musvol : MOD music global volume level (0-100, -1=leave current)
' samvol : Sample global volume level (0-100, -1=leave current)
' strvol : Stream global volume level (0-100, -1=leave current)
Declare Sub BASS_SetGlobalVolumes Lib "bass.dll" (ByVal musvol As Long, ByVal samvol As Long, ByVal strvol As Long)' Retrive the global music/sample/stream volume levels.
' musvol : MOD music global volume level (NULL=don't retrieve it)
' samvol : Sample global volume level (NULL=don't retrieve it)
' strvol : Stream global volume level (NULL=don't retrieve it)
Declare Sub BASS_GetGlobalVolumes Lib "bass.dll" (ByRef musvol As Long, ByRef samvol As Long, ByRef strvol As Long)' Set the digital output master volume.
' volume : Desired volume level (0-100)
Declare Function BASS_SetVolume Lib "bass.dll" (ByVal volume As Long) As Integer' Get the digital output master volume.
' RETURN : The volume level (0-100, -1=error)
Declare Function BASS_GetVolume Lib "bass.dll" () As Long当然也可以用:
waveOutGetVolume、waveOutSetVolume这两个API函数,具体的例子搜索一下一大堆。