Kuinka tehdä mediasoitin Visual Basic.Net
tässä opetusohjelma, aion opettaa sinulle, miten luoda muokata mediasoitin, joka pystyy toistamaan ääniä, videoita ja katsella kuvia eri muodossa. Aloitetaan. Mutta koska Media Player ei ole osa toolbox, meidän täytyy lisätä Windows Media Player toolbox. Voit tehdä tämän vain seurata annettuja vaiheita.
- Siirry työkalupakkiin ja napsauta hiiren kakkospainikkeella
- valitse Valitse kohteet ja muokkaa Toolbox-valintaikkuna avautuu.
- ja valitse com-komponenteista Windows Media Player.
- napsauta sitten ” OK ”
- ja lopuksi Windows Media Player-ohjaus ilmestyy nykyiseen välilehteen.
tämän prosessin jälkeen voimme lisätä Windows Media Playerin Lomakkeeseemme ja tämän ohjauksen oletusnimi on ”AxWindowsMediaPlayer1”. Sitten voit vapaasti muuttaa nimeä tämän objektin perusteella, mitä haluat esimerkiksi voit nimetä sen ”WMPlayer” niin, että se voisi olla helpommin lukea ja muistaa.
seuraava prosessi on, että aiomme lisätä muita ohjausobjekteja meidän muodossa, kuten Listbox, FolderBrowserDialog, MenuStrip ja StatusStrip.
Suunnittele kohteet ja ominaisuudet
objekti |
ominaisuus |
Asetukset |
| lomake 1 | nimi | päärm. |
| teksti | henkilökohtainen mediasoitin | |
| lähtötilanne | Keskiruutu | |
| Tarkastuslaatikko | väärä | |
| AxWindowsMediaPlayer1 | nimi | myPlayer |
| Luetteloruutu | nimi | luettelo |
| MenuStrip1 | nimi | MenuStrip1 |
| Statuslista1 | nimi | Statuslista1 |
| FolderBrowserDialog1 | nimi | FolderBrowserDialog1 |
On MenuStrip1 meidän täytyy lisätä kaksi päävalikkoa kuten kirjastot ja katsella. Kirjastoissa on myös alivalikoita, kuten musiikkia, videoita, kuvia ja Exit. Ja näkymä alivalikko on vain soittolistan editori. Tämän pitäisi näyttää alla.
ja lopullinen rakenne on samanlainen kuin alla olevassa kuvassa.
käyttöliittymän suunnittelun jälkeen edetään toiminnallisuuksien lisäämisessä ohjelmaamme. Ensimmäinen vaihe kaksoisnapsauta päälomaketta tai meillä on nimi se osaksi ”mainFrm” siirtää meidän view Designer osaksi view Code. Sitten mainFrm_Load lisää tämä koodi.
luettelo.Erä.Clear () ” tyhjennä listan kaikki current content
list.Piilota () ” se piilottaa päälomakkeen
myPlayer.Width = 787 ’ se muuttaa leveyden myPlayer osaksi 787
ja alla meidän Public Class mainFrm lisätä tämän ilmoituksen muuttuja, joka pitää myöhemmin polku kansiomme. Ja se pitää tästä.
Public Class mainFrm
Dim folderpath As String
tämän koodin lisäämisen jälkeen luomme aliohjelman, jota käytämme ohjelmassamme myöhemmin.
Julkinen Sub jokenresult ()
If-lista.Erä.Lukumäärä > 0 sitten
luettelo.Show ()
myPlayer.Width = 577
statresult.Text = lista.Erä.Määrä & ”kohteita”
Else
luettelo.Piilo ()
myPlayer.Width = 787
End If
End Sub
seuraavaksi lisäämme toiminnallisuutta kirjastojen alavalikkoon Musiikki. Voit tehdä tämän vain kaksoisnapsauttaa Musiikki – alivalikkoa. Sitten sinut ohjataan lähdekoodinäkymään ja lisää tämä koodi, joten sen pitäisi nyt näyttää alla olevalta.
yksityinen Sub MusicToolStripMenuItem_Click (ByVal sender järjestelmänä.Objekti, ByVal e järjestelmänä.EventArgs) Käsittelee MusicToolStripMenuItem.Klikkaa
kokeile
” se avaa kansioikkunan, josta voit valita missä on musiikkisi oma kansio
FolderBrowserDialog1.Showdialogi ()
Jos Dialogitulos.OK Then
’jos totta, että jos napsautat OK kansio-valintaikkunassa, niin
’ se saa valitun polun kansiostasi ja tallentaa sen muuttujaan
Dim di uutena IO: na.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
” tällä koodirivillä se saa kaikki tietyn tiedoston, jolla on .mp3 laajennus ja tallentaa sen diar1 muuttuja
Dim diar1 IO.FileInfo () = di.GetFiles (”*. mp3”)
Dim dra as IO.FileInfo
”ja tällä rivillä se kerää kaikki tiedot kokopolusta ja kaikkien tiedostojen nimistä ja tallentaa ne folderpath-muuttujaan
folderpath = di.Koko nimi.ToString
luettelo.Erä.Clear ()
”listaa kaikkien määriteltyyn hakemistoon sisältyvien tiedostojen nimet
kunkin dra: n osalta diar1
Dim A AS Integer = 0
” a = a + 1
list.Erä.Lisää (dra)
Seuraava
”se kutsuu aliprosessin jokenresultin () suorittamaan joitakin toimia
jokenresultin ()
lopeta, jos
Catch ex poikkeuksena
” jos virheitä ilmenee, ohjelma nappaa sen ja lähettää sen takaisin käyttäjälle.
MsgBox (ENT.Viesti, MsgBoxStyle.Information)
End Try
End Sub
ja tämä on sample running-ohjelma, joka soittaa valittua musiikkia.
ja tämä on näytejuoksuohjelma, joka soittaa valittua elokuvaa.
ja lopuksi tämä on koko lähdekoodi.
”Description: Personal Media Player that helps user to play Music, Video and pictures etc …
” Author: Joken Villanueva
” date Created: maaliskuu 23, 2011
’muokattu:
Public Class mainFrm
Dim folderpath As String
Private Sub MusicToolStripMenuItem_Click (ByVal sender As System.Objekti, ByVal e järjestelmänä.EventArgs) Käsittelee MusicToolStripMenuItem.Klikkaa
kokeile
” se avaa kansioikkunan, josta voit valita missä on musiikkisi oma kansio
FolderBrowserDialog1.Showdialogi ()
Jos Dialogitulos.OK Then
’jos totta, että jos napsautat OK kansio-valintaikkunassa, niin
’ se saa valitun polun kansiostasi ja tallentaa sen muuttujaan
Dim di uutena IO: na.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
” tällä koodirivillä se saa kaikki tietyn tiedoston, jolla on .mp3 laajennus ja tallentaa sen diar1 muuttuja
Dim diar1 IO.FileInfo () = di.GetFiles (”*. mp3”)
Dim dra as IO.FileInfo
”ja tällä rivillä se kerää kaikki tiedot kokopolusta ja kaikkien tiedostojen nimistä ja tallentaa ne folderpath-muuttujaan
folderpath = di.Koko nimi.ToString
luettelo.Erä.Clear ()
”listaa kaikkien määriteltyyn hakemistoon sisältyvien tiedostojen nimet
kunkin dra: n osalta diar1
Dim A AS Integer = 0
” a = a + 1
list.Erä.Lisää (dra)
Seuraava
”se kutsuu aliprosessin jokenresultin () suorittamaan joitakin toimia
jokenresultin ()
lopeta, jos
Catch ex poikkeuksena
” jos virheitä ilmenee, ohjelma nappaa sen ja lähettää sen takaisin käyttäjälle.
MsgBox (ENT.Viesti, MsgBoxStyle.Tiedot)
loppukoe
loppukoe
Julkinen Sub jokenresult ()
If-lista.Erä.Lukumäärä > 0 sitten
luettelo.Show ()
myPlayer.Width = 577
statresult.Text = lista.Erä.Määrä & ”kohteita”
Else
luettelo.Piilo ()
myPlayer.Width = 787
End If
End Sub
Private Sub list_SelectedIndexChanged (by Val sender As System.Objekti, ByVal e järjestelmänä.EventArgs) käsittelee listaa.SelectedIndexChanged
” myPlayer toistaa tai näyttää jotain listasta käyttäjän valitun kohteen
myPlayer perusteella.URL = folderpath & ” \ ” & list.SelectedItem.ToString
End Sub
Private Sub VideosToolStripMenuItem_Click (ByVal sender järjestelmänä.Objekti, ByVal e järjestelmänä.EventArgs) Käsittelee Videostoolstripmenuitemia.Klikkaa
Kokeile
FolderBrowserDialog1.Showdialogi ()
Jos Dialogitulos.OK sitten
Dim di uutena IO: na.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 as IO.FileInfo () = di.GetFiles (”*.*”)
Dim dra as IO.FileInfo
folderpath = di.Koko nimi.ToString
luettelo.Erä.Clear ()
kunkin dra: n osalta diar1
luettelo.Erä.Add (dra)
Next
jokenresult ()
End If
Catch ex poikkeuksena
MsgBox (ENT.Viesti, MsgBoxStyle.Information)
End Try
MsgBox(folderpath)
End Sub
Private Sub ImagesToolStripMenuItem_Click(ByVal sender as System.Objekti, ByVal e järjestelmänä.EventArgs) Käsittelee ImagesToolStripMenuItem.Klikkaa
Kokeile
FolderBrowserDialog1.Showdialogi ()
Jos Dialogitulos.OK sitten
Dim di uutena IO: na.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
Dim diar1 as IO.FileInfo () = di.GetFiles (”*.jpg”)
Dim dra as IO.FileInfo
folderpath = di.Koko nimi.ToString
luettelo.Erä.Clear ()
kunkin dra: n osalta diar1
luettelo.Erä.Add (dra)
Next
jokenresult ()
End If
Catch ex poikkeuksena
MsgBox (ENT.Viesti, MsgBoxStyle.Information)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender as System.Objekti, ByVal e järjestelmänä.EventArgs) Käsittelee ExitToolStripMenuItem.Klikkaa
Me.Close ()
End Sub
Private Sub PlaylistEditorToolStripMenuItem_click (ByVal sender as System.Objekti, ByVal e järjestelmänä.EventArgs) Käsittelee PlaylistEditorToolStripMenuItem.Napsauta
” tällä rivillä, jos soittolistaeditoria napsautetaan, lista sho lomakkeessa.
If PlaylistEditorToolStripMenuItem.Checked = True Then
list.Show ()
myPlayer.Width = 577
Else
lista.Piilo ()
myPlayer.Width = 787
End If
End Sub
yksityinen Sub mainFrm_Load (ByVal sender järjestelmänä.Objekti, ByVal e järjestelmänä.EventArgs) Hoitaa Mybasen.Kuormitus
luettelo.Erä.Clear () ” tyhjennä listan kaikki current content
list.Piilota () ” se piilottaa päälomakkeen
myPlayer.Width = 787 ’ se muuttaa myplayerin leveyden muotoon 787
End Sub
End Class