vieirasoft 4/7/2011, 18:10
Private Sub Pause_Click()
'Chama a função para pausar o MP3
x = TocarMP3("pause", Musica)
End Sub
Private Sub Stop_Click()
Me.Pause.Enabled = False
'Chama a função para parar o MP3
x = TocarMP3("stop", Musica)
Me.Play.SetFocus
Me.Stop.Enabled = False
End Sub
Private Sub Play_Click()
Me.Stop.Enabled = True
Me.Pause.Enabled = True
'Chama a função para tocar o MP3 via API
x = TocarMP3("play", Musica)
End Sub
Private Sub Procurar_Click()
Creio que com a tua inteligência consegues dar a volta
On Error Resume Next
'Chama a rotina para abrir a caixa de dialogo para procurar o caminho da música via API.
'"ProcuraMusica" nome da função
Me.Musica = ProcuraMusica()
If Me.Musica <> " " Then
Me.Play.Enabled = True
Else
Me.Play.Enabled = False
End If
End Sub