Hur man gör mediaspelare med Visual Basic.Net
i denna handledning kommer jag att lära dig hur du skapar en Anpassa mediaspelare som kan spela ljud, videor och visning av bilder i olika format. Så låt oss komma igång. Men eftersom Media Player inte finns i komponentdelen av toolbox måste vi lägga till Windows Media Player i verktygslådan. För att göra detta, följ bara de angivna stegen.
- gå till verktygslådan och högerklicka på
- välj sedan välj objekt och dialogrutan Anpassa verktygslåda öppnas.
- och välj Windows Media Player på Com-komponenterna.
- klicka sedan på”OK”
- och slutligen visas Windows Media Player-kontrollen på den aktuella fliken.
efter denna process kan vi nu lägga till Windows Media Player i vårt formulär och standardnamnet för denna kontroll är ”AxWindowsMediaPlayer1”. Då är du fri att ändra namnet på det här objektet baserat på vad du önskar till exempel att du ska namnge det som ”WMPlayer” så att det lättare kan läsas och komma ihåg.
nästa process är att vi ska lägga till andra kontroller i vårt formulär som Listbox, FolderBrowserDialog, MenuStrip och StatusStrip.
planera objekt och egenskaper
objekt |
fastighet |
Inställningar |
| Form1 | namn | mainFrm |
| Text | personlig mediaspelare | |
| StartPosition | CenterScreen | |
| kontrollbox | falsk | |
| AxWindowsMediaPlayer1 | namn | myPlayer |
| listruta | namn | lista |
| MenuStrip1 | namn | MenuStrip1 |
| StatusStrip1 | namn | StatusStrip1 |
| FolderBrowserDialog1 | namn | FolderBrowserDialog1 |
på MenuStrip1 måste vi lägga till två huvudmenyer sådana bibliotek och visa. Biblioteken har också undermenyer som musik, videor, bilder och avsluta. Och för undermenyn Visa är det bara Spellisteredigerare. Detta ska se ut som visas nedan.
och den slutliga designen ser ut som visas nedan.
efter att ha utformat vårt användargränssnitt, Låt oss fortsätta att lägga till funktioner i vårt program. Första steget dubbelklickar på huvudformuläret eller vi har namnge det i ”mainFrm” för att flytta vår visningsdesigner till visningskod. Lägg sedan till den här koden på mainFrm_Load.
lista.Objekt.Rensa () ’ Rensa allt currect-innehåll i listan
lista.Dölj () ’ det kommer att gömma på huvudformuläret
myPlayer.Width = 787 ’ det kommer att ändra storlek på bredden på myPlayer till 787
och nedan i vår offentliga klass mainFrm lägger till denna deklaration av variabel som kommer att hålla senare sökväg i vår mapp. Och det kommer att gilla det här.
Public Class mainFrm
Dim folderpath som sträng
efter att ha lagt till den här koden kommer vi att skapa en underprocedur som vi kommer att använda den för vårt program senare.
offentliga Sub jokenresultat ()
om listan.Objekt.Räkna > 0 sedan
lista.Visa ()
myPlayer.Bredd = 577
statresultat.Text = lista.Objekt.Räkna &”objekt”
annat
lista.Dölja ()
myPlayer.Width = 787
End om
End Sub
nästa kommer vi att lägga till funktionalitet till en undermenyalternativ under bibliotek musiken. För att göra detta bara dubbelklicka på undermenyn Musik. Då kommer du att omdirigeras till källkodsvyn och lägga till den här koden så att den nu ska se ut som visas nedan.
privat Sub MusicToolStripMenuItem_Click (ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar MusicToolStripMenuItem.Klicka på
försök
’ det öppnar mappdialogrutan där du kan välja var är den specifika mappen för din musik
FolderBrowserDialog1.ShowDialog ()
Om Dialogresultat.OK då
’om sant att om du klickar på ok i dialogrutan mapp då
’ det kommer att få den valda sökvägen till din mapp och lagra den i Di variabel
Dim di Som ny IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
’ i denna kodrad det kommer att få alla specifika filen som har .MP3 förlängning och lagra den i diar1 variabel
Dim diar1 som IO.FileInfo () = di.GetFiles(”*.mp3”)
Dim dra som IO.FileInfo
’ och i den här raden kommer den att samla all information med avseende på fullpath och namn på alla filer och lagra den i folderpath-variabeln
folderpath = di.Fullständigt namn.ToString
lista.Objekt.Clear()
’ lista namnen på alla filer i den angivna katalogen
för varje dra i diar1
Dim A som heltal = 0
’ a = a + 1
lista.Objekt.Lägg till (dra)
nästa
’det kommer att ringa Underproceduren jokenresult () för att utföra vissa åtgärder
jokenresult ()
Avsluta om
fånga ex som undantag
’om fel uppstår kommer programmet att fånga det och skicka det tillbaka till användaren.
MsgBox (ex.Meddelande, MsgBoxStyle.Information)
avsluta försök
avsluta Sub
och detta är det prov som körs programmet spelar en vald musik.
och detta är det prov som körs programmet spelar en vald film.
och slutligen detta är alla källkoden.
’beskrivning: personlig mediaspelare som gör det möjligt för användaren att spela musik, Video och bilder etc…
’ författare: Joken Villanueva
’ datum skapat: Mars 23, 2011
’modifierad av:
Offentlig klass mainFrm
Dim folderpath som sträng
privat Sub MusicToolStripMenuItem_Click(ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar MusicToolStripMenuItem.Klicka på
försök
’ det öppnar mappdialogrutan där du kan välja var är den specifika mappen för din musik
FolderBrowserDialog1.ShowDialog ()
Om Dialogresultat.OK då
’om sant att om du klickar på ok i dialogrutan mapp då
’ det kommer att få den valda sökvägen till din mapp och lagra den i Di variabel
Dim di Som ny IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
’ i denna kodrad det kommer att få alla specifika filen som har .MP3 förlängning och lagra den i diar1 variabel
Dim diar1 som IO.FileInfo () = di.GetFiles(”*.mp3”)
Dim dra som IO.FileInfo
’ och i den här raden kommer den att samla all information med avseende på fullpath och namn på alla filer och lagra den i folderpath-variabeln
folderpath = di.Fullständigt namn.ToString
lista.Objekt.Clear()
’ lista namnen på alla filer i den angivna katalogen
för varje dra i diar1
Dim A som heltal = 0
’ a = a + 1
lista.Objekt.Lägg till (dra)
nästa
’det kommer att ringa Underproceduren jokenresult () för att utföra vissa åtgärder
jokenresult ()
Avsluta om
fånga ex som undantag
’om fel uppstår kommer programmet att fånga det och skicka det tillbaka till användaren.
MsgBox (ex.Meddelande, MsgBoxStyle.Information)
End försök
End Sub
offentliga Sub jokenresultat ()
om listan.Objekt.Räkna > 0 sedan
lista.Visa ()
myPlayer.Bredd = 577
statresultat.Text = lista.Objekt.Räkna &”objekt”
annat
lista.Dölja ()
myPlayer.Bredd = 787
Avsluta om
avsluta Sub
privat Sub list_SelectedIndexChanged(ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) hanterar listan.SelectedIndexChanged
’ myPlayer kommer att spela upp eller visa något från listan baserat på användaren valt objekt
myPlayer.URL = folderpath & ” \ ” & lista.SelectedItem.ToString
End Sub
privat Sub VideosToolStripMenuItem_Click (ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar VideosToolStripMenuItem.Klicka På
Försök
FolderBrowserDialog1.ShowDialog ()
Om Dialogresultat.OK då
Dim di Som ny IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 som IO.FileInfo () = di.GetFiles(”*.*”)
Dim dra som IO.FileInfo
folderpath = di.Fullständigt namn.ToString
lista.Objekt.Klar()
för varje dra i diar1
lista.Objekt.Lägg till (dra)
nästa
jokenresultat ()
Avsluta om
fånga ex som undantag
MsgBox (ex.Meddelande, MsgBoxStyle.Information)
avsluta försök
MsgBox(folderpath)
End Sub
privat Sub ImagesToolStripMenuItem_Click (ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar ImagesToolStripMenuItem.Klicka På
Försök
FolderBrowserDialog1.ShowDialog ()
Om Dialogresultat.OK då
Dim di Som ny IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 som IO.FileInfo () = di.GetFiles(”*.jpg”)
Dim dra som IO.FileInfo
folderpath = di.Fullständigt namn.ToString
lista.Objekt.Klar()
för varje dra i diar1
lista.Objekt.Lägg till (dra)
nästa
jokenresultat ()
Avsluta om
fånga ex som undantag
MsgBox (ex.Meddelande, MsgBoxStyle.Information)
End försök
End Sub
privat Sub ExitToolStripMenuItem_Click (ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar ExitToolStripMenuItem.Klicka På
Me.Stänga ()
End Sub
privat Sub PlaylistEditorToolStripMenuItem_click (ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar PlaylistEditorToolStripMenuItem.Klicka på
’ i den här raden om spellisteredigeraren klickar så kommer listan att sho på formuläret.
Om PlaylistEditorToolStripMenuItem.Markerad = True sedan
lista.Visa ()
myPlayer.Bredd = 577
annat
lista.Dölja ()
myPlayer.Bredd = 787
Avsluta om
avsluta Sub
privat Sub mainFrm_Load (ByVal avsändare som System.Objekt, ByVal E som System.EventArgs) Hanterar MyBase.Ladda
lista.Objekt.Rensa () ’ Rensa allt currect-innehåll i listan
lista.Dölj () ’ det kommer att gömma på huvudformuläret
myPlayer.Width = 787 ’ det kommer att ändra storlek på bredden på myPlayer till 787
End Sub
End Class