AxWindowsMediaPlayer1.currentPlaylist Duration Iissue
Hey Guys - I am having major issues getting the duration of the first song in my playlist, or index 0, cant figure out what I am doing wrong, please help.
I can get the name but somehow cant get the duration of index 0 or the first song, I get the duration of everything that follows after but just the first one eludes me.
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.currentPlaylist.clear()
timerDuration.Enabled = False
FromA = A1.SelectedItem
ToA = A2.SelectedItem
FromA = CInt(FromA)
ToA = CInt(ToA)
SuID = Su.SelectedIndex + 1
SuID = CInt(SuID)
SuNumber = Su.SelectedIndex
SuNumber = SuNumber + 1
SuNumber = (Format(SuNumber, "000"))
Dim oMedia As WMPLib.IWMPMedia
Dim mp3fileName As String
Dim d As Integer
For d = FromATo ToA
Dim c As String = SuNumber
Dim g As String = (Format(d, "000"))
mp3fileName = (SuNumber & g)
mp3fileName = mp3fileName + ".mp3"
folderName = My.Settings.versepath
oMedia = AxWindowsMediaPlayer1.newMedia(folderName & "\" & mp3fileName)
AxWindowsMediaPlayer1.currentPlaylist.appendItem(oMedia)
oMedia.setItemInfo("Index", AxWindowsMediaPlayer1.currentPlaylist.count)
Next
End If
For x As Integer = 0 To AxWindowsMediaPlayer1.currentPlaylist.count - 1
MsgBox(AxWindowsMediaPlayer1.currentPlaylist.Item(x).name)
MessageBox.Show(String.Format("duration is {0} seconds.", AxWindowsMediaPlayer1.currentPlaylist.Item(x).duration))
timerDuration.Interval = AxWindowsMediaPlayer1.currentPlaylist.Item(x).duration
timerDuration.Enabled = True
Next x
AxWindowsMediaPlayer1.Ctlcontrols.play()
Re: AxWindowsMediaPlayer1.currentPlaylist Duration Iissue
oMedia.setItemInfo("Index", AxWindowsMediaPlayer1.currentPlaylist.count)
for 5 tracks, that will be 1 to 5 and not 0 to 4. is that the problem?