Hvordan Lage Media Player Ved Hjelp Av Visual Basic.Net
I denne opplæringen vil jeg lære Deg Hvordan du lager en tilpass Mediespiller som er i stand til å spille av lyder,Videoer og visning av bilder i annet format. Så la oss komme i gang. Men Siden Media Player ikke finnes i komponentdelen av toolbox, må vi legge Til Windows Media Player i toolbox. For å gjøre dette, følg bare de angitte trinnene.
- Gå til verktøykassen Og Høyreklikk
- velg Deretter Velg Elementer og Dialogboksen Tilpass Verktøykasse åpnes.
- og velg Windows Media Player på Com-Komponentene.
- Klikk deretter»OK»
- Og Til slutt Vil Windows Media Player control vises på gjeldende fane.
etter denne prosessen kan vi nå legge Til Windows Media Player I Skjemaet vårt og standardnavnet på denne kontrollen er «AxWindowsMediaPlayer1». Da er du fri til å endre navnet på dette objektet basert på hva du ønsker for eksempel å nevne det som «WMPlayer» slik at det kan være lettere å lese og huske.
Den neste prosessen er at vi skal legge til andre kontroller i skjemaet vårt Som Listbox, FolderBrowserDialog, Menustrip og StatusStrip.
Planlegge objekter og Egenskaper
Objekt |
Eiendom |
Innstillinger |
| Form1 | Navn | mainFrm |
| Tekst | Personlig Mediespiller | |
| Startposisjon | Midtskjerm | |
| Kontrollboks | Falsk | |
| AxWindowsMediaPlayer1 | Navn | myPlayer |
| Listeboks | Navn | Liste |
| MenuStrip1 | Navn | MenuStrip1 |
| StatusStrip1 | Navn | StatusStrip1 |
| FolderBrowserDialog1 | Navn | FolderBrowserDialog1 |
På MenuStrip1 må vi legge til to hovedmenyer Slike Biblioteker og Vise. Bibliotekene har også undermenyer som Musikk, Videoer, Bilder og Utgang. Og For Visningen undermenyen er bare Spilleliste Editor. Dette skal se ut som vist nedenfor.
og det endelige designet ser ut som vist nedenfor.
etter å designe vårt brukergrensesnitt, la Oss fortsette å legge til funksjoner i vårt program. Første trinn dobbeltklikk på hovedskjemaet, eller vi har navnet det til «mainFrm» for å skifte vår visningsdesigner til visningskode. Deretter legger du til denne koden på mainFrm_Load.
liste.Element.Clear () ‘ slett alt currect-innhold i listen
liste.Skjul () ‘ det vil gjemme på hovedskjemaet
myPlayer.Width = 787 ‘ det vil endre størrelsen på myplayer til 787
og på under Vår Offentlige klasse mainFrm legge denne erklæringen av variabel som vil holde senere banen til vår mappe. Og det vil like dette.
Public Class mainFrm
Dim folderpath Som Streng
etter å ha lagt til denne koden, skal vi lage en subprosedyre som vi skal bruke den til vårt program senere.
Offentlig Sub jokenresult ()
Hvis liste.Element.Count > 0 Deretter
liste.Vis ()
myPlayer.Bredde = 577
statresult.Tekst = liste.Element.Count & «Elementer»
Else
liste.Skjul()
myPlayer.Width = 787
End Hvis
End Sub
Neste vil vi legge til funksjonalitet til en undermenyelementer under biblioteker Musikken. For å gjøre dette bare dobbeltklikk musikk undermenyen. Da blir du omdirigert til kildekodevisning og legger til denne koden, slik at den nå skal se ut som vist nedenfor.
Privat Sub MusicToolStripMenuItem_Click (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer MusicToolStripMenuItem.Klikk
Prøv
‘ det vil åpne mappedialogboksen der du kan velge hvor er den spesifikke mappen til musikken din
FolderBrowserDialog1.ShowDialog ()
Hvis Dialogresultat.OK Da
‘ hvis sant at hvis du klikker ok på mappedialogboksen,vil
‘den få den valgte banen til mappen din og lagre den i di variabel
Dim di Som Ny IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ i denne kodelinjen vil den få all den spesifikke filen som har den .mp3 forlengelse og lagre den i diar1 variabel
Dim diar1 SOM IO.FileInfo () = Di. GetFiles («*. mp3»)
Dim Dra SOM IO.FileInfo
‘og i denne linjen vil den samle all informasjon med hensyn til fullpath og navn på alle filer og lagre den til folderpath variabelen
folderpath = di.Fullt navn.ToString
liste.Element.Clear()
‘oppgi navnene på alle filene i den angitte katalogen
For hver dra i diar1
Dim A Som Heltall = 0
‘ a = a + 1
liste.Element.Legg til (dra)
Neste
‘det vil kalle underprosedyren jokenresult() for å utføre noen handlinger
Jokenresult()
Slutt Hvis
Catch ex Som Unntak
‘hvis feil oppstår, vil programmet fange det og sende det tilbake til brukeren.
MsgBox(eks.Melding, MsgBoxStyle.Informasjon)
End Try
End Sub
Og dette er prøven kjører programmet spiller en valgt musikk.
Og dette er prøven kjører programmet spiller en valgt Film.
og til slutt er dette hele kildekoden.
‘Beskrivelse: Personlig Mediespiller som lar brukeren spille Musikk,Video og bilder etc…
‘Forfatter: Joken Villanueva
‘ Dato Opprettet:Mars 23, 2011
‘Endret Av:
Offentlig klasse mainFrm
Dim folderpath Som Streng
Privat Sub MusicToolStripMenuItem_Click (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer MusicToolStripMenuItem.Klikk
Prøv
‘ det vil åpne mappedialogboksen der du kan velge hvor er den spesifikke mappen til musikken din
FolderBrowserDialog1.ShowDialog ()
Hvis Dialogresultat.OK Da
‘ hvis sant at hvis du klikker ok på mappedialogboksen,vil
‘den få den valgte banen til mappen din og lagre den i di variabel
Dim di Som Ny IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ i denne kodelinjen vil den få all den spesifikke filen som har den .mp3 forlengelse og lagre den i diar1 variabel
Dim diar1 SOM IO.FileInfo () = Di. GetFiles («*. mp3»)
Dim Dra SOM IO.FileInfo
‘og i denne linjen vil den samle all informasjon med hensyn til fullpath og navn på alle filer og lagre den til folderpath variabelen
folderpath = di.Fullt navn.ToString
liste.Element.Clear()
‘oppgi navnene på alle filene i den angitte katalogen
For hver dra i diar1
Dim A Som Heltall = 0
‘ a = a + 1
liste.Element.Legg til (dra)
Neste
‘det vil kalle underprosedyren jokenresult() for å utføre noen handlinger
Jokenresult()
Slutt Hvis
Catch ex Som Unntak
‘hvis feil oppstår, vil programmet fange det og sende det tilbake til brukeren.
MsgBox(eks.Melding, MsgBoxStyle.Informasjon)
Avslutt Forsøk
Avslutt Sub
Offentlig Sub jokenresult()
Hvis-liste.Element.Count > 0 Deretter
liste.Vis ()
myPlayer.Bredde = 577
statresult.Tekst = liste.Element.Count & «Elementer»
Else
liste.Skjul()
myPlayer.Bredde = 787
Slutt Hvis
Slutt Sub
Privat sub list_SelectedIndexChanged (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Handterer listen.SelectedIndexChanged
‘ myPlayer vil spille eller vise noe fra listen basert på brukerens valgte element
myPlayer.URL = folderpath & » \ » & liste.Valgt element.ToString
Slutt Sub
Privat Sub VideosToolStripMenuItem_Click (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer VideosToolStripMenuItem.Klikk
Prøv
FolderBrowserDialog1.ShowDialog ()
Hvis Dialogresultat.OK Da
Dim di Som Ny IO.DirectoryInfo (FolderBrowserDialog1.Valgt sti)
Dim diar1 SOM IO.FileInfo () = di.GetFiles («*.*»)
Dim dra SOM IO.FileInfo
folderpath = di.Fullt navn.ToString
liste.Element.Fjern ()
For hver dra i diar1
liste.Element.Legg til (dra)
Neste
jokenresult ()
Avslutt Hvis
Ta ex som Unntak
MsgBox (ex.Melding, MsgBoxStyle.Informasjon)
Avslutt Prøve
MsgBox(folderpath)
Slutt Sub
Privat Sub ImagesToolStripMenuItem_Click(ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer ImagesToolStripMenuItem.Klikk
Prøv
FolderBrowserDialog1.ShowDialog ()
Hvis Dialogresultat.OK Da
Dim di Som Ny IO.DirectoryInfo (FolderBrowserDialog1.Valgt sti)
Dim diar1 SOM IO.FileInfo () = di.GetFiles («*.jpg»)
Dim dra SOM IO.FileInfo
folderpath = di.Fullt navn.ToString
liste.Element.Fjern ()
For hver dra i diar1
liste.Element.Legg til (dra)
Neste
jokenresult ()
Avslutt Hvis
Ta ex som Unntak
MsgBox (ex.Melding, MsgBoxStyle.Informasjon)
Avslutt Forsøk
Avslutt Sub
Privat Sub ExitToolStripMenuItem_Click (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer ExitToolStripMenuItem.Klikk
Meg.Lukk ()
Slutt Sub
Privat Sub PlaylistEditorToolStripMenuItem_click (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer PlaylistEditorToolStripMenuItem.Klikk
‘ i denne linjen hvis spillelisteditoren er, klikker listen på skjemaet.
Hvis PlaylistEditorToolStripMenuItem.Sjekket = Sant da
liste.Vis ()
myPlayer.Bredde = 577
Else
liste.Skjul()
myPlayer.Bredde = 787
Slutt Hvis
Slutt Sub
Privat sub mainFrm_Load (ByVal sender Som System.Objekt, ByVal e Som System.EventArgs) Håndterer MyBase.Last inn
liste.Element.Clear () ‘ slett alt currect-innhold i listen
liste.Skjul () ‘ det vil gjemme på hovedskjemaet
myPlayer.Bredde = 787 ‘ det vil endre størrelsen på myplayer til 787
End Sub
End Klasse