El control de multimedia de Microsoft , o MMControl , es una herramienta de Visual Basic que reproduce archivos multimedia . Usted no encontrará MMControl ser una de las herramientas por defecto en su caja de herramientas , pero se puede agregar a su lista de controles con la lista de componentes. Puede agregar MMControl para que pueda integrar los archivos de audio o vídeo para su proyecto. Sin embargo , MMControl solamente aceptará un archivo a la vez , así que si usted desea crear su propio reproductor de MP3, tendrá que utilizar una matriz para almacenar la lista de pistas . Instrucciones
1

Abra un proyecto de Visual Basic . Haga clic en "Proyecto " en el menú , y seleccione " Componentes ". Desplácese hacia abajo hasta " Microsoft Multimedia Control 6.0 ", y haga doble clic en él para añadir una casilla de verificación a la selección. Haga clic en " Aceptar " para cerrar la ventana de componentes . Esto añade MMControl a su caja de herramientas.
2

doble clic en la herramienta MMControl del cuadro de herramientas para agregar uno a su forma . Haga clic y arrastre el control a un punto de la forma en que usted lo necesite.
3

Abra la ventana de código. Escriba " tracklist Dim ( 4 ) As String " en la parte superior . Esto creará un array que contendrá cinco canciones (numeradas del cero a cuatro) . Tipo " número de pista Dim As Integer " para crear una variable de contador .
4

Abra la función " Form_Load ()". Tipo " tracklist ( 0 ) = vía_acceso_archivo " para cargar la primera pista en la matriz , donde " vía_acceso_archivo " es la ubicación real de su archivo MP3 en su ordenador. Haga esto una vez más de " pista ( List ( 1 )" a " lista de canciones ( 4 ) . " Función
5

Type " MMControl1.Command = " Abrir " " en el " Form_Load () " para abrir el dispositivo cuando se inicia el programa. Type " número de pista = 0 " en la línea siguiente y " MMControl1.FileName = tracklist ( número de pista ) " en la línea después de eso. Tipo " MMControl.Command = " Play "en la última línea de la función .
6

Abra la función " Form_Unload " y escriba " MMControl.Command =" Cerrar "" para parar el control cuando el programa termina.
7

Abra el . función " MMControl1_NextClick " Escriba las siguientes líneas :

MMControl1.Command = "Stop"

Si tracknumber = 4 Entonces

tracknumber = 0

demás

tracknumber = número de pista + 1

End If

MMControl1.FileName = lista ( número de pista )

MMControl1.Command =
"Open " < p> MMControl1.Command = "Play"
8

Abra la función " MMControl1_PrevClick " Escriba las líneas siguientes : .

MMControl1.Command = "Stop"

Si el número de pista = 0 Entonces

tracknumber = 4

demás

tracknumber = número de pista - 1

End If

MMControl1.FileName = lista ( número de pista )

MMControl1.Command = "Abrir"

MMControl1.Command = "Play"
9

Press "F5 " para iniciar el programa y escuchar sus MP3 .