Abrir .WAV
Como hago para abrir un archivo .wav y que se ejecute automaticamente sin abrir el windows media
Gracias
Gracias
Insertar el siguiente código en un módulo:
Codigo:--------------------------------------------------------------------------------
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
--------------------------------------------------------------------------------
Insertar un botón en el formulario y escribir el siguiente código:
Codigo:--------------------------------------------------------------------------------
Private Sub Command1_Click()
iResult = mciExecute("Play c:windowsringin.wav"
End Sub
Codigo:--------------------------------------------------------------------------------
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
--------------------------------------------------------------------------------
Insertar un botón en el formulario y escribir el siguiente código:
Codigo:--------------------------------------------------------------------------------
Private Sub Command1_Click()
iResult = mciExecute("Play c:windowsringin.wav"
End Sub