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

    [Resolvido]Ajuda com loop no botão Play de música no Formulário

    Compartilhe

    JefDAssis
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/06/2018

    [Resolvido]Ajuda com loop no botão Play de música no Formulário

    Mensagem  JefDAssis em 9/6/2018, 13:10

    Bom dia,

    Venho através desse pedir ajuda para encontrar solução em que ao clicar no botão play do Player de Música, continue tocando demais itens da "lbxFiles".

    Estou usando a seguinte função:

    Private Sub cmdPlay_Click()
    On Error Resume Next
    Dim coco As String
    Dim x As Integer

    If Me.lbxFiles.ListIndex > 0 Then
    Me.coco.URL = Me.lbxFiles.Value
    Me.coco.Object.Controls.Play

    Dim ListIndex, i As Integer, Maximo
    'para looping em listBox
    For i = 0 To Me.lbxFiles.ListCount - 1
    If Me.lbxFiles.Column(0, i) > Maximo Then Maximo = Me.lbxFiles.Column(0, i): ListIndex = i
    Next i
    Me.lbxFiles.ListIndex = Me.lbxFiles.ListIndex + 1 = True
    Me.coco.URL = Me.lbxFiles.Value
    Me.coco.Object.Controls.Play

    End If

    End Sub

    Obs: coco = Media Player, lbxFiles = ListBox com os nomes das músicas ou Playlist escolhida.

    Ao clicar no Botão Play, toca... Mais ao concluir para, não da continuidade na lista.

    Por favor, algum dos companheiros com mais experiência pode me ajudar?

    Abraço a todos...

    JefDAssis
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/06/2018

    Ajuda com loop no botão Play de música no Formulário

    Mensagem  JefDAssis em 15/6/2018, 22:16

    Boa noite,

    Fiz de outra forma sem ser pelo botão player...

    Obrigado a todos desde já...

    Resolvido.

      Data/hora atual: 18/11/2018, 02:22