Sådan laver du Medieafspiller ved hjælp af Visual Basic.Net
i denne tutorial vil jeg lære dig, hvordan du opretter en tilpas medieafspiller,der er i stand til at afspille lyde, videoer og visning af billeder i andet format. Så lad os komme i gang. Men da medieafspiller ikke findes i komponentdelen af værktøjskassen, er vi nødt til at tilføje vinduerne medieafspiller til værktøjskassen. For at gøre dette skal du bare følge de givne trin.
- gå til værktøjskassen og højreklik
- vælg derefter vælg elementer, og dialogboksen Tilpas værktøjskasse åbnes.
- og vælg vinduer medieafspiller på Com-komponenterne.
- klik derefter på “OK”
- og til sidst vises vinduer Media Player control på den aktuelle fane.
efter denne proces kan vi tilføje nu vinduer medieafspiller til vores formular, og standardnavnet på denne kontrol er “Øksvinduermediaplayer1”. Derefter er du fri til at ændre navnet på dette objekt baseret på hvad du ønsker for eksempel at navngive det som “Mmplayer”, så det lettere kunne læse og huske.
den næste proces er, at vi vil tilføje andre kontroller til vores formular som f.eks.
Planlæg objekter og egenskaber
objekt |
ejendom |
indstillinger |
| Form1 | navn | mainFrm |
| tekst | personlig medieafspiller | |
| StartPosition | CenterScreen | |
| kontrolboks | falsk | |
| Øksvinduermediaplayer1 | navn | myPlayer |
| listeboks | navn | liste |
| MenuStrip1 | navn | MenuStrip1 |
| StatusStrip1 | navn | StatusStrip1 |
| Foldebroserdialog1 | navn | Foldebroserdialog1 |
på MenuStrip1 skal vi tilføje to hovedmenuer sådanne biblioteker og visning. Bibliotekerne har også undermenuer som musik, videoer, billeder og udgang. Og for Vis undermenuen er kun afspilningsliste Editor. Dette skal se ud som vist nedenfor.
og det endelige design ser ud som vist nedenfor.
efter at designe vores brugergrænseflade Lad os fortsætte med at tilføje funktionaliteter til vores program. Første trin dobbeltklik på hovedformularen, eller vi har navngivet den til “mainFrm” for at skifte vores visningsdesigner til visningskode. Tilføj derefter denne kode på mainFrm_Load.
liste.Element.Ryd () ‘ Ryd alt currect-indhold på listen
liste.Skjul () ‘ det vil skjule på hovedformularen
myPlayer.Bredde = 787 ‘ det vil ændre størrelsen på bredden af myPlayer til 787
og nedenfor i vores offentlige klasse mainfrm Tilføj denne erklæring om variabel, der vil indeholde senere sti i vores mappe. Og det vil kunne lide dette.
offentlig klasse mainFrm
Dim folderpath som streng
efter at have tilføjet denne kode skal vi oprette en underprocedure, som vi vil bruge den til vores program senere.
Offentlig Sub jokenresultat ()
hvis liste.Element.Tæl > 0 derefter
liste.At vise ()
myPlayer.Bredde = 577
statresultat.Tekst = liste.Element.Count &”elementer”
Else
liste.Skjule ()
myPlayer.Bredde = 787
End If
End Sub
næste tilføjer vi funktionalitet til de ene undermenupunkter under biblioteker musikken. For at gøre dette skal du blot dobbeltklikke på undermenuen Musik. Derefter vil du blive omdirigeret til kildekodevisning og tilføje denne kode, så den nu skal se ud som vist nedenfor.
privat Sub MusicToolStripMenuItem_Click(ByVal afsender som System.Objekt, ByVal e som System.EventArgs) Håndterer MusicToolStripMenuItem.Klik på
prøv
‘det åbner mappedialogen, hvor du kan vælge, hvor er den specifikke mappe til din musik
Mappebroserdialog1.Visdialog ()
Hvis Dialogresultat.OK så
‘hvis det er sandt, at hvis du klikker på ok i mappedialogboksen, så
‘det får den valgte sti i din mappe og gemmer den i DI variabel
Dim di som ny io.DirectoryInfo (Brochurerdialog1.SelectedPath)
‘i denne linje af kode vil det få alle de specifikke fil, der har .mp3 udvidelse og gemme det i diar1 variabel
Dim diar1 som IO.FileInfo () = di. GetFiles (” * . mp3″)
Dim dra som IO.FileInfo
‘og i denne linje samler den alle oplysninger med hensyn til fullpath og navne på alle filer og gemmer den til folderpath-variablen
folderpath = di.FullName.ToString
liste.Element.Ryd ()
‘ liste navnene på alle filer i den angivne mappe
for hver dra i diar1
Dim A som heltal = 0
‘ a = a + 1
liste.Element.Tilføj (dra)
næste
‘det kalder underproceduren jokenresultat () for at udføre nogle handlinger
jokenresultat ()
Afslut hvis
Fang eks som undtagelse
‘hvis der opstår fejl, fanger programmet det og sender det tilbage til brugeren.
Msgboks (tidl.Besked, Msgboksstyle.Information)
End Try
End Sub
og dette er prøven kører program spille en valgt musik.
og dette er prøven kører program spille en valgt film.
og endelig er dette hele kildekoden.
‘ beskrivelse: personlig medieafspiller, der gør det muligt for brugeren at afspille musik, Video og billeder osv …
‘forfatter: Joken Villanueva
‘dato oprettet:marts 23, 2011
‘ændret af:
offentlig klasse mainFrm
Dim folderpath som streng
privat Sub MusicToolStripMenuItem_Click(ByVal afsender som System.Objekt, ByVal e som System.EventArgs) Håndterer MusicToolStripMenuItem.Klik på
prøv
‘det åbner mappedialogen, hvor du kan vælge, hvor er den specifikke mappe til din musik
Mappebroserdialog1.Visdialog ()
Hvis Dialogresultat.OK så
‘hvis det er sandt, at hvis du klikker på ok i mappedialogboksen, så
‘det får den valgte sti i din mappe og gemmer den i DI variabel
Dim di som ny io.DirectoryInfo (Brochurerdialog1.SelectedPath)
‘i denne linje af kode vil det få alle de specifikke fil, der har .mp3 udvidelse og gemme det i diar1 variabel
Dim diar1 som IO.FileInfo () = di. GetFiles (” * . mp3″)
Dim dra som IO.FileInfo
‘og i denne linje samler den alle oplysninger med hensyn til fullpath og navne på alle filer og gemmer den til folderpath-variablen
folderpath = di.FullName.ToString
liste.Element.Ryd ()
‘ liste navnene på alle filer i den angivne mappe
for hver dra i diar1
Dim A som heltal = 0
‘ a = a + 1
liste.Element.Tilføj (dra)
næste
‘det kalder underproceduren jokenresultat () for at udføre nogle handlinger
jokenresultat ()
Afslut hvis
Fang eks som undtagelse
‘hvis der opstår fejl, fanger programmet det og sender det tilbage til brugeren.
Msgboks (tidl.Besked, Msgboksstyle.Information)
End Try
End Sub
Offentlig Sub jokenresultat()
hvis liste.Element.Tæl > 0 derefter
liste.At vise ()
myPlayer.Bredde = 577
statresultat.Tekst = liste.Element.Count &”elementer”
Else
liste.Skjule ()
myPlayer.Bredde = 787
End If
End Sub
privat Sub list_selectedudveksled(ByVal afsender som System.Objekt, ByVal e som System.EventArgs) håndterer liste.Selecteduudveksled
‘myPlayer vil afspille eller vise noget fra listen baseret på det brugervalgte element
MyPlayer.URL = folderpath & ” \ ” & liste.SelectedItem.ToString
End Sub
privat Sub VideosToolStripMenuItem_Click(ByVal afsender som System.Objekt, ByVal e som System.EventArgs) Håndterer VideosToolStripMenuItem.Klik På
Prøv
Foldebroserdialog1.Visdialog ()
Hvis Dialogresultat.OK så
Dim di som ny io.DirectoryInfo (Brochurerdialog1.SelectedPath)
Dim diar1 som IO.FileInfo () = di.GetFiles (“*.*”)
Dim dra som IO.FileInfo
folderpath = di.FullName.ToString
liste.Element.Klar()
for hver dra i diar1
liste.Element.Tilføj (dra)
næste
jokenresultat ()
slut hvis
Fang eks som undtagelse
Msgboks (eks.Besked, Msgboksstyle.Information)
End Try
Msgboks(foldersti)
End Sub
privat Sub ImagesToolStripMenuItem_Click(ByVal sender som System.Objekt, ByVal e som System.EventArgs) Håndterer ImagesToolStripMenuItem.Klik På
Prøv
Foldebroserdialog1.Visdialog ()
Hvis Dialogresultat.OK så
Dim di som ny io.DirectoryInfo (Brochurerdialog1.SelectedPath)
Dim diar1 som IO.FileInfo () = di.GetFiles (“*.jpg”)
Dim dra som IO.FileInfo
folderpath = di.FullName.ToString
liste.Element.Klar()
for hver dra i diar1
liste.Element.Tilføj (dra)
næste
jokenresultat ()
slut hvis
Fang eks som undtagelse
Msgboks (eks.Besked, Msgboksstyle.Information)
End Try
End Sub
privat Sub Afsluttoolstripmenuitem_click(ByVal afsender som System.Objekt, ByVal e som System.EventArgs) Håndterer Afsluttoolstripmenuitem.Klik På
Mig.Luk ()
End Sub
privat Sub PlaylistEditorToolStripMenuItem_click (ByVal sender som System.Objekt, ByVal e som System.EventArgs) Håndterer PlaylistEditorToolStripMenuItem.Klik på
‘i denne linje, hvis afspilningslisten editor er klik så listen vil sho på formularen.
Hvis PlaylistEditorToolStripMenuItem.Markeret = sandt derefter
liste.At vise ()
myPlayer.Bredde = 577
Else
liste.Skjule ()
myPlayer.Bredde = 787
End If
End Sub
privat Sub mainFrm_Load(ByVal afsender som System.Objekt, ByVal e som System.EventArgs) Håndterer MyBase.Indlæs
liste.Element.Ryd () ‘ Ryd alt currect-indhold på listen
liste.Skjul () ‘ det vil skjule på hovedformularen
myPlayer.Bredde = 787 ‘ det vil ændre størrelsen på bredden af myPlayer til 787
End Sub
End Class