Un sencillo ejemplo:
Código:
Private Sub Timer1_Timer()
' Si la posicion de reproduccion del MP3 es igual a su duracion total o igual a 3000
' milisegundos (3 minutos) reiniciamos la reproduccion:
If MP3.Position = MP3.Duration Or MP3.Position = 3000 Then
MP3.Position = 0 ' Dependiendo del componente o sistema que estes usando para
' reproducir el MP3 tendras que reinciar la posicion de lectura a 0 o directamente
' llamar al metodo o funcion Stop del componente.
MP3.Play
End If
End Sub Este ejemplo reiniciaria el MP3 en cuanto llegara a su duracion maxima o en cuanto haya reproducido 3000 milisegundos
(a lo mejor el componente que usas te devuelve el tiempo en segundos). Si lo que quieres es simplemente hacer una sola reproduccion del MP3 simplemente cambia todo el codigo del
If/Then por una llamada al metodo
Stop y deshabilita el
Timer mediante su propiedad
Enable a
Falso.
Salu2...