Private Type MIXERCONTROLDETAILS
cbStruct As Long
dwControlID As Long
cChannels As Long
item As Long
cbDetails As Long
paDetails As Long
End Type
在模块中加入如下代码,要添加CommonDialog空件,两个VScroll空件,分别取名为vsVolume,vsMic。
Option Explicit
Const MMSYSERR_NOERROR = 0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_PURGE = &H40
Const SND_FILENAME = &H20000
Dim MyVolume As clsVolume
'
'Play a wave file.
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Set MyVolume = New clsVolume
MyVolume.meOpenMixer
If MyVolume.prMixerErr = MMSYSERR_NOERROR Then
With vsVolume
.Max = MyVolume.prSpeakerMinVolume
.Min = MyVolume.prSpeakerMaxVolume \ 2
.SmallChange = 1000
.LargeChange = 1000
End With
With vsMic
.Max = MyVolume.prMicMinVolume
.Min = MyVolume.prMicMaxVolume \ 2
.SmallChange = 1000
.LargeChange = 1000
.Enabled = True
End With
End If
End Sub