Cómo Hacer un Reproductor Multimedia Usando Visual Basic.Net
En este tutorial, le enseñaré Cómo crear un reproductor multimedia personalizado que sea capaz de reproducir sonidos,Videos y ver imágenes en diferentes formatos. Así que empecemos. Pero como el reproductor multimedia no existe en la parte componente de toolbox, necesitamos agregar el reproductor Multimedia de Windows a toolbox. Para hacer esto, simplemente siga los pasos dados.
- Vaya a la caja de herramientas y haga clic con el botón derecho
- Luego seleccione Elegir elementos y se abrirá el cuadro de diálogo Personalizar caja de herramientas.
- Y seleccione Windows Media Player en los componentes COM.
- Luego haga clic en «Aceptar»
- Y, finalmente, el control del reproductor Multimedia de Windows aparecerá en la pestaña actual.
Después de este proceso, ahora podemos agregar Windows Media Player a nuestro Formulario y el nombre predeterminado de este control es «AxWindowsMediaPlayer1». Entonces usted es libre de cambiar el nombre de este objeto en función de lo que desee, por ejemplo, nombrarlo como «WMPlayer» para que pueda ser más fácil de leer y recordar.
El siguiente proceso es que vamos a agregar otros controles a nuestro formulario como Listbox, FolderBrowserDialog, MenuStrip y StatusStrip.
el Plan de los objetos y Propiedades
Objeto |
la Propiedad |
Configuración |
| Form1 | Nombre | mainFrm |
| Texto | Reproductor Personal de Medios | |
| StartPosition | CenterScreen | |
| ControlBox | False | |
| AxWindowsMediaPlayer1 | Nombre | myPlayer |
| Listbox | Nombre | Lista |
| MenuStrip1 | Nombre | MenuStrip1 |
| StatusStrip1 | Nombre | StatusStrip1 |
| FolderBrowserDialog1 | Nombre | FolderBrowserDialog1 |
En el MenuStrip1 tenemos que añadir dos menús principales de tales Bibliotecas y a la Vista. Las Bibliotecas también tienen submenús como Música, Videos, Imágenes y Salida. Y para el submenú Ver es solo Editor de listas de reproducción. Esto debería verse como se muestra a continuación.
Y el diseño final se ve como se muestra a continuación.
Después de diseñar nuestra interfaz de usuario, procedamos a agregar funcionalidades a nuestro programa. Primer paso haga doble clic en el formulario principal o lo llamaremos «mainFrm» para cambiar nuestro Diseñador de vistas a Código de vista. Luego, en mainFrm_Load, agregue este código.
lista.Elemento.Clear () ‘ borra todo el contenido de currect de la lista
lista.Hide() ‘ ocultará en el formulario principal
miPlayer.Width = 787 ‘ redimensionará el ancho de MyPLAYER en 787
y en la parte inferior de nuestra Clase Pública mainFrm agregará esta declaración de variable que mantendrá la ruta posterior de nuestra carpeta. Y le gustará esto.
mainFrm de clase pública
Dim folderpath Como cadena
Después de agregar este código, vamos a crear un subprocedimiento que lo usaremos para nuestro programa más adelante.
Public Sub jokenresult()
Lista If.Elemento.Cuenta > 0 Y luego
lista.Show()
MyPLAYER.Width = 577
statresult.Texto = lista.Elemento.Cuenta & «Artículos»
Else
lista.Hide()
MyPLAYER.Width = 787
End If
End Sub
A continuación agregaremos funcionalidad a los elementos de un submenú bajo bibliotecas de Música. Para hacer esto, simplemente haga doble clic en el submenú Música. Luego será redirigido a la vista de código fuente y agregará este código para que ahora se vea como se muestra a continuación.
Sub MusicToolStripMenuItem_Click Privado (remitente de ByVal Como Sistema.Object, ByVal e as System.EventArgs) Maneja MusicToolStripMenuItem.Haga clic en
Probar
‘ se abrirá el diálogo de carpeta donde puede seleccionar dónde está la carpeta específica de su música
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK, Entonces
‘si es cierto, si hace clic en aceptar en el cuadro de diálogo de carpeta, entonces
‘ obtendrá la ruta seleccionada de su carpeta y la almacenará en la variable di
Dim di Como Nueva IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ en esta línea de código obtendrá todo el archivo específico que tiene el .extensión mp3 y guárdela en diar1 variable
diar1 Dim Como IO.FileInfo () = di.GetFiles(«*.mp3»)
Dim dra Como IO.FileInfo
‘y en esta línea recopilará toda la información con respecto a la ruta completa y los nombres de todos los archivos y la almacenará en la variable folderpath
folderpath = di.Nombre completo.toString
lista.Elemento.Clear ()
‘ listar los nombres de todos los archivos en el directorio especificado
Para Cada dra En diar1
Dim a Como Entero = 0
‘ a = a + 1
list.Elemento.Add (dra)
Next
‘llamará al sub procedimiento jokenresult () para realizar algunas acciones
jokenresult ()
End If
Catch ex Como Excepción
‘si se producen errores, el programa lo atrapará y lo enviará de vuelta al usuario.
MsgBox (ej.Mensaje, MsgBoxStyle.Información)
End Try
End Sub
Y este es el programa en ejecución de muestra que reproduce una música seleccionada.
Y este es el programa en ejecución de muestra que reproduce una película seleccionada.
Y, finalmente, este es todo el código fuente.
‘Descripción: Reproductor Multimedia personal que permite al usuario reproducir Música, Video e imágenes, etc.
‘ Autor: Joken Villanueva
‘ Fecha de creación: Marzo 23, 2011
‘Modificado Por:
mainFrm De Clase Pública
Dim folderpath Como Cadena
Sub MusicToolStripMenuItem_Click Privado (remitente ByVal Como Sistema.Object, ByVal e as System.EventArgs) Maneja MusicToolStripMenuItem.Haga clic en
Probar
‘ se abrirá el diálogo de carpeta donde puede seleccionar dónde está la carpeta específica de su música
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK, Entonces
‘si es cierto, si hace clic en aceptar en el cuadro de diálogo de carpeta, entonces
‘ obtendrá la ruta seleccionada de su carpeta y la almacenará en la variable di
Dim di Como Nueva IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ en esta línea de código obtendrá todo el archivo específico que tiene el .extensión mp3 y guárdela en diar1 variable
diar1 Dim Como IO.FileInfo () = di.GetFiles(«*.mp3»)
Dim dra Como IO.FileInfo
‘y en esta línea recopilará toda la información con respecto a la ruta completa y los nombres de todos los archivos y la almacenará en la variable folderpath
folderpath = di.Nombre completo.toString
lista.Elemento.Clear ()
‘ listar los nombres de todos los archivos en el directorio especificado
Para Cada dra En diar1
Dim a Como Entero = 0
‘ a = a + 1
list.Elemento.Add (dra)
Next
‘llamará al sub procedimiento jokenresult () para realizar algunas acciones
jokenresult ()
End If
Catch ex Como Excepción
‘si se producen errores, el programa lo atrapará y lo enviará de vuelta al usuario.
MsgBox (ej.Mensaje, MsgBoxStyle.Información)
End Try
End Sub
Public Sub jokenresult()
Si la lista.Elemento.Cuenta > 0 Y luego
lista.Show()
MyPLAYER.Width = 577
statresult.Texto = lista.Elemento.Cuenta & «Artículos»
Else
lista.Hide()
MyPLAYER.Width = 787
End If
End Sub
Private Sub list_SelectedIndexChanged(ByVal sender as System.Object, ByVal e as System.EventArgs) Lista de manejadores.SelectedIndexChanged
‘el mi jugador reproducirá o mostrará algo de la lista basado en el elemento seleccionado por el usuario
Mi jugador.URL = folderpath & «\» & lista.SelectedItem.toString
End Sub
Sub Privado VideosToolStripMenuItem_Click (remitente de ByVal Como Sistema.Object, ByVal e as System.EventArgs) Maneja VideosToolStripMenuItem.Haga clic en
Pruebe
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK Entonces
Dim di Como Nuevo IO.DirectoryInfo (FolderBrowserDialog1.Ruta seleccionada)
Diar1 Dim Como IO.FileInfo () = di.GetFiles («*.* «)
Dim dra As IO.FileInfo
folderpath = di.Nombre completo.toString
lista.Elemento.Clear ()
Para Cada dra En La lista diar1
.Elemento.Agregar(dra)
Siguiente
jokenresult()
End If
Catch ex as Exception
MsgBox(ex.Mensaje, MsgBoxStyle.Información)
End Try
MsgBox(folderpath)
End Sub
Private Sub ImagesToolStripMenuItem_Click(ByVal sender as System.Object, ByVal e as System.EventArgs) Maneja ImagesToolStripMenuItem.Haga clic en
Pruebe
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK Entonces
Dim di Como Nuevo IO.DirectoryInfo (FolderBrowserDialog1.Ruta seleccionada)
Diar1 Dim Como IO.FileInfo () = di.GetFiles («*.jpg»)
Dim dra As IO.FileInfo
folderpath = di.Nombre completo.toString
lista.Elemento.Clear ()
Para Cada dra En La lista diar1
.Elemento.Agregar(dra)
Siguiente
jokenresult()
End If
Catch ex as Exception
MsgBox(ex.Mensaje, MsgBoxStyle.Información)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender as System.Object, ByVal e as System.EventArgs) Maneja ExitToolStripMenuItem.Haga clic en
Me.Close ()
End Sub
Private Sub PlaylistEditorToolStripMenuItem_Click (Remitente de ByVal Como Sistema.Object, ByVal e as System.EventArgs) Maneja PlaylistEditorToolStripMenuItem.Haga clic en
‘ en esta línea si se hace clic en el editor de listas de reproducción, la lista aparecerá en el formulario.
If PlaylistEditorToolStripMenuItem.Marcado = Verdadero Y Luego
lista.Show()
MyPLAYER.Width = 577
Else
lista.Hide()
MyPLAYER.Width = 787
End If
End Sub
Private Sub mainFrm_Load(ByVal sender as System.Object, ByVal e as System.EventArgs) Handles MyBase.Cargar lista
.Elemento.Clear () ‘ borra todo el contenido de currect de la lista
lista.Hide() ‘ ocultará en el formulario principal
miPlayer.Width = 787 » va a cambiar el ancho de myPlayer en 787
End Sub
End Class