Se for através de um Componente no VB...
Vá na GUIA --> PROJECT --> COMPONENTS
Procure e adicione o WINDOWS MEDIA PLAYER e o MICROSOFT COMMONDIALOG CONTROL 6.0 SP6 ao seu Projeto
Copie os códigos abaixo:
'Crie 3 CommandButton
Private Sub Form_Load()
Command1.Caption = "Play"
Command2.Caption = "Parar"
Command3.Caption = "Abrir"
End Sub
Private Sub Command1_Click()
On Error GoTo erros
WindowsMediaPlayer1.Controls.play
Exit Sub
erros:
Dim msg
msg = "Não foi possível executar este comando"
MsgBox msg, vbCritical + vbOKOnly, "Aviso"
End Sub
Private Sub Command2_Click()
On Error GoTo erros
WindowsMediaPlayer1.Controls.stop
Exit Sub
erros:
Dim msg
msg = "Não foi possível executar este comando"
MsgBox msg, vbCritical + vbOKOnly, "Aviso"
End Sub
Private Sub Command3_Click()
On Error GoTo erros
CommonDialog1.DialogTitle = "Abrir arquivo de mídia"
CommonDialog1.Filter = "Todos os arquivos de média|*.mp3;*.wma;*.avi;*.wav;*.mpg;*.wmv|"
CommonDialog1.ShowOpen
If CommonDialog1.CancelError = True Then
Else
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End If
Exit Sub
erros:
Dim msg
msg = "Não foi possível executar este comando"
MsgBox msg, vbCritical + vbOKOnly, "Aviso"
End Sub
Dúvidas ? por favor não deixe de postar.
Abçs.
