Réponse acceptée !
tu le fais avec le controle DirectShowAUdio il me semble, la propriété Volume de celui-ci régit le volume, il varit de -10 000 à 0.
Tu met un slider1 sur ta form, tu regle sa propriété Max à 10000 et SmallChange à 25 et LargeCHange à 100.
Et tu colles ceci dans le code de ta form :
Private Sub Slider1_Change()
ChgVol
End Sub
Private SUb Slider1_Scroll()
ChgVol
End Sub
Private SUb ChgVol()
DirectShowAudio.Volume=slider1.value-10000
End Sub
|