как уменьшить громкость с помощью 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