Hoe maak je mediaspeler met behulp van Visual Basic.Net
In deze zelfstudie leer ik je hoe je een aangepaste mediaspeler kunt maken die in staat is om geluiden, video ‘ s en afbeeldingen in een ander formaat af te spelen. Dus laten we beginnen. Maar omdat Media Player niet bestaat in het component gedeelte van toolbox, moeten we de Windows Media Player toe te voegen aan de toolbox. Om dit te doen, Volg gewoon de gegeven stappen.
- Ga naar de gereedschapskist en klik met de rechtermuisknop op
- selecteer Kies Items en het dialoogvenster gereedschapskist aanpassen wordt geopend.
- en selecteer Windows Media Player op de COM-componenten.
- klik vervolgens op ” OK ”
- en als laatste zal Windows Media Player control verschijnen op het huidige tabblad.
na dit proces kunnen we nu Windows Media Player toevoegen aan ons formulier en de standaard naam van dit besturingselement is “AxWindowsMediaPlayer1”. Dan bent u vrij om de naam van dit object te veranderen op basis van wat u wenst, bijvoorbeeld u om het te noemen als “WMPlayer”, zodat het gemakkelijker kan worden gelezen en onthouden.
het volgende proces is dat we andere besturingselementen toevoegen aan ons formulier, zoals Listbox, FolderBrowserDialog, MenuStrip en StatusStrip.
het Plan van de objecten en Eigenschappen
Object |
Eigendom |
Instellingen |
| Form1 | Naam | mainFrm |
| Tekst | Personal Media Player | |
| Startpositie | CenterScreen | |
| Systeemmenu | False | |
| AxWindowsMediaPlayer1 | Naam | myPlayer |
| Listbox | Naam | Lijst |
| MenuStrip1 | Naam | MenuStrip1 |
| StatusStrip1 | Naam | StatusStrip1 |
| FolderBrowserDialog1 | Naam | FolderBrowserDialog1 |
Op de MenuStrip1 moeten we twee hoofdmenu ‘ s zoals Bibliotheken en Bekijken. De bibliotheken hebben ook submenu ’s zoals muziek, video’ s, afbeeldingen en Exit. En voor de weergave submenu is alleen Afspeellijstbewerker. Dit moet eruit zien zoals hieronder weergegeven.
en het uiteindelijke ontwerp ziet eruit zoals hieronder weergegeven.
na het ontwerpen van onze gebruikersinterface gaan we verder met het toevoegen van functionaliteiten aan ons programma. Eerste stap dubbelklik op het hoofdformulier of we hebben de naam in “mainFrm” om onze view Designer te verschuiven naar view Code. Dan op de mainFrm_Load voeg deze code.
lijst.Item.Clear () ‘ wis alle currente inhoud van de lijst
lijst.Hide () ‘ het zal de op de belangrijkste vorm
MyPLAYER verbergen.Width = 787 ‘ het zal de breedte van myPlayer verkleinen naar 787
en onder van onze publieke Klasse mainFrm voeg deze declaratie van variabele toe die later het pad van onze map zal bevatten. En het zal dit leuk vinden.
Public Class mainFrm
Dim folderpath als String
na het toevoegen van deze code gaan we een subprocedure maken die we later voor ons programma zullen gebruiken.
Public Sub jokenresult ()
If list.Item.Tel > 0 en
lijst.Show ()
myPlayer.Width = 577
statresult.Tekst = lijst.Item.Tel & “Items”
Else
lijst.Hide ()
myPlayer.Width = 787
End If
End Sub
vervolgens zullen we functionaliteit toevoegen aan de ene submenu-items onder libraries The Music. Om dit te doen dubbelklikt u gewoon op het submenu Muziek. Dan wordt u doorgestuurd naar broncodeweergave en voeg deze code toe, zodat het er nu uitziet zoals hieronder weergegeven.
privé Sub MusicToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) Behandelt MusicToolStripMenuItem.Klik op
probeer
‘ het opent het dialoogvenster waarin u kunt selecteren waar de specifieke map van uw muziek is
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK Then
‘if true that if you click ok on the folder dialog box then
‘ it will get the selected path of your folder and store it into di variable
Dim di As New IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ in deze regel zal het alle specifieke bestand dat de.mp3 uitbreiding en sla het op in diar1 variabele
Dim diar1 als IO.FileInfo () = di.GetFiles(“*.mp3”)
Dim dra As IO.FileInfo
‘en in deze regel verzamelt het alle informatie met betrekking tot fullpath en namen van alle bestanden en slaat het op in de folderpath variabele
folderpath = di.Volledige naam.ToString
lijst.Item.Clear()
‘lijst de namen van alle bestanden in de opgegeven map
Voor elke dra In diar1
Dim A als geheel getal = 0
‘ a = a + 1
lijst.Item.Add (dra)
Next
‘it will call the sub procedure jokenresult () to perform some actions
End If
Catch ex As Exception
‘if errors occur then the program will catch it and send it back to the user.
MsgBox (ex.Bericht, MsgBoxStyle.Informatie)
End Try
End Sub
en dit is het voorbeeld draaiende programma dat een geselecteerde muziek afspeelt.
en dit is het voorbeeldprogramma dat een geselecteerde film afspeelt.
en tenslotte is dit alle broncode.
‘Description: Personal Media Player that enables user to play Music,Video and pictures etc …
‘ Author: Joken Villanueva
‘ date Created: March 23, 2011
‘gewijzigd door:
Public Class mainFrm
Dim folderpath As String
Private Sub MusicToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) Behandelt MusicToolStripMenuItem.Klik op
probeer
‘ het opent het dialoogvenster waarin u kunt selecteren waar de specifieke map van uw muziek is
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK Then
‘if true that if you click ok on the folder dialog box then
‘ it will get the selected path of your folder and store it into di variable
Dim di As New IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ in deze regel zal het alle specifieke bestand dat de.mp3 uitbreiding en sla het op in diar1 variabele
Dim diar1 als IO.FileInfo () = di.GetFiles(“*.mp3”)
Dim dra As IO.FileInfo
‘en in deze regel verzamelt het alle informatie met betrekking tot fullpath en namen van alle bestanden en slaat het op in de folderpath variabele
folderpath = di.Volledige naam.ToString
lijst.Item.Clear()
‘lijst de namen van alle bestanden in de opgegeven map
Voor elke dra In diar1
Dim A als geheel getal = 0
‘ a = a + 1
lijst.Item.Add (dra)
Next
‘it will call the sub procedure jokenresult () to perform some actions
End If
Catch ex As Exception
‘if errors occur then the program will catch it and send it back to the user.
MsgBox (ex.Bericht, MsgBoxStyle.Informatie)
end Try
End Sub
Public Sub jokenresult ()
If list.Item.Tel > 0 en
lijst.Show ()
myPlayer.Width = 577
statresult.Tekst = lijst.Item.Tel & “Items”
Else
lijst.Hide ()
myPlayer.Width = 787
End If
End Sub
Private Sub list_selectedindex changed (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) behandelt lijst.SelectedIndex changed
‘ de myPlayer zal iets uit de lijst Afspelen of Weergeven op basis van het door de gebruiker geselecteerde item
myPlayer.URL = folderpath & ” \ ” & list.SelectedItem.ToString
End Sub
Private Sub VideosToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) Verwerkt VideosToolStripMenuItem.Klik Op
Probeer
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK dan
Dim di als nieuwe IO.DirectoryInfo (FolderBrowserDialog1.Gekozen pad)
Dim diar1 als IO.FileInfo () = di.GetFiles (“*.*”)
Dim dra As IO.FileInfo
folderpath = di.Volledige naam.ToString
lijst.Item.Clear ()
Voor elke dra In diar1
lijst.Item.Toevoegen(dra)
volgende
jokenresult ()
End If
Catch ex als uitzondering
MsgBox (ex.Bericht, MsgBoxStyle.Information)
End Try
MsgBox(folderpath)
End Sub
Private Sub ImagesToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) Verwerkt ImagesToolStripMenuItem.Klik Op
Probeer
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK dan
Dim di als nieuwe IO.DirectoryInfo (FolderBrowserDialog1.Gekozen pad)
Dim diar1 als IO.FileInfo () = di.GetFiles (“*.jpg”)
Dim dra As IO.FileInfo
folderpath = di.Volledige naam.ToString
lijst.Item.Clear ()
Voor elke dra In diar1
lijst.Item.Toevoegen(dra)
volgende
jokenresult ()
End If
Catch ex als uitzondering
MsgBox (ex.Bericht, MsgBoxStyle.Information)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) Behandelt ExitToolStripMenuItem.Klik Op
Me.Close()
End Sub
Private Sub PlaylistEditorToolStripMenuItem_click (ByVal sender As System.Object, ByVal e Als systeem.EventArgs) Verwerkt PlaylistEditorToolStripMenuItem.Klik op
‘ in deze regel als de playlist editor is klik dan zal de lijst sho op het formulier.
Als PlaylistEditorToolStripMenuItem.Checked = True dan
lijst.Show ()
myPlayer.Breedte = 577
Else
lijst.Hide ()
myPlayer.Width = 787
End If
End Sub
Private sub mainFrm_Load (ByVal afzender als systeem.Object, ByVal e Als systeem.EventArgs) Verwerkt MyBase.Laad
lijst.Item.Clear () ‘ wis alle currente inhoud van de lijst
lijst.Hide () ‘ het zal de op de belangrijkste vorm
MyPLAYER verbergen.Width = 787 ‘ it will resize the width of myPlayer into 787
End Sub
End Class