Cum se face Media Player folosind Visual Basic.Net
în acest tutorial, vă voi învăța cum să creați un player media personalizat,capabil să redea sunete, videoclipuri și să vizualizeze imagini în format diferit. Deci, să începem. Dar, deoarece Media Player nu există în porțiunea componentă a toolbox, trebuie să adăugăm Windows Media Player la toolbox. Pentru a face acest lucru, trebuie doar să urmați pașii dați.
- accesați caseta de instrumente și faceți clic dreapta pe
- apoi selectați Alegeți elemente și se va deschide caseta de dialog Personalizare casetă de instrumente.
- și selectați Windows Media Player pe componentele COM.
- apoi faceți clic pe „OK”
- și în final, Windows Media Player control va apărea în fila curentă.
după acest proces, putem adăuga acum Windows Media Player La formularul nostru și numele implicit al acestui control este „AxWindowsMediaPlayer1”. Apoi, sunteți liber să schimbați numele acestui obiect pe baza a ceea ce doriți, de exemplu, să îl numiți „WMPlayer”, astfel încât să poată fi mai ușor de citit și de reținut.
următorul proces este că vom adăuga alte controale la formularul nostru, cum ar fi Listbox, FolderBrowserDialog, MenuStrip și StatusStrip.
planificați obiectele și proprietățile
obiect |
proprietate |
Setări |
| Form1 | nume | mainFrm |
| Text | Media Player Personal | |
| Startpoziție | CenterScreen | |
| ControlBox | fals | |
| AxWindowsMediaPlayer1 | nume | myPlayer |
| Listbox | nume | listă |
| MenuStrip1 | nume | MenuStrip1 |
| StatusStrip1 | nume | StatusStrip1 |
| FolderBrowserDialog1 | nume | FolderBrowserDialog1 |
pe MenuStrip1 trebuie să adăugăm două meniuri principale, cum ar fi bibliotecile și vizualizarea. Bibliotecile are, de asemenea, sub meniuri, cum ar fi muzica, clipuri video, imagini și de ieșire. Și pentru submeniul View este doar editorul Playlist. Acest lucru ar trebui să arate așa cum se arată mai jos.
și designul final este arata ca așa cum se arată mai jos.
după proiectarea interfața noastră de utilizator să procedeze în adăugarea de funcționalități la programul nostru. Primul pas faceți dublu clic pe formularul principal sau l-am numit în „mainFrm” pentru a schimba designerul nostru de vizualizare în codul de vizualizare. Apoi, pe mainFrm_Load adăugați acest cod.
listă.Articole.Șterge () ‘ șterge tot conținutul corect al listei
.Ascunde () ‘ se va ascunde pe formularul principal
myPlayer.Width = 787 ‘ se va redimensiona lățimea myPlayer în 787
și pe de mai jos a Mainfrm noastre de clasă publică adăuga această declarație de variabilă care va deține mai târziu calea de dosarul nostru. Și va place acest lucru.
Public Class mainFrm
dim folderpath ca String
după adăugarea acestui Cod vom crea o sub procedură pe care o vom folosi pentru programul nostru mai târziu.
publice sub jokenresult ()
dacă lista.Articole.Numărați > 0 apoi
listă.Arată ()
myPlayer.Width = 577
statresult.Text = listă.Articole.Count& „Items”
else
listă.Ascunde ()
myPlayer.Width = 787
End If
End Sub
în continuare vom adăuga funcționalitate la elementele de sub meniu sub biblioteci muzica. Pentru a face acest lucru, pur și simplu faceți dublu clic pe submeniul Muzică. Apoi, veți fi redirecționat către vizualizarea codului sursă și adăugați acest cod, așa că ar trebui să arate acum așa cum se arată mai jos.
sub MusicToolStripMenuItem_Click privat(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Se Ocupă De MusicToolStripMenuItem.Faceți clic pe
încercați
‘se va deschide dialogul de folder unde puteți selecta unde este folderul specific al muzicii dvs.
FolderBrowserDialog1.ShowDialog ()
Dacă DialogResult.OK apoi
‘dacă este adevărat că dacă faceți clic pe OK pe caseta de dialog folder, atunci
‘va primi calea selectată a folderului dvs. și o va stoca în variabila di
Dim di ca IO nou.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘în această linie de cod va primi toate fișierul specific care are .extensie mp3 și păstrați-l în diar1 variabilă
dim diar1 ca IO.FileInfo () = di.GetFiles(„*.mp3”)
dim dra ca IO.FileInfo
‘și în această linie va aduna toate informațiile cu privire la calea completă și numele tuturor fișierelor și le va stoca în variabila folderpath
folderpath = di.Nume complet.ToString
listă.Articole.Clear ()
‘ listează numele tuturor fișierelor din directorul specificat
Pentru fiecare dra din diar1
Dim A Ca Integer = 0
‘ a = a + 1
listă.Articole.Adauga(dra)
Next
‘se va apela sub procedura jokenresult() pentru a efectua unele acțiuni
jokenresult()
End Dacă
captură ex ca excepție
‘dacă apar erori, atunci programul va prinde și trimite-l înapoi la utilizator.
MsgBox (ex.Mesaj, MsgBoxStyle.Informații)
End Try
End Sub
și acesta este eșantionul care rulează programul care redă o muzică selectată.
și acesta este programul eșantion care rulează redarea unui film selectat.
și în cele din urmă acest lucru este tot codul sursă.
‘descriere: Media Player Personal care permite utilizatorului să redea muzică,Video și imagini etc…
‘autor: Joken Villanueva
‘ data creării: Martie 23, 2011
‘modificat de:
Public Class mainFrm
dim folderpath ca String
private sub MusicToolStripMenuItem_Click(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Se Ocupă De MusicToolStripMenuItem.Faceți clic pe
încercați
‘se va deschide dialogul de folder unde puteți selecta unde este folderul specific al muzicii dvs.
FolderBrowserDialog1.ShowDialog ()
Dacă DialogResult.OK apoi
‘dacă este adevărat că dacă faceți clic pe OK pe caseta de dialog folder, atunci
‘va primi calea selectată a folderului dvs. și o va stoca în variabila di
Dim di ca IO nou.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘în această linie de cod va primi toate fișierul specific care are .extensie mp3 și păstrați-l în diar1 variabilă
dim diar1 ca IO.FileInfo () = di.GetFiles(„*.mp3”)
dim dra ca IO.FileInfo
‘și în această linie va aduna toate informațiile cu privire la calea completă și numele tuturor fișierelor și le va stoca în variabila folderpath
folderpath = di.Nume complet.ToString
listă.Articole.Clear ()
‘ listează numele tuturor fișierelor din directorul specificat
Pentru fiecare dra din diar1
Dim A Ca Integer = 0
‘ a = a + 1
listă.Articole.Adauga(dra)
Next
‘se va apela sub procedura jokenresult() pentru a efectua unele acțiuni
jokenresult()
End Dacă
captură ex ca excepție
‘dacă apar erori, atunci programul va prinde și trimite-l înapoi la utilizator.
MsgBox (ex.Mesaj, MsgBoxStyle.Informații)
End Try
End Sub
Public Sub jokenresult ()
dacă lista.Articole.Numărați > 0 apoi
listă.Arată ()
myPlayer.Width = 577
statresult.Text = listă.Articole.Count& „Items”
else
listă.Ascunde ()
myPlayer.Width = 787
End Dacă
End Sub
privat sub list_SelectedIndexChanged(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) mânere listă.SelectedIndexChanged
‘myPlayer va reda sau afișa ceva din listă pe baza elementului selectat de utilizator
myPlayer.URL = folderpath & ” \ ” & listă.Selectați elementul.ToString
End Sub
privat sub VideosToolStripMenuItem_Click(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Se Ocupă De VideosToolStripMenuItem.Faceți Clic Pe
Încercați
FolderBrowserDialog1.ShowDialog ()
Dacă DialogResult.OK atunci
Dim di ca IO nou.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
dim diar1 ca IO.FileInfo () = di.GetFiles („*.*”)
dim dra ca IO.FileInfo
folderpath = di.Nume complet.ToString
listă.Articole.Clear ()
Pentru fiecare dra din diar1
listă.Articole.Adăugați (dra)
următor
jokenresult ()
End Dacă
captură ex ca excepție
MsgBox (ex.Mesaj, MsgBoxStyle.Informații)
End încercați
MsgBox(folderpath)
End Sub
private sub ImagesToolStripMenuItem_Click(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Se Ocupă De ImagesToolStripMenuItem.Faceți Clic Pe
Încercați
FolderBrowserDialog1.ShowDialog ()
Dacă DialogResult.OK atunci
Dim di ca IO nou.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
dim diar1 ca IO.FileInfo () = di.GetFiles („*.jpg”)
Dim dra ca IO.FileInfo
folderpath = di.Nume complet.ToString
listă.Articole.Clear ()
Pentru fiecare dra din diar1
listă.Articole.Adăugați (dra)
următor
jokenresult ()
End Dacă
captură ex ca excepție
MsgBox (ex.Mesaj, MsgBoxStyle.Informații)
End Try
End Sub
private sub ExitToolStripMenuItem_Click(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Mânere ExitToolStripMenuItem.Faceți Clic Pe
Pe Mine.Close ()
End Sub
privat sub PlaylistEditorToolStripMenuItem_click(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Se Ocupă De PlaylistEditorToolStripMenuItem.Faceți clic pe
‘în această linie dacă editorul playlist este faceți clic pe lista va sho pe formular.
Dacă PlaylistEditorToolStripMenuItem.Verificat = adevărat atunci
listă.Arată ()
myPlayer.Width = 577
else
listă.Ascunde ()
myPlayer.Width = 787
End Dacă
End Sub
sub mainFrm_Load privat(byval expeditor ca sistem.Obiect, ByVal e ca sistem.EventArgs) Se Ocupă De MyBase.Încărcați lista
.Articole.Șterge () ‘ șterge tot conținutul corect al listei
.Ascunde () ‘ se va ascunde pe formularul principal
myPlayer.Width = 787 ‘ se va redimensiona lățimea myPlayer în 787
End Sub
End Class