Jak vytvořit přehrávač médií pomocí vizuálního Basic.Net
v tomto tutoriálu vás naučím, jak vytvořit vlastní přehrávač médií, který je schopen přehrávat zvuky, videa a prohlížet obrázky v jiném formátu. Tak začněme. Ale protože Media Player neexistuje v komponentní části panelu nástrojů, musíme přidat Windows Media Player do panelu nástrojů. Chcete-li to provést, postupujte podle uvedených kroků.
- přejděte na panel nástrojů a klikněte pravým tlačítkem myši
- poté vyberte vybrat položky a otevře se dialogové okno Přizpůsobit panel nástrojů.
- a vyberte Windows Media Player na komponentách COM.
- poté klikněte na“OK“
- a nakonec se na aktuální kartě objeví ovládání Windows Media Player.
po tomto procesu můžeme nyní přidat Windows Media Player do našeho formuláře a výchozí název tohoto ovládacího prvku je „AxWindowsMediaPlayer1“. Pak máte možnost změnit název tohoto objektu na základě toho, co si přejete, například jej pojmenovat jako „WMPlayer“, aby mohl být snadněji čitelný a zapamatovatelný.
dalším procesem je, že do našeho formuláře přidáme další ovládací prvky, jako jsou Listbox, FolderBrowserDialog, MenuStrip a StatusStrip.
Naplánujte objekty a vlastnosti
objekt |
nemovitosti |
nastavení |
| Form1 | Název | mainFrm |
| Text | osobní přehrávač médií | |
| StartPosition | středová obrazovka | |
| ControlBox | False | |
| AxWindowsMediaPlayer1 | Name | myPlayer |
| seznam | Název | seznam |
| MenuStrip1 | Název | MenuStrip1 |
| StatusStrip1 | Název | StatusStrip1 |
| FolderBrowserDialog1 | Name | FolderBrowserDialog1 |
na MenuStrip1 musíme přidat dvě hlavní nabídky, jako jsou knihovny a zobrazení. Knihovny má také dílčí menu, jako je hudba, videa, obrázky a Exit. A pro dílčí nabídku Zobrazit je pouze Editor seznamů skladeb. To by mělo vypadat, jak je uvedeno níže.
a konečný návrh vypadá, jak je uvedeno níže.
po návrhu našeho uživatelského rozhraní pokračujeme v přidávání funkcí do našeho programu. První krok dvakrát klikněte na hlavní formulář nebo jej pojmenujeme do „mainFrm“, abychom posunuli našeho návrháře zobrazení do kódu zobrazení. Pak na mainFrm_Load přidejte tento kód.
seznam.Položka.Vymazat () ‚ Vymazat veškerý currect obsah seznamu
seznam.Skrýt () ‚ skryje se na hlavním formuláři
myPlayer.Width = 787 ‚ změní velikost šířky myplayeru na 787
a pod naší veřejnou třídou mainFrm přidá toto prohlášení proměnné, která bude mít pozdější cestu k naší složce. A bude se to líbit.
veřejná třída mainFrm
Dim folderpath jako řetězec
po přidání tohoto kódu vytvoříme dílčí postup, který budeme používat pro náš program později.
Public Sub jokenresult ()
If list.Položka.Počet > 0 pak
seznam.Zobrazit ()
myPlayer.Width = 577
statresult.Text = seznam.Položka.Počet &“položky“
Else
seznam.Skrýt ()
myPlayer.Width = 787
konec, pokud
konec Sub
dále přidáme funkčnost k položkám pod menu knihovny Hudba. Chcete-li to provést, jednoduše dvakrát klikněte na podnabídku Hudba. Pak budete přesměrováni na zobrazení zdrojového kódu a přidejte tento kód, takže by nyní měl vypadat, jak je uvedeno níže.
Private Sub MusicToolStripMenuItem_Click (ByVal sender As System.Objekt, ByVal e jako systém.EventArgs) Zpracovává MusicToolStripMenuItem.Klikněte na
zkuste
‚ otevře se dialogové okno složky, kde můžete vybrat, kde je konkrétní složka vaší hudby
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK pak
‚pokud je pravda, že pokud kliknete na ok v dialogovém okně složka, pak
‚ získá vybranou cestu ke složce a uloží ji do proměnné di
Dim di jako nový IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‚ v tomto řádku kódu bude mít všechny konkrétní soubor, který má .mp3 rozšíření a uložit jej do diar1 proměnné
Dim diar1 jako IO.FileInfo () = di. GetFiles („*. mp3“)
Dim Dra As IO.FileInfo
‚ a v tomto řádku shromáždí všechny informace s regardsto fullpath a názvy všech souborů a uloží je do proměnné folderpath
folderpath = di.Celé jméno.ToString
seznam.Položka.Vymazat ()
‚seznam názvů všech souborů v zadaném adresáři
pro každou dra v diar1
Dim a As Integer = 0
‚ a = a + 1
seznam.Položka.Přidat (dra)
další
‚zavolá dílčí proceduru jokenresult() k provedení některých akcí
jokenresult ()
konec, pokud
chytit ex jako výjimku
‚ pokud dojde k chybám, program ji zachytí a odešle zpět uživateli.
MsgBox(ex.Zpráva, MsgBoxStyle.Informace)
End Try
End Sub
a toto je ukázkový běžící program přehrávající vybranou hudbu.
a toto je ukázkový běžící program přehrávající vybraný film.
a nakonec je to všechno zdrojový kód.
‚popis: osobní přehrávač médií, který umožňuje uživateli přehrávat hudbu, Video a obrázky atd …
‚ Autor: Joken Villanueva
‚ datum vytvoření: Březen 23, 2011
‚upraveno:
Public Class mainFrm
Dim folderpath jako řetězec
Private Sub MusicToolStripMenuItem_Click (ByVal sender jako systém.Objekt, ByVal e jako systém.EventArgs) Zpracovává MusicToolStripMenuItem.Klikněte na
zkuste
‚ otevře se dialogové okno složky, kde můžete vybrat, kde je konkrétní složka vaší hudby
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK pak
‚pokud je pravda, že pokud kliknete na ok v dialogovém okně složka, pak
‚ získá vybranou cestu ke složce a uloží ji do proměnné di
Dim di jako nový IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‚ v tomto řádku kódu bude mít všechny konkrétní soubor, který má .mp3 rozšíření a uložit jej do diar1 proměnné
Dim diar1 jako IO.FileInfo () = di. GetFiles („*. mp3“)
Dim Dra As IO.FileInfo
‚ a v tomto řádku shromáždí všechny informace s regardsto fullpath a názvy všech souborů a uloží je do proměnné folderpath
folderpath = di.Celé jméno.ToString
seznam.Položka.Vymazat ()
‚seznam názvů všech souborů v zadaném adresáři
pro každou dra v diar1
Dim a As Integer = 0
‚ a = a + 1
seznam.Položka.Přidat (dra)
další
‚zavolá dílčí proceduru jokenresult() k provedení některých akcí
jokenresult ()
konec, pokud
chytit ex jako výjimku
‚ pokud dojde k chybám, program ji zachytí a odešle zpět uživateli.
MsgBox(ex.Zpráva, MsgBoxStyle.Informace)
End Try
End Sub
Public Sub jokenresult ()
If list.Položka.Počet > 0 pak
seznam.Zobrazit ()
myPlayer.Width = 577
statresult.Text = seznam.Položka.Počet &“položky“
Else
seznam.Skrýt ()
myPlayer.Width = 787
End If
End Sub
Private Sub list_SelectedIndexChanged (ByVal sender As System.Objekt, ByVal e jako systém.EventArgs) zpracovává seznam.SelectedIndexChanged
‚ myPlayer přehraje nebo zobrazí něco ze seznamu na základě položky vybrané uživatelem
myPlayer.URL = folderpath & “ \ “ & seznam.Vyberte položku.ToString
End Sub
Private Sub VideosToolStripMenuItem_Click (ByVal sender As System.Objekt, ByVal e jako systém.EventArgs) Zpracovává VideosToolStripMenuItem.Klikněte Na
Zkuste
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK pak
Dim di jako nový IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 jako IO.FileInfo () = di.GetFiles („*.*“)
Dim Dra As IO.FileInfo
folderpath = di.Celé jméno.ToString
seznam.Položka.Vymazat ()
pro každou dra v seznamu diar1
.Položka.Přidat (dra)
další
jokenresult ()
konec, pokud
úlovek ex jako výjimka
MsgBox(ex.Zpráva, MsgBoxStyle.Informace)
End Try
MsgBox (folderpath)
End Sub
Private Sub ImagesToolStripMenuItem_Click (ByVal sender As System.Objekt, ByVal e jako systém.EventArgs) Zpracovává ImagesToolStripMenuItem.Klikněte Na
Zkuste
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK pak
Dim di jako nový IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 jako IO.FileInfo () = di.GetFiles („*.jpg“)
Dim Dra As IO.FileInfo
folderpath = di.Celé jméno.ToString
seznam.Položka.Vymazat ()
pro každou dra v seznamu diar1
.Položka.Přidat (dra)
další
jokenresult ()
konec, pokud
úlovek ex jako výjimka
MsgBox(ex.Zpráva, MsgBoxStyle.Informace)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click (ByVal sender As System.Objekt, ByVal e jako systém.EventArgs) Zpracovává ExitToolStripMenuItem.Klikněte Na
Mě.Zavřít ()
konec Sub
soukromý Sub PlaylistEditorToolStripMenuItem_click (ByVal sender jako systém.Objekt, ByVal e jako systém.EventArgs) Zpracovává PlaylistEditorToolStripMenuItem.Klikněte na
‚v tomto řádku je-li editor playlistu klepněte na tlačítko pak seznam bude sho na formuláři.
Pokud PlaylistEditorToolStripMenuItem.Checked = True pak
seznam.Zobrazit ()
myPlayer.Width = 577
Else
seznam.Skrýt ()
myPlayer.Width = 787
End If
End Sub
Private Sub mainFrm_Load (ByVal sender As System.Objekt, ByVal e jako systém.EventArgs) Zpracovává MyBase.Načíst
seznam.Položka.Vymazat () ‚ Vymazat veškerý currect obsah seznamu
seznam.Skrýt () ‚ skryje se na hlavním formuláři
myPlayer.Width = 787 ‚ změní velikost šířky myplayeru na 787
End Sub
End Class