Utilizando o componente MSDXM.OCX (Windows Media Player) para fazer um player de música

Aprenda como fazer um player de música utilizando o componente MSDXM.OCX (Windows Media Player).

por Tássio Guerreiro Antunes Virgínio

1 - Crie um form com um DriveListBox, um DirListBox e um FileListBox.

2 - Vamos adicionar o componente msdxm.ocx ao projeto.
Abra a janela de componentes o componente msdxm.ocx deve estar na lista ele vem instalado como padrão no windows.

Após o componente ser adicionado ao projeto vamos colocá-lo no formulário como mostra a figura.

Já estamos com a parte visual do nosso player pronta.

Vamos agora escrever o código:

No método Change do Drive1 vamos colocar o código para que ele ao ser ativado carregue o drive selecionado no caminho do DirListBox.

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Agora no método Change do Dir1 vamos colocar o código para ao ser selecionado um diretório o FileListBox mostre os arquivos que se encontram nele.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Vamos colocar na propriedade Pattern do File1 as extensões de arquivos que nosso player vai tocar. => *.mp3;*.wma;*.wmv;*.avi;*.mpg;*.mpeg;*.mid;*.wav

Dessa maneira só aparecerão os arquivos com essas extensões na FileListBox.

Colocaremos agora o código do método Click do FileListBox

Private Sub File1_Click()
MediaPlayer1.FileName = File1.Path & "/" & File1.FileName
End Sub

» MediaPlayer1.FileName : Propriedade onde se coloca o caminho completo do arquivo que se quer tocar.

» File1.Path : caminho do arquivo

» File1.FileName : Nome do arquivo.

Se você for testar o Programa vai perceber que já funciona, más vamos aprimora-lo.

O programa vai passar para a próxima musica da lista quando a que estiver em execução acabar.Vamos chamar o método EndOfStream do MediaPlayer1, ele é sempre executado quando um arquivo chega ao fim.

Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
    If File1.ListCount> File1.ListIndex + 1 Then
        File1.ListIndex = File1.ListIndex + 1
    Else
        File1.ListIndex = 0
    End If
End Sub

Simplificando esse método, assim que acaba a musica ele chama o próximo arquivo da lista, se a lista tiver acabado ele vai para o primeiro, repetindo a lista continuamente.

Agora que você já tem a base de um player, pode fazer as melhorias que quiser.

Qualquer dúvida,

Tássio Virgínio - tassiovirginio@yahoo.com.br