->'thankstoRickRatayczakofFutureWorksMedia(rickr@execpc.com)
'savefileandrenamethemto[name].BAS
AttributeVB_Name="MIXER"
'****************************************************************************
'*ThisconstantholdsthevalueoftheHighestCustomvolumesetting.The*
'*lowestvaluewillalwaysbezero.*
'****************************************************************************
PublicConstHIGHEST_VOLUME_SETTING=12
'Puttheseintoamodule
'deviceIDforauxdevicemapper
PublicConstAUX_MAPPER=-1&
PublicConstMAXPNAMELEN=32
TypeAUXCAPS
wMidAsInteger
wPidAsInteger
vDriverVersionAsLong
szPnameAsString*MAXPNAMELEN
wTechnologyAsInteger
dwSupportAsLong
EndType
'flagsforwTechnologyfieldinAUXCAPSstructure
PublicConstAUXCAPS_CDAUDIO=1'audiofrominternalCD-ROMdrive
PublicConstAUXCAPS_AUXIN=2'audiofromauxiliaryinputjacks
'flagsfordwSupportfieldinAUXCAPSstructure
PublicConstAUXCAPS_VOLUME=&H1'supportsvolumecontrol
PublicConstAUXCAPS_LRVOLUME=&H2'separateleft-rightvolumecontrol
DeclareFunctionauxGetNumDevsLib"winmm.dll"()AsLong
DeclareFunctionauxGetDevCapsLib"winmm.dll"Alias"auxGetDevCapsA"(ByValuDeviceIDAsLong,lpCapsAsAUXCAPS,ByValuSizeAsLong)AsLong
DeclareFunctionauxSetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByValdwVolumeAsLong)AsLong
DeclareFunctionauxGetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByReflpdwVolumeAsLong)AsLong
DeclareFunctionauxOutMessageLib"winmm.dll"(ByValuDeviceIDAsLong,ByValmsgAsLong,ByValdw1AsLong,ByValdw2AsLong)AsLong
'****************************************************************************
'*PossibleReturnvaluesfromauxGetVolume,auxSetVolume*
'****************************************************************************
PublicConstMMSYSERR_NOERROR=0
PublicConstMMSYSERR_BASE=0
PublicConstMMSYSERR_BADDEVICEID=(MMSYSERR_BASE 2)
'****************************************************************************
'*UsetheCopyMemoryfunctionfromtheWindowsAPI*
'****************************************************************************
PublicDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(hpvDestAsAny,hpvSourceAsAny,ByValcbCopyAsLong)
'****************************************************************************
'*UsethisstructuretobreaktheLongintotwoIntegers*
'****************************************************************************
PublicTypeVolumeSetting
LeftVolAsInteger
RightVolAsInteger
EndType
SublCrossFader()
'Vol1=100-Slider1.Value'Left
'Vol2=100-Slider5.Value'Right
'E=CrossFader.Value
'F=100-E
'IfCheck4.Value=1Then'HalfFaderCheck
'LVol=(F*Val(Vol1)/100)*2
'RVol=(E*Val(Vol2)/100)*2
'IfLVol>(50*Val(Vol1)/100)*2Then
'LVol=(50*Val(Vol1)/100)*2
'EndIf
'IfRVol>(50*Val(Vol2)/100)*2Then
'RVol=(50*Val(Vol2)/100)*2
'EndIf
'Else
'LVol=(F*Val(Vol1)/100)
'RVol=(E*Val(Vol2)/100)
'EndIf
'Label1.Caption="Fader:" LTrim$(Str$(LVol)) "x" LTrim$(Str$(RVol))
'
EndSub
PublicFunctionlSetVolume(ByReflLeftVolAsLong,ByReflRightVolAsLong,lDeviceIDAsLong)AsLong
'****************************************************************************
'*ThisfunctionsetsthecurrentWindowsvolumesettingstothespecified*
'*deviceusingtwoCustomnumbersfrom0toHIGHEST_VOLUME_SETTINGforthe*
'*rightandleftvolumesettings.*
'**
'*ThereturnvalueofthisfunctionistheReturnvalueoftheauxGetVolume*
'*WindowsAPIcall.*
'****************************************************************************
DimbReturnValueAsBoolean'ReturnValuefromFunction
DimVolumeAsVolumeSetting'Typestructureusedtoconvertalongto/from
'twoIntegers.
DimlAPIReturnValAsLong'ReturnvaluefromAPICall
DimlBothVolumesAsLong'TheAPIpassedvalueoftheCombinedVolumes
'****************************************************************************
'*CalculatetheIntegers*
'****************************************************************************
Volume.LeftVol=nSigned(lLeftVol*65535/HIGHEST_VOLUME_SETTING)
Volume.RightVol=nSigned(lRightVol*65535/HIGHEST_VOLUME_SETTING)
'****************************************************************************
'*CombinetheIntegersintoaLongtobePassedtotheAPI*
'****************************************************************************
lDataLen=Len(Volume)
CopyMemorylBothVolumes,Volume.LeftVol,lDataLen
'****************************************************************************
'*SettheValuetotheAPI*
'****************************************************************************
lAPIReturnVal=auxSetVolume(lDeviceID,lBothVolumes)
lSetVolume=lAPIReturnVal
EndFunction
PublicFunctionlGetVolume(ByReflLeftVolAsLong,ByReflRightVolAsLong,lDeviceIDAsLong)AsLong
'****************************************************************************
'*ThisfunctionreadsthecurrentWindowsvolumesettingsfromthe*
'*specifieddevice,andreturnstwonumbersfrom0to*
'*HIGHEST_VOLUME_SETTINGfortherightandleftvolumesettings.*
'**
'*ThereturnvalueofthisfunctionistheReturnvalueoftheauxGetVolume*
'*WindowsAPIcall.*
'****************************************************************************
DimbReturnValueAsBoolean'ReturnValuefromFunction
DimVolumeAsVolumeSetting'Typestructureusedtoconvertalongto/from
'twoIntegers.
DimlAPIReturnValAsLong'ReturnvaluefromAPICall
DimlBothVolumesAsLong'TheAPIReturnoftheCombinedVolumes
'****************************************************************************
'*GettheValuefromtheAPI*
'****************************************************************************
lAPIReturnVal=auxGetVolume(lDeviceID,lBothVolumes)
'****************************************************************************
'*SplittheLongvaluereturnedfromtheAPIintotoIntegers*
'****************************************************************************
lDataLen=Len(Volume)
CopyMemoryVolume.LeftVol,lBothVolumes,lDataLen
'****************************************************************************
'*CalculatetheReturnValues.*
'****************************************************************************
lLeftVol=HIGHEST_VOLUME_SETTING*lUnsigned(Volume.LeftVol)/65535
lRightVol=HIGHEST_VOLUME_SETTING*lUnsigned(Volume.RightVol)/65535
lGetVolume=lAPIReturnVal
EndFunction
PublicFunctionnSigned(ByVallUnsignedIntAsLong)AsInteger
DimnReturnValAsInteger'ReturnvaluefromFunction
IflUnsignedInt>65535OrlUnsignedInt<0Then
MsgBox"ErrorinconversionfromUnsignedtonSignedInteger"
nSignedInt=0
ExitFunction
EndIf
IflUnsignedInt>32767Then
nReturnVal=lUnsignedInt-65536
Else
nReturnVal=lUnsignedInt
EndIf
nSigned=nReturnVal
EndFunction
PublicFunctionlUnsigned(ByValnSignedIntAsInteger)AsLong
DimlReturnValAsLong'ReturnvaluefromFunction
IfnSignedInt<0Then
lReturnVal=nSignedInt 65536
Else
lReturnVal=nSignedInt
EndIf
IflReturnVal>65535OrlReturnVal<0Then
MsgBox"ErrorinconversionfromnSignedtoUnsignedInteger"
lReturnVal=0
EndIf
lUnsigned=lReturnVal
EndFunction-> ->
|
您的位置：三湘时空 -> IT知识库 -> 文章分类 -> VB
-> 如何控制系统音量 
本栏目热门文章
