un sonido wav, en forma repetitida

[deimos_rasiv]

hola a todos

hace un rato estaba viendo lo de dejar un sonido wav en porma repetitida hasta que el user haga click en aceptar

bueno agrege en componentes "Microsoft Multimedia Control 6.0 (sp3)"
lo agrege a mi from   lo deje invisible para que el user no lo vea,
 despues en el from agrege lo sigiente

Private Sub MMcommand1Update()
If MMcommand1.Mode = 525 Then
MMcommand1.From = 0
MMcommand1.Command = "play"
End If
End Sub

despues creamos un btn (boton) en el from y l emetemos este codigo

Private Sub btnAcepta_Click()
Me.Hide
MMcommand1.Command = "close"
End Sub

ha se me olvidaba, ¿como cargamos el archivo?
esto lo hacemos en from load

MMcommand1.command ="close"  ' serramos si esta tocando algo
MMcommand1.deviceType = "WaveAudio"   ' el archivo que usaremos es wav
MMcommand1.filename ="ruta\del\archibo.wav"  ' donde esta nuestro archivo
MMcommand1.command = "open"  'lo abrimos para dejarlo en memoria
MMcommand1.command ="play"     ' ya se imaginan que hace  play!!


espero que alguien le sea de utilidad


desde ya   gracias a todos

chavela

   

[SOADER (ANYD00M)]

Gracias por la info, si dices que funciona no queda mas que aplicarlo a algun proyecto

Salu2!

[Aleks]

Tendré en cuenta el code para una aplicación en la que estoy trabajando, si lo uso dentro de la misma y me funciona te aviso men, gracias por compartir!