ERRO NO CODIGO

JABA 19/01/2016 16:22:28
#456267
Cara, para formar uma nova lista você poderia fazer assim:

Dim listaComTodasMusicas As List(Of String) = GetArquivos([Ô]c:adioitapua\Chamadas\[Ô], [Ô]*.mp3[Ô])
Dim novaLista As new List(Of String) 

For x as integer = 0 to 10 [ô]aqui entra a quantidade de musica que você deseja para a sua playlist
  novaLista.Add(SortearMusica(listaComTodasMusicas))
Next

Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ô]soundsToPlay[Ô])

For x as integer = 0 to novaLista.Count-1
  newPlayList.appendItem(media.newMedia(novaLista(x)))
Next
GEORGEDUT 19/01/2016 16:47:24
#456268
Citação:

:
Cara, para formar uma nova lista você poderia fazer assim:

Dim listaComTodasMusicas As List(Of String) = GetArquivos([Ô]c:
adioitapuaChamadas[Ô], [Ô]*.mp3[Ô])
Dim novaLista As new List(Of String) 

For x as integer = 0 to 10 [ô]aqui entra a quantidade de musica que você deseja para a sua playlist
  novaLista.Add(SortearMusica(listaComTodasMusicas))
Next

Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ô]soundsToPlay[Ô])

For x as integer = 0 to novaLista.Count-1
  newPlayList.appendItem(media.newMedia(novaLista(x)))
Next




Issso funciona porem vc descreve penas um item da lista, preciso q seja na sequencia jingle,chamada,portadeloja,sertanejo,internacional,nacional retorna para o jingle em uma nova lista
JABA 19/01/2016 17:05:56
#456269
é só adaptar o código para o que você precisa.

Dim jingle As List(Of String) = GetArquivos([Ô]c:adioitapua\jingle\[Ô], [Ô]*.mp3[Ô])
Dim chamada As List(Of String) = GetArquivos([Ô]c:adioitapua\Chamadas\[Ô], [Ô]*.mp3[Ô])
Dim portadeloja As List(Of String) = GetArquivos([Ô]c:adioitapua\Portadeloja\[Ô], [Ô]*.mp3[Ô])
Dim sertanejo As List(Of String) = GetArquivos([Ô]c:adioitapua\Sertanejo\[Ô], [Ô]*.mp3[Ô])
Dim internacional As List(Of String) = GetArquivos([Ô]c:adioitapua\Internacional\[Ô], [Ô]*.mp3[Ô])
Dim nacional As List(Of String) = GetArquivos([Ô]c:adioitapua\Nacional\[Ô], [Ô]*.mp3[Ô])

Dim novaLista As new List(Of String) 

novaLista.Add(SortearMusica(jingle))
novaLista.Add(SortearMusica(chamada))
novaLista.Add(SortearMusica(portadeloja))
novaLista.Add(SortearMusica(sertanejo))
novaLista.Add(SortearMusica(internacional))
novaLista.Add(SortearMusica(nacional))

Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ô]soundsToPlay[Ô])

[ô]Antes de adicionar essas musicas, acho que você teria que limpar sua playlistCollection. Talvez seja algo assim newPlayList.Clear()

For x as integer = 0 to novaLista.Count-1
  newPlayList.appendItem(media.newMedia(novaLista(x)))
Next
GEORGEDUT 19/01/2016 17:17:14
#456270
Vlw JABA rsrsrs vc é o cara rsrsrsrs

Porem desculpe minha virgindade kkkkkkkkkkkkk mais executo isso em axwindowsmediaplayer1.currentplaylist = newplaylist

e ele so roda uma vez a lista e para kkkkkkkkkkkkkkkkkkkkkkkkk

Muito obrigado mesmo
JABA 19/01/2016 17:29:01
#456271
Vlw então. Na próxima vez vai ser sem camisinha.
GEORGEDUT 19/01/2016 17:39:46
#456272
rsrsrsrsr uma ultima coisa ele ta rodando uma vez so e para tem como ele identificar q acabo a playlist e roda denovo?
JABA 19/01/2016 17:50:21
#456273
Cara, deve ter sim. Procure por alguma propriedade no seu objeto newPlayList que retorne um booleano, algo como newPlayList.Active ou newPlayList.Stop ou newPlayList.IsPlaying, etc.
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar