Ver Mensaje Individual
  #2 (permalink)  
Antiguo 22/08/2008, 02:33
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
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.