Visual Basic - Ayuda con sonidos wav

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con sonidos wav

Publicado por Dan (50 intervenciones) el 17/12/2005 20:00:21
Hola si alguien me puede hechar la mano se lo agradecere muchisimo

ESTOY DESARROLLANDO UN PROGRAMITA CON SONIDOS.WAV Y LO QUE NECESITO ES QUE EL SONIDO SE REPRODUSCA INFINITAMENTE HASTA QUE SE PRECIONE UN BOTON DE SALIR. SI ALGUIEN ME PUEDE AYUDAR POR FAVOR

PONGO CODIGO DE LO QUE HE DESARROLLADO.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

(AQUI INICIO EL SONIDO Y AQUI ES DONDE QUIERO QUE EL SONIDO SE HAGA INFINITO)
Private Sub Form_Load()
' Iniciar el Sonido
sndPlaySound "C:\eagleboldcrying.wav", &H1
End Sub

(CUANDO PRESIONE ESTE BOTON ES DONDE QUIERO QUE SE DETENGA EL SONIDO Y SALGA DEL PROGRAMA)
Private Sub cmdSalir_Click()
' detener el sonido
sndPlaySound vbNullString, 0
' salir del programa
End
End Sub

SI ALGUIEN ME PUEDE AYUDAR, YA ESTOY DESESPERADISIMO, AYUDENME.

SI ALGUIEN TIENE IDEA DE COMO HACERLO POR FAVOR PROPORCIONEME EL CODIGO, O SI TIENE ALGUN PROGRAMITA PARESIDO, TAMBIEN PROPORCIONEME EL CODIGO,

MUCHAS GRACIAS, SALUDOS A TODOS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con sonidos wav

Publicado por jose carlos (340 intervenciones) el 17/12/2005 22:36:41
Usa en control MULTIMEDIA MCI CONTROL y agrega dos command y un control multimedia y el código siguiente, espero te ayude

Public vez As Integer

Private Sub Command1_Click()
Control.Notify = True
Control.Wait = True
Control.Shareable = False
Control.DeviceType = "WaveAudio"
Control.filename = "c:\windows\media\The Microsoft Sound.wav"
Control.Command = "open"
Control.Command = "play"
vez = 0
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Control_Done(NotifyCode As Integer)
vez = vez + 1
If vez = 2 Then
Control.Command = "close"
Command1_Click
End If
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con sonidos wav

Publicado por Dan (50 intervenciones) el 17/12/2005 22:56:40
PERO COMO SACO ESE CONTROL QUE DICES.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar