Jak zrobić Odtwarzacz Multimedialny za pomocą Visual Basic.Net
w tym samouczku nauczę cię, jak stworzyć niestandardowy odtwarzacz multimedialny,który jest w stanie odtwarzać dźwięki, filmy i przeglądać obrazy w innym formacie. Więc zaczynajmy. Ale ponieważ odtwarzacz multimedialny nie istnieje w części składowej programu toolbox, musimy dodać Windows Media Player do programu toolbox. Aby to zrobić, po prostu wykonaj podane kroki.
- przejdź do programu toolbox i kliknij prawym przyciskiem myszy
- , a następnie wybierz Wybierz elementy i otworzy się okno dialogowe Dostosuj program Toolbox.
- i wybierz Windows Media Player na komponentach COM.
- następnie kliknij „OK”
- i na końcu, Windows Media Player control pojawi się na bieżącej karcie.
po tym procesie możemy dodać Teraz Windows Media Player do naszego formularza i domyślną nazwą tej kontroli jest „AxWindowsMediaPlayer1”. Następnie możesz zmienić nazwę tego obiektu w oparciu o to, co chcesz, na przykład nazwać go „WMPlayer”, aby mógł być łatwiejszy do odczytania i zapamiętania.
następnym procesem jest dodanie innych kontrolek do naszego formularza, takich jak Listbox, FolderBrowserDialog, MenuStrip i StatusStrip.
Zaplanuj obiekty i właściwości
obiekt |
Nieruchomości |
Ustawienia |
| Form1 | Nazwa | mainFrm |
| SMS | osobisty odtwarzacz multimedialny | |
| StartPosition | CenterScreen | |
| ControlBox | False | |
| AxWindowsMediaPlayer1 | Nazwa | myPlayer |
| Listbox | Nazwa | lista |
| MenuStrip1 | Nazwa | MenuStrip1 |
| StatusStrip1 | Nazwa | StatusStrip1 |
| FolderBrowserDialog1 | Nazwa | FolderBrowserDialog1 |
na MenuStrip1 musimy dodać dwa główne menu, takie jak biblioteki i widok. Biblioteki mają również menu podrzędne, takie jak muzyka, filmy, obrazy i wyjście. A dla podmenu widok jest tylko edytor listy odtwarzania. Powinno to wyglądać jak pokazano poniżej.
i ostateczny projekt wygląda jak pokazano poniżej.
po zaprojektowaniu naszego interfejsu użytkownika przejdźmy do dodawania funkcjonalności do naszego programu. Pierwszy krok Kliknij dwukrotnie główny formularz lub mamy go nazwać „mainFrm”, aby przesunąć naszego projektanta widoku do kodu widoku. Następnie na mainFrm_Load dodaj ten kod.
lista.Pozycji.Clear () ’ Wyczyść całą zawartość listy
.Hide () ’ spowoduje ukrycie głównego formularza
myPlayer.Width = 787 ’ zmieni szerokość myPlayer do 787
i na dole naszej publicznej klasy mainFrm doda tę deklarację zmiennej, która będzie trzymać później ścieżkę naszego folderu. I spodoba mu się to.
Public Class mainFrm
Dim folderpath As String
po dodaniu tego kodu tworzymy procedurę podrzędną, której będziemy używać później dla naszego programu.
Public Sub jokenresult ()
lista If.Pozycji.Licz > 0 następnie
lista.Pokaż ()
Width = 577
Tekst = „lista”,Pozycji.Licz&”pozycje”
lista.Hide ()
myPlayer.Width = 787
End If
End Sub
nastepnie dodamy funkcjonalnosc do pozycji jednego pod menu pod biblioteki Muzyka. Aby to zrobić, po prostu kliknij dwukrotnie podmenu Muzyka. Następnie zostaniesz przekierowany do widoku kodu źródłowego i dodaj ten kod, aby teraz wyglądał tak, jak pokazano poniżej.
Private Sub MusicToolStripMenuItem_Click (ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) Obsługuje MusicToolStripMenuItem.Kliknij
spróbuj
’otworzy się okno dialogowe folderu, w którym możesz wybrać, gdzie znajduje się określony folder Twojej muzyki
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK Then
’ if true that if you click ok on the folder dialogue then
’it will get the selected path of your folder and store it into di variable
Dim di As New IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
'w tej linii kodu otrzyma cały określony plik, który ma .rozszerzenie mp3 i zapisanie go w zmiennej diar1
Dim diar1 jako IO.FileInfo () = di.GetFiles („*. mp3”)
Dim dra as IO.FileInfo
’i w tej linii zbierze wszystkie informacje dotyczące fullpath i nazw wszystkich plików i zapisze je do zmiennej folderpath
folderpath = di.Imię i nazwisko.ToString
lista.Pozycji.Clear()
’ lista nazw wszystkich plików w podanym katalogu
Dla każdego dra w diar1
Dim a jako Integer = 0
’ A = A + 1
lista.Pozycji.Add (dra)
Next
’wywoła procedurę podrzędną jokenresult (), aby wykonać niektóre akcje
jokenresult ()
End, jeśli
Złap ex jako wyjątek
’jeśli wystąpią błędy, program go wychwyci i odeśle do użytkownika.
MsgBox (np.Wiadomość, MsgBoxStyle.Informacje)
End Try
End Sub
i jest to przykładowy uruchomiony program odtwarzający wybraną muzykę.
i jest to przykładowy program odtwarzający wybrany film.
i wreszcie to jest cały kod źródłowy.
’opis: osobisty odtwarzacz multimedialny umożliwiający odtwarzanie muzyki, filmów i zdjęć itp …
’ Autor: Joken Villanueva
’ Data utworzenia: Marzec 23, 2011
’Modified By:
Public Class mainFrm
Dim folderpath As String
Private Sub MusicToolStripMenuItem_Click(ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) Obsługuje MusicToolStripMenuItem.Kliknij
spróbuj
’otworzy się okno dialogowe folderu, w którym możesz wybrać, gdzie znajduje się określony folder Twojej muzyki
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK Then
’ if true that if you click ok on the folder dialogue then
’it will get the selected path of your folder and store it into di variable
Dim di As New IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
'w tej linii kodu otrzyma cały określony plik, który ma .rozszerzenie mp3 i zapisanie go w zmiennej diar1
Dim diar1 jako IO.FileInfo () = di.GetFiles („*. mp3”)
Dim dra as IO.FileInfo
’i w tej linii zbierze wszystkie informacje dotyczące fullpath i nazw wszystkich plików i zapisze je do zmiennej folderpath
folderpath = di.Imię i nazwisko.ToString
lista.Pozycji.Clear()
’ lista nazw wszystkich plików w podanym katalogu
Dla każdego dra w diar1
Dim a jako Integer = 0
’ A = A + 1
lista.Pozycji.Add (dra)
Next
’wywoła procedurę podrzędną jokenresult (), aby wykonać niektóre akcje
jokenresult ()
End, jeśli
Złap ex jako wyjątek
’jeśli wystąpią błędy, program go wychwyci i odeśle do użytkownika.
MsgBox (np.Wiadomość, MsgBoxStyle.Informacje)
End Try
End Sub
Public Sub jokenresult()
lista If.Pozycji.Licz > 0 następnie
lista.Pokaż ()
Width = 577
Tekst = „lista”,Pozycji.Licz&”pozycje”
lista.Hide ()
myPlayer.Width = 787
End If
End Sub
Private Sub list_SelectedIndexChanged(ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) obsługuje listę.SelectedIndexChanged
’myPlayer odtworzy lub wyświetli coś z listy na podstawie wybranego przez użytkownika elementu
myPlayer.URL = folderpath & „\” & lista.SelectedItem.ToString
End Sub
Private Sub VideosToolStripMenuItem_Click(ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) Obsługuje VideosToolStripMenuItem.Kliknij
Spróbuj
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK to
Dim di jako nowy IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 jako IO.FileInfo () = di.GetFiles („*.*”)
Dim dra as IO.FileInfo
folderpath = di.Imię i nazwisko.ToString
lista.Pozycji.Clear()
Dla każdego dra w liście diar1
.Pozycji.Dodaj (dra)
następne
jokenresult ()
Zakończ jeśli
Złap ex jako wyjątek
MsgBox(ex.Wiadomość, MsgBoxStyle.Informacje)
End Try
MsgBox(folderpath)
End Sub
Private Sub ImagesToolStripMenuItem_Click(ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) Obsługuje ImagesToolStripMenuItem.Kliknij
Spróbuj
FolderBrowserDialog1.ShowDialog ()
If DialogResult.OK to
Dim di jako nowy IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 jako IO.FileInfo () = di.GetFiles („*.jpg”)
Dim dra as IO.FileInfo
folderpath = di.Imię i nazwisko.ToString
lista.Pozycji.Clear()
Dla każdego dra w liście diar1
.Pozycji.Dodaj (dra)
następne
jokenresult ()
Zakończ jeśli
Złap ex jako wyjątek
MsgBox(ex.Wiadomość, MsgBoxStyle.Informacje)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) Obsługuje ExitToolStripMenuItem.Kliknij
Ja.Close ()
End Sub
Private Sub PlaylistEditorToolStripMenuItem_click(ByVal sender As System.Obiekt, ByVal e jako System.EventArgs) Obsługuje PlaylistEditorToolStripMenuItem.Kliknij
'w tej linii, jeśli edytor listy odtwarzania jest KLIKNIJ, to lista zostanie wyświetlona w formularzu.
Jeśli PlaylistEditorToolStripMenuItem.Checked = True Then
list.Pokaż ()
Width = 577
lista.Hide ()
myPlayer.Width = 787
End If
End Sub
Private Sub mainFrm_Load(ByVal sender jako System.Obiekt, ByVal e jako System.EventArgs) Obsługuje MyBase.Załaduj listę
.Pozycji.Clear () ’ Wyczyść całą zawartość listy
.Hide () ’ spowoduje ukrycie głównego formularza
myPlayer.Width = 787 ’ zmieni szerokość myPlayer do 787
End Sub
End Class