• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rafaelsantos

Inserir Várias Músicas numa ListBox

5 mensagens neste tópico

Boas,

estou aqui com uma duvida numa aplicação que estou a fazer, tem como função abrir musicas e depois torcar no objecto do media player que eu inseri no form. Consigo abrir com o openfiledialog um musica de cada vez. Como abro várias ao mesmo tempo por exemplo:

Tenho as musicas na minha pasta:

-- Linkin Park - Llalala

-- Nirvana - lalala2

-- Metalica - Lalalala3

Como abro todas ao mesmo tempo e as insiro na listbox.

Se precisarem do código digam.

Private Sub ofdmusica_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ofdmusica.FileOk
        Dim nmmedia As String = ofdmusica.FileName
        Dim media As String
        Dim i As Byte
        nmmedia = StrReverse(nmmedia)
        For i = 4 To 75
            If nmmedia(i) <> "\" Then
                media = media & nmmedia(i)
            Else
                media = StrReverse(media)
                Exit For
            End If
        Next
        BindingSource1.Add(media & "                                                                @" & ofdmusica.FileName)
    End Sub  

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá e bem-vindo.

Podes tirar as tuas dúvidas acerca multi-selecção com este artigo da Wiki.

Básicamente basta passar a propriedade Multiselect para true e percorrer a colecção de strings que é devolvida através da propriedade Filenames ou SafeFileNames.

Dentro desse ciclo fazes o que bem quiseres com a informação, como por exemplo, adicionar numa listbox. Cada string armazenada na colecção representa o caminho absoluto de um ficheiro.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado pela ajuda.

Essa parte já percebi, agora eu queria colocar os caminhos das musicas que selecionei para uma listbox?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só os caminhos?

For Each F As String In OFD.FileNames
    ListBox1.Items.Add(F)
Next

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora