Emitir sonido .wav con visualbasic6.0

[KingColt]

Me explico quiero q al presionar un boton suene un archivo .wav algo asi con los menus con flash el sonido es un simple bip

[Avellaneda]

Iniciado por KingColt

Me explico quiero q al presionar un boton suene un archivo .wav algo asi con los menus con flash el sonido es un simple bip

Lo puedes hacer con controles ocultos como el MMControl o el WindowsMediaPlayer, pero si no quieres poner ningún control, también lo puedes hacer con la API MCI:

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) & "C:\MiMusica\Archivo.wav" & Chr(34)
lRet = mciSendString("OPEN " & sPath, 0&, 0, 0)
lRet = mciSendString("PLAY " & sPath & " FROM 0", 0&, 0, 0)
End Sub

Sustituye lo marcado en azul por tus datos.

[KingColt]

Bien Avellaneda como siempre diste en el clavo, pero no entiendo el Chr(34) pero el codigo esta perfecto.
Cambie la ruta por
sPath = Chr(34) & App.Path + "\puk.wav" & Chr(34)

saludos

[Avellaneda]

Iniciado por KingColt

Bien Avellaneda como siempre diste en el clavo, pero no entiendo el Chr(34) pero el codigo esta perfecto.
Cambie la ruta por
sPath = Chr(34) & App.Path + "\puk.wav" & Chr(34)

saludos

Hola, lo del Chr(34) antes y después del archivo es porque, tanto el comando Open como Play, requieren dos veces las comillas dobles.

También funcionaría así:

sPath = "C:\MiMusica\Archivo.wav"
lRet = mciSendString("OPEN """ & sPath & """", 0&, 0, 0)
lRet = mciSendString("PLAY """ & sPath & """ FROM 0", 0&, 0, 0)

Pero parece más complicado, ¿no?.

Saludos