Reproducir sonidos en vb6

[xsmilex83]

Hola lo que intento hacer es para reproducir un sonido en .wav por ejemplo con un chekbox un timer y apretando una tecla alguien puede ayudarme.

Principalmente es para conseguir reproducir el sonido gracias

[pkj]

En las F.A.Q. lo tienes.

http://www.forosdelweb.com/760675-post14.html

Espero que te sirva.

[hunter18]

Yo tengo este ejemplo y me funciona bien

Código:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
Dim sPath As String
Dim lRet As Long
sPath = Chr(34) & App.Path + "\puk.wav" & Chr(34)
lRet = mciSendString("OPEN " & sPath, 0&, 0, 0)
lRet = mciSendString("PLAY " & sPath & " FROM 0", 0&, 0, 0)
End Sub

saludos

[seba123neo]

api sndPlaySound...

[xsmilex83]

Gracias por las respuestas voy a ver un saludo

[xsmilex83]

Gracias por todo pero tengo otro problemilla lo estoy haciendo por chekbox:
en el codigo del checkbox pongo esto:

Código:

If Check1.Value = 1 Then Timer1.Interval = 1
If Check1.Value = 0 Then Timer1.Interval = 0

y en el Timer1 lo pongo a 1 y pongo este codigo:

Código:

Private Sub Timer1_Timer()
If Check1.Value = 1 Then
Dim sPath As String
Dim lRet As Long
sPath = Chr(34) & App.Path + "\Sonido.wav" & Chr(34)
lRet = mciSendString("OPEN " & sPath, 0&, 0, 0)
lRet = mciSendString("PLAY " & sPath & " FROM 0", 0&, 0, 0)
End If
End Sub

El caso es que cuando pulso el chekbox suena como interferencias y despues desconecto el check y suena el sonido bien, no se a que se debera.

El caso es que quiero dejarlo pulsado y al pulsar una tecla que suene el sonido.


Muchas gracias a todos

[pkj]

Lo que pasa es que al poner el valor de Interval a 1 milisegundo, se ejecuta el sonido constantemente, y cuando lo pones a 0, el timer debe dejar de usarse y se acaba de reproducir el ultimo play.
Ponerlo en un timer no es una buena idea, y usar interval 1 y 0 me parece aún peor.

[xsmilex83]

Bueno Gracias por eso, ya lo tengo. Lo que no consigo es como cambiar de las opciones de sonido de windows de micro a Mezcla estereo mediante VB Gracias por todo