Breadcrumbs

[tvs praveen]

Hi, How to make Play Next, Play Previous, Shuffle, And audio mute code

Please help me clapper;

This problem has been solved by CodeNStuff wahooo;

[CodenStuff]

Hello,

You could use the followin to do what you need.

To repeat media:

Code: Select all

 AxWindowsMediaPlayer1.settings.setMode("loop", True)

Stop repeat:

Code: Select all

 AxWindowsMediaPlayer1.settings.setMode("loop", False)

Play next media:

Code: Select all

AxWindowsMediaPlayer1.Ctlcontrols.next()

To "shuffle" media in a listbox I guess you could use this to select a random item from it:

Code: Select all

Dim TrackRandom As Integer
            TrackRandom = Int((ListBox1.Items.Count) * Rnd())
            AxWindowsMediaPlayer1.URL = (ListBox1.Items(TrackRandom))

You will need to add some of your own code to make it play a random track automatically when the player stops playing or something like that. Im not sure what you mean by preview :?

Happy coding cooll;

[Lewis]

I think he means a little snippet of the song, so they know before they play or something? But in a snippit you could Like Put media play and also start a timer with intervel of 5000 (5 seconds) and in the timer put the code stop the audio and stop the timer, i will just put that into code now

[Coden]

Here is 2 simpel codes.

Add a track bar, set value to 5.
Code;
AxWindowsMediaPlayer1.settings.Volume = Trackbar1.Value

Add CheckBox, set Checked to false.
Code;
If Checkbox1.checked = true then
AxWindowsMediaPlayer1.settings.mute
else
'Do Nothing
End if

regards.