1
comment diminuer mon volume en utilisant vb6?comment diminuer mon volume en utilisant vb6
comment diminuer mon volume en utilisant vb6?comment diminuer mon volume en utilisant vb6
Essayez quelque chose comme ceci:
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
wow wow wow cela fonctionne ... grand grand merci – subanki
+1 juste pour être en mesure de comprendre ce que le voulait asker! –