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