So erstellen Sie einen Media Player mit Visual Basic.Net
In diesem Tutorial werde ich Ihnen beibringen, wie Sie einen benutzerdefinierten Media Player erstellen, der Sounds, Videos und Bilder in verschiedenen Formaten abspielen kann. Also fangen wir an. Da der Media Player jedoch nicht im Komponententeil der Toolbox vorhanden ist, müssen wir den Windows Media Player zur Toolbox hinzufügen. Befolgen Sie dazu einfach die angegebenen Schritte.
- Gehen Sie zur Toolbox und klicken Sie mit der rechten Maustaste auf
- .
- Und wählen Sie Windows Media Player auf den COM-Komponenten.
- Klicken Sie dann auf „OK“
- Und schließlich wird Windows Media Player Control auf der aktuellen Registerkarte angezeigt.
Nach diesem Vorgang können wir jetzt Windows Media Player zu unserem Formular hinzufügen und der Standardname dieses Steuerelements lautet „AxWindowsMediaPlayer1“. Dann können Sie den Namen dieses Objekts nach Ihren Wünschen ändern, z. B. als „WMPlayer“, damit es leichter zu lesen und zu merken ist.
Als nächstes fügen wir unserem Formular weitere Steuerelemente hinzu, z. B. Listbox, FolderBrowserDialog, MenuStrip und StatusStrip.
Objekte und Eigenschaften planen
Objekt |
Eigentum |
Einstellungen |
| Form1 | Bezeichnung | mainFrm |
| Text | Persönlicher Mediaplayer | |
| StartPosition | Mittelbildschirm | |
| Kontrollkästchen | Falsch | |
| AxWindowsMediaPlayer1 | Name | Mein Spieler |
| Listbox | Name | Liste |
| MenuStrip1 | Name | MenuStrip1 |
| Statusstreifen1 | Name | Statusstreifen1 |
| OrdnerBrowserDialog1 | Name | OrdnerBrowserDialog1 |
Auf dem MenuStrip1 müssen wir zwei Hauptmenüs wie Bibliotheken und Ansicht hinzufügen. Die Bibliotheken haben auch Untermenüs wie Musik, Videos, Bilder und Beenden. Und für die Ansicht Untermenü ist nur Playlist-Editor. Dies sollte wie unten gezeigt aussehen.
Und das endgültige Design sieht wie unten gezeigt aus.
Nachdem wir unsere Benutzeroberfläche entworfen haben, fügen wir unserem Programm Funktionen hinzu. Erster Schritt Doppelklicken Sie auf das Hauptformular oder wir haben es in „mainFrm“ umbenannt, um unseren View Designer in View Code zu verschieben. Fügen Sie dann auf dem mainFrm_Load diesen Code hinzu.
Liste.Gegenst.Clear() ‚ löscht den gesamten aktuellen Inhalt der Liste
.Hide() ‚ es wird die auf dem Hauptformular verstecken
MyPLAYER.Width = 787 ‚ Es wird die Breite von MyPLAYER in 787
ändern und unten in unserer öffentlichen Klasse mainFrm diese Variablendeklaration hinzufügen, die den späteren Pfad unseres Ordners enthält. Und es wird so sein.
Public Class mainFrm
Dim folderpath As String
Nach dem Hinzufügen dieses Codes erstellen wir eine Unterprozedur, die wir später für unser Programm verwenden werden.
Public Sub jokenresult()
Wenn Liste.Gegenst.Zähle > 0 Dann
Liste.Show()
Mein Player.Breite = 577
statresult.Textliste.Gegenst.Count & “ Items“
Sonst
Liste.Hide()
Mein Player.Width = 787
End If
End Sub
Als nächstes werden wir den Untermenüpunkten unter Bibliotheken die Musik Funktionalität hinzufügen. Um dies zu tun, doppelklicken Sie einfach auf das Untermenü Musik. Dann werden Sie zur Quellcodeansicht weitergeleitet und fügen diesen Code hinzu, sodass er jetzt wie unten gezeigt aussehen sollte.
Privates Sub MusicToolStripMenuItem_Click(ByVal) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt MusicToolStripMenuItem.Klicken Sie auf
Versuchen Sie
‚Es öffnet sich der Ordner-Dialog, in dem Sie auswählen können, wo sich der spezifische Ordner Ihrer Musik befindet
FolderBrowserDialog1.ShowDialog()
Wenn DialogResult.OK Dann
‚Wenn wahr, wenn Sie im Ordnerdialogfeld auf OK klicken, dann
‚wird der ausgewählte Pfad Ihres Ordners abgerufen und in der di-Variablen
Dim di Als neues IO .DirectoryInfo(FolderBrowserDialog1.SelectedPath)
‚In dieser Codezeile werden alle spezifischen Dateien abgerufen, die die .mp3-Erweiterung und speichern Sie sie in diar1 Variable
Dim diar1 Als IO.FileInfo() = di.GetFiles(„*.mp3“)
Dim dra Als IO.FileInfo
‚und in dieser Zeile werden alle Informationen in Bezug auf den vollständigen Pfad und die Namen aller Dateien gesammelt und in der folderpath-Variablen
folderpath = di gespeichert.Vollständiger Name.toString
Liste.Gegenst.Clear()
‚ listet die Namen aller Dateien im angegebenen Verzeichnis auf
Für jeden dra In diar1
Dim a As Integer = 0
‚ a = a + 1
Liste.Gegenst.Add(dra)
Next
‚Es wird die Unterprozedur jokenresult()aufrufen, um einige Aktionen auszuführen
jokenresult()
End If
Catch ex As Exception
‚Wenn Fehler auftreten, fängt das Programm sie ab und sendet sie an den Benutzer zurück.
MsgBox(Bsp.Nachricht, MsgBoxStyle.Information)
End Try
End Sub
Und dies ist das Beispielprogramm, das eine ausgewählte Musik abspielt.
Und dies ist das Beispielprogramm, das einen ausgewählten Film abspielt.
Und schließlich ist dies der gesamte Quellcode.
‚Beschreibung: Persönlicher Mediaplayer, mit dem Benutzer Musik, Videos und Bilder usw. abspielen können …
‚Autor: Joken Villanueva
‚Erstellungsdatum: März 23, 2011
‚ Geändert von:
Public Class mainFrm
Dim folderpath As String
Private Sub MusicToolStripMenuItem_Click(ByVal ) As System.Objekt, ByVal e Als System.EventArgs) Behandelt MusicToolStripMenuItem.Klicken Sie auf
Versuchen Sie
‚Es öffnet sich der Ordner-Dialog, in dem Sie auswählen können, wo sich der spezifische Ordner Ihrer Musik befindet
FolderBrowserDialog1.ShowDialog()
Wenn DialogResult.OK Dann
‚Wenn wahr, wenn Sie im Ordnerdialogfeld auf OK klicken, dann
‚wird der ausgewählte Pfad Ihres Ordners abgerufen und in der di-Variablen
Dim di Als neues IO .DirectoryInfo(FolderBrowserDialog1.SelectedPath)
‚In dieser Codezeile werden alle spezifischen Dateien abgerufen, die die .mp3-Erweiterung und speichern Sie sie in diar1 Variable
Dim diar1 Als IO.FileInfo() = di.GetFiles(„*.mp3“)
Dim dra Als IO.FileInfo
‚und in dieser Zeile werden alle Informationen in Bezug auf den vollständigen Pfad und die Namen aller Dateien gesammelt und in der folderpath-Variablen
folderpath = di gespeichert.Vollständiger Name.toString
Liste.Gegenst.Clear()
‚ listet die Namen aller Dateien im angegebenen Verzeichnis auf
Für jeden dra In diar1
Dim a As Integer = 0
‚ a = a + 1
Liste.Gegenst.Add(dra)
Next
‚Es wird die Unterprozedur jokenresult()aufrufen, um einige Aktionen auszuführen
jokenresult()
End If
Catch ex As Exception
‚Wenn Fehler auftreten, fängt das Programm sie ab und sendet sie an den Benutzer zurück.
MsgBox(Bsp.Nachricht, MsgBoxStyle.Informationen)
End Try
End Sub
Public Sub jokenresult()
Wenn Liste.Gegenst.Zähle > 0 Dann
Liste.Show()
Mein Player.Breite = 577
statresult.Textliste.Gegenst.Count & “ Items“
Sonst
Liste.Hide()
Mein Player.Width = 787
Ende If
Ende Sub
Private Sub list_SelectedIndexChanged(ByVal) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt Liste.SelectedIndexChanged
‚Der MyPLAYER spielt basierend auf dem vom Benutzer ausgewählten Element
MyPLAYER etwas aus der Liste ab oder zeigt es an.URL = folderpath & „\“ & Liste.SelectedItem.toString
Ende Sub
Private Sub VideosToolStripMenuItem_Click(ByVal) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt VideosToolStripMenuItem.Klicken Sie auf
Versuchen Sie
FolderBrowserDialog1.ShowDialog()
Wenn DialogResult.OK, dann
Dim di als neues IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim diar1 Als IO.FileInfo() = di.GetFiles(„*.*“)
Dim dra Als IO.FileInfo
Ordnerpfad = di.Vollständiger Name.toString
Liste.Gegenst.Clear()
Für jeden dra In diar1
Liste.Gegenst.Add(dra)
Weiter
jokenresult()
Ende Wenn
ex als Ausnahme abfangen
MsgBox(ex.Nachricht, MsgBoxStyle.Informationen)
Versuch beenden
MsgBox(Ordnerpfad)
Sub beenden
Privates Sub ImagesToolStripMenuItem_Click(ByVal ) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt ImagesToolStripMenuItem.Klicken Sie auf
Versuchen Sie
FolderBrowserDialog1.ShowDialog()
Wenn DialogResult.OK, dann
Dim di als neues IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim diar1 Als IO.FileInfo() = di.GetFiles(„*.jpg“)
Dim dra Als IO.FileInfo
Ordnerpfad = di.Vollständiger Name.toString
Liste.Gegenst.Clear()
Für jeden dra In diar1
Liste.Gegenst.Add(dra)
Weiter
jokenresult()
Ende Wenn
ex als Ausnahme abfangen
MsgBox(ex.Nachricht, MsgBoxStyle.Informationen)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt ExitToolStripMenuItem.Klicken
Mir.Close()
Ende Sub
Private Sub PlaylistEditorToolStripMenuItem_Click(ByVal ) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt PlaylistEditorToolStripMenuItem.Klicken Sie in dieser Zeile auf
‚Wenn der Wiedergabelisteneditor klicken ist, wird die Liste auf dem Formular angezeigt.
Wenn PlaylistEditorToolStripMenuItem.Checked = True Dann
Liste.Show()
Mein Player.Width = 577
Sonst
Liste.Hide()
Mein Player.Width = 787
Ende If
Ende Sub
Private Sub mainFrm_Load(ByVal) Als System.Objekt, ByVal e Als System.EventArgs) Behandelt MyBase.Laden
Liste.Gegenst.Clear() ‚ löscht den gesamten aktuellen Inhalt der Liste
.Hide() ‚ es wird die auf dem Hauptformular verstecken
MyPLAYER.Width = 787 ‚ es wird die Breite von MyPLAYER in 787
End Sub
End Class