[RESOLVED] Volume

[joscpe]

i want to know how to make my slider change the volume for my media player, i have set the min to 0 and the max to 100.

i also wnat to know how to make my custom browser that i added (dir1, file1 and drive1) show only the files it can play (.wav, .mp3, .mid)

how can i do that?

[joscpe]

i guess u cant?

[bushmobile]

i want to know how to make my slider change the volume for my media player, i have set the min to 0 and the max to 100.

that depends on how you're playing the files, if you're using Windows Media Player Control then check out this FAQ

[joscpe]

I am using the MMControl though...

[joscpe]

is there a way to do this with MMControl?

[joscpe]

Here is a link to what happens to my program when i use it:
(might have to turn up volume....)
Volume doesn't work
( http://www.zippyvideos.com/798271520..._does_nothing/ )

Here is my code:

Private Sub cmdexit_Click()
mmcon1.Command = "Stop"
mmcon1.Command = "Close"
End
End Sub
 
Private Sub cmdplay_Click()
Dim CurrentlyPlaying
CurrentlyPlaying = "Currently Playing:" & vbNewLine
 
On Error GoTo openerror
 
mmcon1.Command = "Close"
mmcon1.FileName = File1.Path & "\" & File1.FileName
mmcon1.Command = "Open"
 
Select Case File1.FileName
    Case 1
        mmcon1.DeviceType = "Other"
    Case 2
        mmcon1.DeviceType = "Sequencer"
    Case 3
        mmcon1.DeviceType = "MP3Audio"
    Case 4
        mmcon1.DeviceType = "WaveAudio"
End Select
 
If mmcon1.Error > 0 Then
    cmdplay.Enabled = False
    cmdstop.Enabled = False
    frm1.Caption = "Jordan Media Player ( No file is loaded )"
    MsgBox "Cannot open " & File1.Path & "\" & File1.FileName, vbCritical, "Error"
Else
    cmdplay.Enabled = True
    cmdstop.Enabled = True
    frm1.Caption = "Jordan Media Player ( " & File1.FileName & " )"
    
    mmcon1.Command = "Play"
    
    lbltrack.Caption = CurrentlyPlaying & File1.FileName
 
    picprogress.ScaleWidth = mmcon1.Length
    picprogress.Enabled = True
End If
Exit Sub
 
openerror:
    Exit Sub
End Sub
 
Private Sub cmdstop_Click()
Dim CurrentlyPlaying
CurrentlyPlaying = "Currently Playing:" & vbNewLine
mmcon1.Command = "Stop"
mmcon1.Command = "Close"
picprogress.Refresh
lbltrack.Caption = CurrentlyPlaying & "None"
End Sub
 
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
 
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
 
Private Sub File1_DblClick()
Dim CurrentlyPlaying
CurrentlyPlaying = "Currently Playing:" & vbNewLine
 
On Error GoTo openerror
 
mmcon1.Command = "Close"
mmcon1.FileName = File1.Path & "\" & File1.FileName
mmcon1.Command = "Open"
 
Select Case File1.FileName
    Case 1
        mmcon1.DeviceType = "Other"
    Case 2
        mmcon1.DeviceType = "Sequencer"
    Case 3
        mmcon1.DeviceType = "MP3Audio"
    Case 4
        mmcon1.DeviceType = "WaveAudio"
End Select
 
If mmcon1.Error > 0 Then
    cmdplay.Enabled = False
    cmdstop.Enabled = False
    frm1.Caption = "Jordan Media Player ( No file is loaded )"
    MsgBox "Cannot open " & File1.Path & "\" & File1.FileName, vbCritical, "Error"
Else
    cmdplay.Enabled = True
    cmdstop.Enabled = True
    frm1.Caption = "Jordan Media Player ( " & File1.FileName & " )"
    
    mmcon1.Command = "Play"
    
    lbltrack.Caption = CurrentlyPlaying & File1.FileName
 
    picprogress.ScaleWidth = mmcon1.Length
    picprogress.Enabled = True
End If
Exit Sub
 
openerror:
    Exit Sub
End Sub
 
Private Sub Form_Load()
Dim CurrentlyPlaying
CurrentlyPlaying = "Currently Playing:" & vbNewLine
 
mmcon1.UpdateInterval = 250
lbltrack.Caption = CurrentlyPlaying & "None"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
mmcon1.Command = "Close"
End Sub
Private Sub mmcon1_Done(NotifyCode As Integer)
Dim CurrentlyPlaying
CurrentlyPlaying = "Currently Playing:" & vbNewLine
 
If mmcon1.Position = mmcon1.Length Then
    mmcon1.Command = "Stop"
    picprogress.Refresh
    lbltrack.Caption = CurrentlyPlaying & "None"
End If
End Sub
 
Private Sub mmcon1_StatusUpdate()
On Error Resume Next
picprogress.ScaleWidth = mmcon1.Length
picprogress.Cls
picprogress.Line (0, 0)-(mmcon1.Position, picprogress.ScaleHeight), , BF
End Sub
 
Private Sub mnuexit_Click()
cmdexit_Click
End Sub
 
Private Sub picprogress_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
    mmcon1.To = x
    mmcon1.Command = "Seek"
    mmcon1.Command = "Play"
End If
End Sub
 
Private Sub picprogress_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
    mmcon1.To = x
    mmcon1.Command = "Seek"
    mmcon1.Command = "Play"
End If
End Sub
 
Private Sub sldvol_DragOver(Source As Control, x As Single, y As Single, State As Integer)
Dim Vol
Vol = sldvol.Value
mmcon1.Volume = Vol
End Sub
 
Private Sub sldvol_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
sldvol.MousePointer = ccSizeEW
End Sub
 
Private Sub sldvol_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
sldvol.MousePointer = ccArrow
End Sub

[Andrew G]

Maybe this may help. Its changes the system volume

http://www.vbforums.com/showthread.p...=change+volume

[joscpe]

wow, thats alot of code! But I am using a scroller not a scroll bar...

[Andrew G]

I'm not exactly sure which control the scroller is but if it has max, min and value (or similar) poperties then it should be fine, you'll just need to alter the code a bit.

[joscpe]

I ment Slider in the Common Controls 6.0 componant.

[Andrew G]

Try this. I modified Manavo11's code so it works with a slider control, plus i made it look a bit better by moving most of the code into a module.

[joscpe]

Thank you, it works perfectly!