如何使用vb6减少音量

Question

如何使用vb6降低音量？

Answer 1

尝试这样的事情：

Private Declare Function waveOutSetVolume  Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer

Private Sub Command1_Click()
  Dim a, i As Long
  Dim tmp As String
  a = waveOutGetVolume(0, i)
  tmp = "&h" & Right(Hex$(i), 4)
  Text1 = CLng(tmp)
End Sub

Private Sub Command2_Click()
  Dim a, i As Long
  Dim tmp, vol As String
  vol = Text1
  tmp = Right((Hex$(vol + 65536)), 4)
  vol = CLng("&H" & tmp & tmp)
  a = waveOutSetVolume(0, vol)
End Sub