Colocar un fondo musical en visual basic

vamos a colocar una cancion en visual basic ..l

ojo el archivo de la cancion ser MP3 para que funcione

se hace con la siguiente linea de codigo

1er paso:

insertar el un control ocx llamado MP3_Play.ocx

lo encuentras en esta direccion ...

http://www.megaupload.com/es/?d=YXCC2XYL

solo ingresas el codigo que t INDICA LA PAGINA PARA PODER DESCARGARLO y LISTO

bueno una vez descargado el archivo lo guardas dentro de la carpeta donde guardaras tu proyecto entero ...

creas un formulario y t diriges al menu PROYECTO, luego clic en la opcion COMPONENTE ...

en la ventana que se muestra le das clic al boton EXAMINAR, buscas el control OCX, q descargaste de la pagina que t di ... obviamente debe estar guardado como t dije anteriormente en la carpeta donde guardaras tu proyecto ...

luego lo seleccionas y clic en aceptar

Te fijas que en la caja de herramientas ai un control nuevo con la figura de un parlante .. bueno ese es el ICONO del control OCX

despues lo dibujas en el formulario y le cambias el nombre ... colocale como nombre MP3

2do paso:

Das doble clic en el formulario

seleccionas el evento ACTIVATE del formulario, normalmente esta el evento LOAD, lo cambias a ACTIVATE

3er paso:

escribes las siguientes lineas de codigo

Private Sub Form_Activate()

mp3.FileName = "D:\Music\Cristianas\de tal manera.mp3"

mp3.mmPlay

End Sub

MP3 = NOMBRE DEL CONTROL OCX .. EL NOMBRE FUE MODIFICADO

FILENAME = BUSCA LA DIRECCION DE LA CANCION

MP3.MMPLAY = PARA QUE SE PRECIONE PLAY AUTOMATICAMENTE ..

END SUB = CIERRA EL PROCEDIMIENTO

COLOCAR UN GIF ANIMADO EN UN FORMULARIO

Para realizar este procedimiento utilizaremos una dll, que permitira el movimiento de cualquier gif animado...

los primero que deben hacer es lo siguiente

en esta pagina encuentran la DLL

http://www.megaupload.com/es/?d=JFLCUXKP

Una vez que la descargan la cuardan dentro de la carpeta en donde guardaran todo su proyecto ...


luego entran a visual basic ...

crean un formulario nuevo, le colocan sus respectivas propiedades

Luego se van al menu PROYECTO y dan un clic en la opcion COMPONENTE

En la ventana que se muestra ubican el boton examinar y dan un clic en el, luego buscan la dll, que la guardaron dentro de la carpeta donde guardaran todo su proyecto ...

seleccionan la dll y en su ventana de componente se mostrara, dan un clic en el boton ACEPTAR.

Una vez hecho todos esos pasos

te fijas en la caja de HERRAMIENTAS, veras que se agrego un nuevo control en ella

Das un clic en el y lo arrastras en el formulario

le colocas en su propiedad nombre ... su respectivo nombre por ejm GIf

luego realizas doble clic en el formulario y activas el evento ACTIVATE, por default siempre se encuentra el evento load en el formulario, ya sabes lo cambias a ACTIVATE.

Escribes la sgte linea de codigo:


Private Sub Form_Activate()

gif.FileName = (App.Path & "\4.gif")

End Sub

t explico el codigo para que lo entiendas mejor

si t das cuenta en Private sub esta activado el evento ACTIVATE

eso permite que cuando el formulario cargue se active el gif animado

luego sigue la linea de codigo

gif.FileName = (App.Path & "\4.gif")

gif = al nombre del control

filename = es la propiedad que busca la direccion o URL

APP.PATH = es una funcion que sirve para reducir la direccion en donde se encuentra el archivo en este caso el gif animado, colocando solo en nombre del gif ... en este programa el gif se llama 4 y su extension es .gif

ojo esta funcion solo funciona si tu archivo esta esta guardado dentro de la misma carpeta del programa, me refiero al gif animado que vaz a mostrar en tu formulario, no a la dll, no confundir por favor ...!!!

y por ultimo

end sub = finaliza el programa

una vez echo este procedimiento ejecutas el programa y veraz como se muestra tu gif animado

IMAGENES DEL PROCEDIMIENTO

AGREGAR UN CONTROL NUEVO A LA CAJA DE HERRAMIENTAS

UBICAR EL DLL

Para ubicar la dll debes poner la opcion todos los archivos, en la ventana buscar
y agregas la dll gif89, asi se llama la dll



INSERTAR EL CONTROL EN LA CAJA DE HERRAMIENTAS

EN LA CAJA DE HERRAMIENTAS SE MUESTRA EL CONTROL NUEVO, ES EL DE COLOR AZUL UNO DE LOS DOS ULTIMOS CONTROLES




LO DIBUJAS EN EL FORMULARIO Y LE CAMBIAS EL NOMBRE




ACTIVAS EL EVENTO ACTIVATE


DIGITAS LA LINEA DE CODIGO

AL FINAL EJECUTAS EL PROGRAMA Y LISTO

Enlazar un programa ejecutable en visual basic

Estos les servira para su project ...!!!

SINTAXIS:


Private Sub Command1_Click()

shell ("URL O DIRECCION DONDE ESTA INSTALADO EL PROGRAMA\NOMBRE DEL PROGRAMA")

Shell ("C:\Archivos de programa\Macromedia\Dreamweaver 8\Dreamweaver.exe")

End Sub

Esta aplicacion permitira ejecutar el programa Dreamweaver mediante un clic en el
boton de comando COMMAND1.

La sintaxis consiste en lo siguiente:

La direccion C:\Archivos de programa\Macromedia\Dreamweaver 8, quiere decir que en esa direccion se encuentra instalado el programa DREAMWEAVER, el siguiente backslach (\) separa la direccion con el nombre del programa, es por eso que despues de este backslach, sigue en nombre del programa en este caso se llama DREAMWEAVER, que es un programa ejecutable, es por eso que lleva la extension .EXE

NO OLVIDAR PONER LA EXTENSION ...!!!

De esta forma enlazamos un programa ejecutable, que puede ser WORD, PowerPoint,Excel, etc ...