Visual Basic 2010 Express Media Player Yapımı

Visual Basic 2010 Express Media Player Yapımı

01:57




PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
ListBox1.Items.Add(OpenFileDialog1.FileName)
'hangi müziği çalacaksak onu seçeriz.
AxWindowsMediaPlayer1.URL = (OpenFileDialog1.FileName)

EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
'müziği durdurur.
EndSub
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
'müziği durdurur ama play dendiğinde baştan başlatır.
EndSub
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
'müziği ileri sarmaya yarar.
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
'müziği başlatır.
EndSub
EndClass

Kaydol: Kayıt Yorumları (Atom)