MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Ajuda com botão Play para executar arquivo selecionado na listbox

    Compartilhe

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 26/06/2013

    Ajuda com botão Play para executar arquivo selecionado na listbox

    Mensagem  cjsilva2013 em Qui 07 Set 2017, 00:12

    Olá, boa noite a todos,

    Venho mais uma vez, pedir ajuda dos senhores...

    Preciso de um cmdPlay que execute o arquivo .mp3 selecionado na lista do Listbox...

    As funções abaixo, peguei aqui no fórum... Se não me falha a memória, é de autoria do grande Nobzinho...
    Funciona vbeleza, selecionado e passando linha a linha na lista.

    Mais gostaria de uma botão Play, que executasse o arquivo quando selecionado na lista. E com a função Player(), executa a PLaylist completa...

    Private Sub cmdPrimeiro_Click()
    Me.lbxFiles = Me.lbxFiles.ItemData(0)
    End Sub

    Private Sub cmdAnterior_Click()
    If Me.lbxFiles.ListIndex > 0 Then
    Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListIndex - 1)
    Else
    Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListCount - 1)
    End If
    End Sub

    Private Sub cmdPróximo_Click()
    If Me.lbxFiles.ListIndex < Me.lbxFiles.ListCount - 1 Then
    Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListIndex + 1)
    Else
    Me.lbxFiles = Me.lbxFiles.ItemData(0)
    End If
    End Sub

    Private Sub cmdÚltimo_Click()
    Me.lbxFiles = Me.lbxFiles.ItemData(Me.lbxFiles.ListCount - 1)
    End Sub

    A lbxFiles é onde abre a lista com caminho dos arquivos .mp3

    Tenho a função:

    Private Sub Player()
    'Adapatação do Muca em 11.04.2011
    On Error Resume Next

    Dim varRet
    Dim stPath As String

    If mstPath = vbNullString Then
    stPath = Me.Diret & Me.Arquivo & ".m3u"
    Else
    stPath = Me.Diret & Me.Arquivo & ".m3u"
    End If
    coco.url = stPath
    Texto19 = "Executando " & Me.Arquivo & ".m3u em " & Me.Diret
    Texto26 = stPath

    Me.TimerInterval = 0

    End Sub

    Desde já agradeço a ajuda dos companheiros...

    Abraços a todos...
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: Ajuda com botão Play para executar arquivo selecionado na listbox

    Mensagem  JPaulo em Qui 07 Set 2017, 10:58

    Tocador MP3
    [Você precisa estar registrado e conectado para ver este link.]

    Tocador PlayList
    [Você precisa estar registrado e conectado para ver este link.]

    Tocador Windows Media Player
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 26/06/2013

    Ajuda com botão Play para executar arquivo selecionado na listbox

    Mensagem  cjsilva2013 em Qui 07 Set 2017, 12:52

    Bom dia João,

    Estou usando a base do Tocador PlayList. Apenas acrescentei algumas funções como: Botões de navegação de áudio e vídeo e canais de TV no mesmo player usando o Windows Média Player.

    É para uso pessoal sem ônus...

    Inseri no form, botões: Volumes Alto e Baixo, Stop, Pause, Play, Primeiro, Anterior, Próximo e Último...

    Fiz um layout simples mais compacto, deixando com aspecto profissional... Tá ficando legal...

    Os botões, Volumes Alto e Baixo, Stop, Pause, Play. Para esses ainda não consegui rodar...

    Desde já lhe agradeço pela atenção e apoio.

    Deus continue te abençoando.

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 26/06/2013

    Ajuda com botão Play para executar arquivo selecionado na listbox

    Mensagem  cjsilva2013 em Sab 09 Set 2017, 22:13

    Boa tarde senhores,

    Resolvi o Play da seguinte forma...

    Private Sub cmdPlay_Click()
    If Me.lbxFiles.ListIndex <> Me.lbxFiles.ListCount - 1 Then
    Me.coco.url = Me.lbxFiles.Value
    Me.coco.Object.Controls.play
    Else
    Me.lbxFiles = Me.lbxFiles.ItemData(0)
    End If
    End Sub

    O botão STOP

    Private Sub cmdStop_Click()
    'Esse escript Para (stop) nas míscas da Listbox
    If Me.lbxFiles.ListIndex <> Me.lbxFiles.ListCount - 1 Then
    Me.coco.url = Me.lbxFiles.Value
    Me.coco.Object.Controls.Stop
    End If
    End Sub

    Agora preciso de ajuda para resolver o problemas com os botões: AumentarVolume e BaixarVolume... Estou usando o seguinte:

    Private Sub cmdAlto_Click()
    'To Increase Volume
    Me.txtVolume.Value = Me.txtVolume.Value = 10
    Me.coco.Object.Controls.valume
    End Sub

    Private Sub cmdBaixo_Click()
    'To Inscrease Volume
    Me.txtVolume.Value = Me.txtVolume.Value - 10
    Me.coco.Object.Controls.volume
    End Sub

    Da o seguinte erro:
    erro em tempo de execução '438'
    O objeto não aceita esta propriedade ou método

    Por favor alguém pode me ajudar?

    Desde já agradeço...

    Abraço a todos,

      Data/hora atual: Ter 21 Nov 2017, 19:04