|
-
Jul 4th, 2001, 06:48 PM
#2
Try this for volume:
[code]
Private Sub Slider1_Change()
MediaPlayer1.Volume = Slider1.Value
End Sub
Private Sub Slider1_Scroll()
MediaPlayer1.Volume = Slider1.Value
End Sub
[/code[
Set max of slider to 100 (If u using a vertical slider, set to -100, and use the ABS function - "MediaPlayer1.Volume = ABS(Slider1.Value)")
Set the min of slider to 0 (If u using a vertical slider, set to 0)
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|