Printable View
I'm trying to access the system volume controls so that I can control how loud music plays through my application. The only thing i've been able to find is a object.Volume(long) that increments from -10000 to 0. This is not sufficient as it doesn't give me an accurate read for a smooth transition from loud to soft.
Thanks.
Now lets see.....Its late and I'm fried but try this
in a slider change or slider scroll.....dam i forgot but try it in one or the other....
'replace *** with the name of the media control,,,ie...
'ActiveMovie1,MediaPlayer1.....etc.
'you can replace $$$ with a label....this will show the 'percentage
Dim pim, sha
sha = Slider1.Value - 2500
***.Volume = sha
Dim foo As Integer, poo As Integer
On Error GoTo hell
poo = Slider1.Min
foo = Slider1.Value
$$$.Caption = foo \ 25
hell:
Exit Sub
well I think this will give you a smooth volume control...if not let me know....
hmmm... maybe i didn't explain correctly. i mean to have a smooth range of sound from loud to soft. my slider works fine. the point is that the -10000 to 0 increments aren't consistent so I'd like to find a way to get to the system volume controls so i can get the information right from the OS.