| ||||
Espero y esto te ayude Hacer sonar un fichero Wav o Midi: Insertar el siguiente código en un módulo: 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: Private Sub Command1_Click() iResult = mciExecute("Play c:\windows\ringin.wav") End Sub
__________________ Dios solo nos dio el 0 y el 1 pero con eso hemos hecho maravillas 1er dia te espantas, 2° te desesperas,3° buscas ayuda y 4°....Adios |