¿como insertar un midi en un formulario creado en Excel?

09/02/2004 - 00:11 por Javiland | Informe spam
Alguien podría explicarmelo ya que me quedaría mu bonito
cuando aparece por primera vez un formulario.

Gracias
 

Leer las respuestas

#1 Héctor Miguel
09/02/2004 - 09:19 | Informe spam
hola, Javiland !

Alguien podria explicarmelo ... cuando aparece por primera vez un formulario.



puedes usar llamadas a las API's de windows, ejecutando el WindowsMediaManager
[p.e.] al activarse el formulario, se 'tocara' el archivo midi [o wav, o mp3] que 'le digas' +/- asi:
___ en el modulo de codigo del formulario ___
' la llamada a las API's del MediaManager '
Private Declare Function UsarWinMedia _
Lib "winmm.dll" Alias "mciExecute" ( _
ByVal Comando As String) As Long

' al cargarse el formulario... '
Private Sub UserForm_Activate()
Dim Archivo As String
Archivo = "C:\Windows\Media\Baby_01.mid"
UsarWinMedia "Play " & Archivo
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
si la musica es muy 'larga'... se seguira escuchando aun despues de cerrar el formulario :))
para detenerla, usa la misma funcion, 'pero' con 'Stop'
[p.e.] UsarWinMedia "Stop " & Archivo <=MISMO ARCHIVO <= OJO

solo una 'observacion'... la cadena 'completa' [ruta + directorio/s + archivo + EXTension]
==> NO debera tener 'espacios' <== [p.e. C:\Mis doc\este archivo.mid' o... C:\Mi mus...]
[te mandaria un error 'diciendo': mmsystem263 no es un componente MCI registrado...] :((

saludos,
hector.

Preguntas similares