Ver Mensaje Individual
  #4 (permalink)  
Antiguo 23/08/2008, 03:56
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: Emitir sonido .wav con visualbasic6.0

Cita:
Iniciado por KingColt Ver Mensaje
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