Come rendere il lettore multimediale utilizzando Visual Basic.Net
In questo tutorial, ti insegnerò Come creare un lettore multimediale personalizzato in grado di riprodurre suoni,video e visualizzazione di immagini in diversi formati. Quindi iniziamo. Ma dal momento che Media Player non esiste nella parte componente di toolbox, abbiamo bisogno di aggiungere Windows Media Player alla casella degli strumenti. Per fare questo, basta seguire i passaggi indicati.
- Vai alla casella degli strumenti e fai clic destro
- Quindi seleziona Scegli elementi e si aprirà la finestra di dialogo Personalizza Toolbox.
- E selezionare Windows Media Player sui componenti COM.
- Quindi fare clic su “OK”
- E, infine, il controllo di Windows Media Player apparirà nella scheda corrente.
Dopo questo processo possiamo aggiungere ora Windows Media Player al nostro modulo e il nome predefinito di questo controllo è “AxWindowsMediaPlayer1”. Quindi sei libero di cambiare il nome di questo oggetto in base a ciò che desideri, ad esempio chiamarlo “WMPlayer” in modo che possa essere più facilmente letto e ricordato.
Il processo successivo è che aggiungeremo altri controlli al nostro modulo come Listbox, FolderBrowserDialog, MenuStrip e StatusStrip.
Piano gli oggetti e le Proprietà
Oggetto |
Proprietà |
Impostazioni |
| Form1 | Nome | mainFrm |
| Testo | Personal Media Player | |
| StartPosition | CenterScreen | |
| ControlBox | False | |
| AxWindowsMediaPlayer1 | Nome | myPlayer |
| Listbox | Nome | Elenco |
| MenuStrip1 | Nome | MenuStrip1 |
| StatusStrip1 | Nome | StatusStrip1 |
| FolderBrowserDialog1 | Nome | FolderBrowserDialog1 |
Sul MenuStrip1 abbiamo bisogno di aggiungere due menu principali Biblioteche e Vista. Le librerie ha anche sottomenu come Musica, video, immagini e di uscita. E per il sottomenu Visualizza è solo Editor Playlist. Questo dovrebbe apparire come mostrato di seguito.
E il design finale è simile a come mostrato di seguito.
Dopo aver progettato la nostra interfaccia utente procediamo ad aggiungere funzionalità al nostro programma. Primo passo fare doppio clic sul modulo principale o abbiamo il nome in “mainFrm” per spostare il nostro Designer vista in codice vista. Quindi sul mainFrm_Load aggiungi questo codice.
elenco.Elemento.Clear () ‘ cancella tutto il contenuto corretto dell’elenco
.Hide () ‘ nasconderà il modulo principale
myPlayer.Width = 787 ‘ ridimensionerà la larghezza di myPlayer in 787
e al di sotto della nostra classe Pubblica mainFrm aggiungi questa dichiarazione di variabile che manterrà il percorso successivo della nostra cartella. E sarà come questo.
Public Class mainFrm
Dim folderpath As String
Dopo aver aggiunto questo codice creeremo una sotto procedura che useremo per il nostro programma in seguito.
Sub pubblico jokenresult ()
Elenco If.Elemento.Conta > 0 Quindi
elenco.Mostra ()
Il mio giocatore.Width = 577
statresult.Testo = elenco.Elemento.Conteggio &”Articoli”
Altro
elenco.Hide ()
myPlayer.Width = 787
End If
End Sub
Successivamente aggiungeremo funzionalità alle voci di un sottomenu sotto librerie la Musica. Per fare questo basta semplicemente fare doppio clic sul sottomenu Musica. Quindi verrai reindirizzato alla vista del codice sorgente e aggiungerai questo codice in modo che ora dovrebbe apparire come mostrato di seguito.
Sub MusicToolStripMenuItem_Click privato(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce MusicToolStripMenuItem.Fare clic su
Provare
‘si aprirà la finestra di dialogo cartella in cui è possibile selezionare dove si trova la cartella specifica della tua musica
FolderBrowserDialog1.ShowDialog ()
Se DialogResult.OK Quindi
‘se è vero che se si fa clic su ok nella finestra di dialogo della cartella,
‘otterrà il percorso selezionato della cartella e lo memorizzerà nella variabile di
Dim di Come nuovo IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘in questa riga di codice otterrà tutto il file specifico che ha il .estensione mp3 e memorizzarlo in diar1 variabile
Dim diar1 Come IO.FileInfo () = di. GetFiles (“*. mp3”)
Dim dra come IO.FileInfo
‘e in questa riga raccoglierà tutte le informazioni relative a fullpath e ai nomi di tutti i file e le memorizzerà nella variabile folderpath
folderpath = di.FullName.toString
lista.Elemento.Clear ()
‘ elenca i nomi di tutti i file nella directory specificata
Per ogni dra In diar1
Dim a Come Integer = 0
‘ a = a + 1
elenca.Elemento.Add(dra)
Next
‘chiamerà la sotto procedura jokenresult() per eseguire alcune azioni
jokenresult()
End If
Catch ex As Exception
‘se si verificano errori, il programma lo catturerà e lo invierà all’utente.
MsgBox (es.Messaggio, MsgBoxStyle.Informazioni)
Prova finale
Sub finale
E questo è il programma in esecuzione di esempio che riproduce una musica selezionata.
E questo è il programma di esempio che esegue la riproduzione di un filmato selezionato.
E infine questo è tutto il codice sorgente.
‘Descrizione: Personal Media Player che permette di riprodurre Musica,Video e foto, etc…
‘Autore: Joken Villanueva
‘Data di creazione:Marzo 23, 2011
‘Modificato Da:
Public Class mainFrm
Dim folderpath Come Stringa
Private Sub MusicToolStripMenuItem_Click(ByVal sender As System.Oggetto, ByVal e Come sistema.EventArgs) Gestisce MusicToolStripMenuItem.Fare clic su
Provare
‘si aprirà la finestra di dialogo cartella in cui è possibile selezionare dove si trova la cartella specifica della tua musica
FolderBrowserDialog1.ShowDialog ()
Se DialogResult.OK Quindi
‘se è vero che se si fa clic su ok nella finestra di dialogo della cartella,
‘otterrà il percorso selezionato della cartella e lo memorizzerà nella variabile di
Dim di Come nuovo IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘in questa riga di codice otterrà tutto il file specifico che ha il .estensione mp3 e memorizzarlo in diar1 variabile
Dim diar1 Come IO.FileInfo () = di. GetFiles (“*. mp3”)
Dim dra come IO.FileInfo
‘e in questa riga raccoglierà tutte le informazioni relative a fullpath e ai nomi di tutti i file e le memorizzerà nella variabile folderpath
folderpath = di.FullName.toString
lista.Elemento.Clear ()
‘ elenca i nomi di tutti i file nella directory specificata
Per ogni dra In diar1
Dim a Come Integer = 0
‘ a = a + 1
elenca.Elemento.Add(dra)
Next
‘chiamerà la sotto procedura jokenresult() per eseguire alcune azioni
jokenresult()
End If
Catch ex As Exception
‘se si verificano errori, il programma lo catturerà e lo invierà all’utente.
MsgBox (es.Messaggio, MsgBoxStyle.Informazioni)
Prova finale
Sub finale
Sub pubblico jokenresult ()
Elenco If.Elemento.Conta > 0 Quindi
elenco.Mostra ()
Il mio giocatore.Width = 577
statresult.Testo = elenco.Elemento.Conteggio &”Articoli”
Altro
elenco.Hide ()
myPlayer.Width = 787
End If
End Sub
Sub privato list_SelectedIndexChanged(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce l’elenco.SelectedIndexChanged
‘myPlayer riprodurrà o visualizzerà qualcosa dall’elenco in base all’elemento selezionato dall’utente
myPlayer.URL = folderpath & ” \ ” & elenco.Oggetto selezionato.toString
End Sub
Sub privato VideosToolStripMenuItem_Click(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce VideosToolStripMenuItem.Fare clic su
Provare
FolderBrowserDialog1.ShowDialog ()
Se DialogResult.OK Allora
Dim di Come nuovo IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 Come IO.FileInfo () = di.GetFiles(“*.* “)
Dim dra As IO.FileInfo
folderpath = di.FullName.toString
lista.Elemento.Clear ()
Per ogni dra In diar1
elenco.Elemento.Aggiungi (dra)
Avanti
jokenresult ()
Fine se
Cattura ex come eccezione
MsgBox (ex.Messaggio, MsgBoxStyle.Informazioni)
Prova finale
MsgBox (folderpath)
Sub finale
Sub privato ImagesToolStripMenuItem_Click(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce ImagesToolStripMenuItem.Fare clic su
Provare
FolderBrowserDialog1.ShowDialog ()
Se DialogResult.OK Allora
Dim di Come nuovo IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 Come IO.FileInfo () = di.GetFiles(“*.jpg”)
Dim dra Come IO.FileInfo
folderpath = di.FullName.toString
lista.Elemento.Clear ()
Per ogni dra In diar1
elenco.Elemento.Aggiungi (dra)
Avanti
jokenresult ()
Fine se
Cattura ex come eccezione
MsgBox (ex.Messaggio, MsgBoxStyle.Informazioni)
Prova finale
Sub finale
Sub privato ExitToolStripMenuItem_Click(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce ExitToolStripMenuItem.Fare clic su
Me.Chiudi ()
Termina Sub
Sub privato PlaylistEditorToolStripMenuItem_Click(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce PlaylistEditorToolStripMenuItem.Fare clic su
‘ in questa riga se l’editor della playlist è fare clic, l’elenco verrà visualizzato sul modulo.
Se PlaylistEditorToolStripMenuItem.Checked = True Quindi
elenco.Mostra ()
Il mio giocatore.Width = 577
Altro
elenco.Hide ()
myPlayer.Width = 787
End If
End Sub
Sub privato mainFrm_Load(mittente ByVal come sistema.Oggetto, ByVal e Come sistema.EventArgs) Gestisce MyBase.Caricare
elenco.Elemento.Clear () ‘ cancella tutto il contenuto corretto dell’elenco
.Hide () ‘ nasconderà il modulo principale
myPlayer.Width = 787 ‘ ridimensionerà la larghezza di myPlayer in 787
End Sub
End Class