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
Autor