[VB] ajudinha xD

[mugordura 0]

estou tentando fazer 1 player de musica porem está dando erro

"Private Sub form_load()

volta = False

Arquivo = Dir("D:\*.*")

MMControl1.FileName = "D:" & Arquivo

MMControl1.Command = "open"

LblNumero1.Caption = MMControl1.Tracks

MMControl1.Command = "play"

End Sub"

 

[Owner 8]

Coloque tags na proxima vez, como VB, Delphi ...

Nome editado.

[ℛiqu∊ 15]

Adicione o componente 'Windows Media Player' em seu formulário.

Renomeie-o para wmp1

 

Adicione um OpenFileDialog

Adicione um Botão (para abrir a música)

 

Na propriefade Filter o OpenFileDialog,digite:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Clique duas vezes no botão e coloque:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se