Hogyan készítsünk médialejátszót a Visual használatával Basic.Net
ebben az oktatóanyagban megtanítom, hogyan lehet létrehozni egy testreszabható médialejátszót,amely képes hangok, videók lejátszására és különböző formátumú képek megtekintésére. Akkor kezdjük el. De mivel a médialejátszó nem létezik az eszköztár komponens részében, hozzá kell adnunk a Windows Media Playert az eszköztárhoz. Ehhez csak kövesse a megadott lépéseket.
- nyissa meg az eszköztárat, és kattintson a jobb gombbal a
- elemre, majd válassza az elemek kiválasztása lehetőséget, és megnyílik az Eszköztár testreszabása párbeszédpanel.
- és válassza a Windows Media Player lehetőséget a COM-összetevőkön.
- Ezután kattintson az “OK”
- elemre, végül a Windows Media Player vezérlő megjelenik az aktuális lapon.
a folyamat után most hozzáadhatjuk a Windows Media Playert az Űrlapunkhoz, és ennek a vezérlőnek az alapértelmezett neve “AxWindowsMediaPlayer1”. Ezután szabadon megváltoztathatja ennek az objektumnak a nevét az alapján, amit szeretne, például, hogy “WMPlayer” – nek nevezze el, hogy könnyebben olvasható és megjegyezhető legyen.
a következő folyamat az, hogy más vezérlőket fogunk hozzáadni az űrlapunkhoz, mint például a Listbox, a FolderBrowserDialog, a MenuStrip és a StatusStrip.
tervezze meg az objektumokat és tulajdonságokat
tárgy |
ingatlan |
Beállítások |
| Form1 | név | mainFrm |
| szöveg | személyes médialejátszó | |
| Startpozíció | Középképernyő | |
| ControlBox | hamis | |
| AxWindowsMediaPlayer1 | név | myPlayer |
| Listbox | név | lista |
| MenuStrip1 | név | MenuStrip1 |
| StatusStrip1 | név | StatusStrip1 |
| FolderBrowserDialog1 | név | FolderBrowserDialog1 |
a MenuStrip1-en két fő menüt kell hozzáadnunk, például a könyvtárakat és a nézetet. A könyvtárak is almenük, mint a zene, videók, képek és kilépés. A Nézet almenü pedig csak a lejátszási lista szerkesztő. Ennek úgy kell kinéznie, mint az alábbiakban látható.
és a végső design néz ki, mint az alábbi ábrán látható.
a felhasználói felület megtervezése után folytassuk a funkciók hozzáadását a programunkhoz. Első lépés Kattintson duplán a fő űrlapra, vagy megnevezzük a “mainFrm” – be, hogy a nézettervezőt nézetkódra váltsuk. Ezután a mainFrm_Load-on adja hozzá ezt a kódot.
lista.Elemek.Clear () ‘ a
lista összes currect tartalmának törlése.Hide () ‘ ez elrejti a fő formája
myPlayer.Width = 787 ‘ átméretezi a MyPLAYER szélességét 787
– ra, a mainFrm nyilvános osztályunk alatt pedig hozzáadja ezt a változó deklarációt, amely a mappánk későbbi elérési útját tárolja. És így fog tetszeni.
Public Class mainFrm
Dim folderpath karakterláncként
a kód hozzáadása után létrehozunk egy aleljárást, amelyet később használni fogunk a programunkhoz.
nyilvános Sub jokenresult()
if lista.Elemek.Szám > 0 majd
lista.Show()
myPlayer.Width = 577
statresult.Szöveg = lista.Elemek.Gróf &”tételek”
Else
lista.Hide()
myPlayer.Width = 787
End If
End Sub
következő fogunk hozzá funkciókat az egyik almenü elemek alatt könyvtárak a zene. Ehhez egyszerűen kattintson duplán a zene almenüre. Ezután átirányítja a forráskód nézetbe, és hozzáadja ezt a kódot, így most úgy kell kinéznie, mint az alábbiakban látható.
privát Sub MusicToolStripMenuItem_Click (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli MusicToolStripMenuItem.Kattintson
próbálja
‘ ekkor megnyílik a mappa párbeszédablak, ahol kiválaszthatja, hogy hol van az adott mappát a zene
FolderBrowserDialog1.ShowDialog()
Ha DialogResult.OK akkor
‘ha igaz, hogy ha az OK gombra kattint a mappa párbeszédpanelen, akkor
‘megkapja a mappa kiválasztott elérési útját, és tárolja a di változóban
Dim di új IO-ként.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ebben a kódsorban megkapja az összes fájlt, amely rendelkezik a .mp3 kiterjesztés és tárolja a diar1 változó
Dim diar1 mint IO.FileInfo () = di.GetFiles(“*.mp3”)
Dim dra mint IO.FileInfo
‘és ebben a sorban összegyűjti az összes információt a teljes útvonalról és az összes fájl nevéről, és tárolja a folderpath változóban
folderpath = di.Teljes név.ToString
lista.Elemek.Clear ()
‘ sorolja fel a megadott könyvtár összes fájljának nevét
minden egyes dra-hoz a diar1-ben
Dim A As Integer = 0
‘ a = A + 1
lista.Elemek.Add (dra)
Next
‘meg fogja hívni a jokenresult () aleljárást, hogy végrehajtson néhány műveletet
jokenresult ()
End If
Catch ex As Exception
‘ha hiba történik, akkor a program elkapja és visszaküldi a felhasználónak.
MsgBox (pl.Üzenet, MsgBoxStyle.Információ)
End Try
End Sub
és ez a minta futó program játszik le egy kiválasztott zenét.
és ez a minta futó program játszik le egy kiválasztott filmet.
és végül ez az összes forráskód.
‘leírás: személyes médialejátszó,amely lehetővé teszi a felhasználó számára, hogy zenét, videót és képeket stb…
‘ szerző: Joken Villanueva
‘ Létrehozás dátuma: március 23, 2011
‘módosította:
nyilvános osztály mainFrm
Dim folderpath karakterláncként
privát Sub MusicToolStripMenuItem_Click (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli MusicToolStripMenuItem.Kattintson
próbálja
‘ ekkor megnyílik a mappa párbeszédablak, ahol kiválaszthatja, hogy hol van az adott mappát a zene
FolderBrowserDialog1.ShowDialog()
Ha DialogResult.OK akkor
‘ha igaz, hogy ha az OK gombra kattint a mappa párbeszédpanelen, akkor
‘megkapja a mappa kiválasztott elérési útját, és tárolja a di változóban
Dim di új IO-ként.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ebben a kódsorban megkapja az összes fájlt, amely rendelkezik a .mp3 kiterjesztés és tárolja a diar1 változó
Dim diar1 mint IO.FileInfo () = di.GetFiles(“*.mp3”)
Dim dra mint IO.FileInfo
‘és ebben a sorban összegyűjti az összes információt a teljes útvonalról és az összes fájl nevéről, és tárolja a folderpath változóban
folderpath = di.Teljes név.ToString
lista.Elemek.Clear ()
‘ sorolja fel a megadott könyvtár összes fájljának nevét
minden egyes dra-hoz a diar1-ben
Dim A As Integer = 0
‘ a = A + 1
lista.Elemek.Add (dra)
Next
‘meg fogja hívni a jokenresult () aleljárást, hogy végrehajtson néhány műveletet
jokenresult ()
End If
Catch ex As Exception
‘ha hiba történik, akkor a program elkapja és visszaküldi a felhasználónak.
MsgBox (pl.Üzenet, MsgBoxStyle.Információ)
vége próbálja
vége Sub
nyilvános Sub jokenresult()
if lista.Elemek.Szám > 0 majd
lista.Show()
myPlayer.Width = 577
statresult.Szöveg = lista.Elemek.Gróf &”tételek”
Else
lista.Hide()
myPlayer.Width = 787
vége ha
vége Sub
privát Sub list_SelectedIndexChanged (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) kezeli a listát.SelectedIndexChanged
‘ a myPlayer lejátszik vagy megjelenít valamit a listából a felhasználó által kiválasztott
myPlayer elem alapján.URL = mappaút & ” \ ” & lista.Kiválasztott elem.ToString
End Sub
privát Sub VideosToolStripMenuItem_Click (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli VideosToolStripMenuItem.Kattintson A
Próbálja Meg A
FolderBrowserDialog1 Elemet.ShowDialog()
Ha DialogResult.OK akkor
Dim di mint új IO.DirectoryInfo (FolderBrowserDialog1.Kiválasztott útvonal)
Dim diar1 mint IO.FileInfo () = di.GetFiles (“*.*”)
Dim dra mint IO.FileInfo
folderpath = di.Teljes név.ToString
lista.Elemek.Clear()
az egyes dra diar1
lista.Elemek.Add (dra)
következő
jokenresult ()
vége, ha
Catch ex kivételként
MsgBox (ex.Üzenet, MsgBoxStyle.Információ)
vége próbálja
MsgBox (mappaút)
vége Sub
privát Sub ImagesToolStripMenuItem_Click(ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli ImagesToolStripMenuItem.Kattintson A
Próbálja Meg A
FolderBrowserDialog1 Elemet.ShowDialog()
Ha DialogResult.OK akkor
Dim di mint új IO.DirectoryInfo (FolderBrowserDialog1.Kiválasztott útvonal)
Dim diar1 mint IO.FileInfo () = di.GetFiles (“*.jpg”)
Dim dra mint IO.FileInfo
folderpath = di.Teljes név.ToString
lista.Elemek.Clear()
az egyes dra diar1
lista.Elemek.Add (dra)
következő
jokenresult ()
vége, ha
Catch ex kivételként
MsgBox (ex.Üzenet, MsgBoxStyle.Információ)
vége próbálja
vége Sub
privát Sub ExitToolStripMenuItem_Click (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli ExitToolStripMenuItem.Kattints
Nekem.Close()
End Sub
privát Sub PlaylistEditorToolStripMenuItem_click (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli PlaylistEditorToolStripMenuItem.Kattintson a
‘elemre ebben a sorban, ha a lejátszási lista szerkesztője kattint, akkor a lista az űrlapon jelenik meg.
Ha PlaylistEditorToolStripMenuItem.Checked = True akkor
lista.Show()
myPlayer.Width = 577
Else
lista.Hide()
myPlayer.Width = 787
vége ha
vége Sub
privát Sub mainFrm_Load (ByVal feladó rendszerként.Objektum, ByVal e mint rendszer.EventArgs) Kezeli MyBase.Load
lista.Elemek.Clear () ‘ a
lista összes currect tartalmának törlése.Hide () ‘ ez elrejti a fő formája
myPlayer.Width = 787 ‘ átméretezi a MyPLAYER szélességét 787
End Sub
End Class