none
Windows media player vb.net RRS feed

  • Pergunta

  • OI galera Tudo bom com vcs ? Bom eu nao uso muito o Windows media player estava fazendo um player aqui e fiquei com uma duvida como tocar uma lista de musicas em ordem tipo tocar um cd completo quando a musica 1 terminar ele passa para a musica 2 e assim vai eu so sei tocar uma musica de cada vez peso a ajuda de vcs muito obrigado ! ...
    terça-feira, 6 de outubro de 2015 23:20

Respostas

  • Oi amigo desculpe sim ja arumei sim codigo a baixo 

      Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            Me.Label1.Text = Me.Player1.settings.volume.ToString & "%"

            Me.TrackBar1.Value = Convert.ToDouble(Me.Player1.settings.volume.ToString)
        End Sub

    • Marcado como Resposta Marcos SJ quarta-feira, 21 de outubro de 2015 11:01
    terça-feira, 20 de outubro de 2015 19:30

Todas as Respostas

  • voce quer codificar a playlist pelo proprio vb?

    Microsoft Technology Associate (MTA)

    quarta-feira, 7 de outubro de 2015 00:35
  • Oi amigo tudo bom ? Nao na verdade eu quero que ele toque as musicas na ordem quando terminar de tocar a 1 ele passa a tocar a 2 e depois a 3 e assim vai so que como faço isso se nu sei guando a musica acaba 

    quarta-feira, 7 de outubro de 2015 01:51
  • Olá GVGVGV,

    Crie o código, caso você tenha algum erro/problema que o esteja impedindo de prosseguir com o seu projeto, crie uma thread para que a comunidade possa prestar auxílio. O propósito do Fórum não é o de prestar suporte a "How to".

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.


    • Editado Marcos SJ quarta-feira, 7 de outubro de 2015 16:35
    • Marcado como Resposta Marcos SJ quarta-feira, 7 de outubro de 2015 16:35
    • Não Marcado como Resposta João Paulo [] quarta-feira, 7 de outubro de 2015 18:58
    quarta-feira, 7 de outubro de 2015 16:33
  • Como mostrei na foto la em cima ja esta quase feito amigo o problema e esse como tocar uma lista de musicas se nu sei quando a musica 01 termina como poso fazer a 02 tocar e a 03 quando a 02 acabar



    aqui eu carrego as musicas 



    Dim open As New OpenFileDialog

            With open
                .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
                .Filter = "Musica , Video |*.*"
                .Multiselect = True

                Me.TextBox1.Clear()

                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    For Each itens In .FileNames
                        Dim ico_list As New ListViewItem
                        ico_list.Text = itens
                        Me.ListView1.Items.Add(itens).ImageIndex = 0
                    Next
                End If

            End With

     Me.TextBox1.Text = open.FileName
            Me.ColumnHeader1.Text = "Lista / 2x Click Play Musicas Total = [" & ListView1.Items.Count & "]        "

    aqui do play na musica 

     Me.Player1.Ctlcontrols.play()

    so que como faço para tocar em ordem quando terminar a 01 tocar a 02 e assim vai foto a baixo

    quarta-feira, 7 de outubro de 2015 19:04
  • Olá GVGVGV,

    Tudo bem?

    Já encontrou um meio de fazer isso?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 20 de outubro de 2015 19:19
  • Oi amigo desculpe sim ja arumei sim codigo a baixo 

      Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            Me.Label1.Text = Me.Player1.settings.volume.ToString & "%"

            Me.TrackBar1.Value = Convert.ToDouble(Me.Player1.settings.volume.ToString)
        End Sub

    • Marcado como Resposta Marcos SJ quarta-feira, 21 de outubro de 2015 11:01
    terça-feira, 20 de outubro de 2015 19:30