Windows Media Player nesnesinde çalan parçaya ait bilgilerin gösterimini sağlayacağız. İlk önce Formunuza 1 adet MenuStrip, OpenFileDialog, Timer ve Media Player ekleyin.
Media Player i formunuza ekleyebilmek için;
Toolbox tayken sağ tıkla. Choose Items i seç. Açılan Choose ToolBox Items penceresinde COM Components ten Windows Media Player i seç OK tıkla. ToolBox ınızda oluşan Media Player ikonunu formunuza sürükleyip bırakın. Böylece Media Player imiz artık Formumuzda. (Şekil 1)
Şekil 1
Şekil2
Form1.vb
Public Class Form1
Private Sub AcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcToolStripMenuItem.Click
Application.DoEvents()
OpenFileDialog1.Filter = ("Windows Media Dosyası (*.wma)|*.wma|Windows Ses Dosyası (*.wav)|*.wav|mp3 Dosyası (*.mp3)|*.mp3|Tüm Dosyalar(*.*)|*.*")
OpenFileDialog1.Title = "Bahadır ŞAHİN MediaPlayer Aç"
OpenFileDialog1.FileName = "Windows Media Player Dosyaları"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Dim muzik As String = OpenFileDialog1.FileName
AxWindowsMediaPlayer1.settings.autoStart = False
AxWindowsMediaPlayer1.URL = muzik
FileClose(1)
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Artist: "
Label2.Text = "Başlık: "
Label3.Text = "Albüm: "
Label4.Text = "Süre: "
Label5.Text = "Dönüştürme Oranı: "
Label6.Text = "Tarz: "
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = "Artist: " & AxWindowsMediaPlayer1.currentMedia.getItemInfo("Artist") 'Sanatçı Adı
Label2.Text = "Başlık: " & AxWindowsMediaPlayer1.currentMedia.getItemInfo("Title") 'Başlık
Label3.Text = "Albüm: " & AxWindowsMediaPlayer1.currentMedia.getItemInfo("Album") 'Albüm
Label4.Text = "Süre: " & AxWindowsMediaPlayer1.currentMedia.durationString 'Süre
Label5.Text = "Dönüştürme Oranı: " & AxWindowsMediaPlayer1.currentMedia.getItemInfo("bitRate") / 1000 & " kbps" 'Dönüştürme Bit Değeri
Label6.Text = "Tarz: " & AxWindowsMediaPlayer1.currentMedia.getItemInfo("Genre") 'Tarz
End Sub
End Class
4 comments:
Syn Bahadır bey;
Öncelikle ellerinize ve emeğinize sağlık vs.2010 kullanıyorum.henüz acemiyim.Bu projeyi uygularken "Private Sub AcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcToolStripMenuItem.Click" satrında hata alıyorum.Neyi eksik yaptığımı merak ediyorum ve yardımlarınızı rica ediyorum.
Hata mesajı
"C:\Users\CANALİN\Desktop\WindowsApplication1\WindowsApplication1\Form1.vb(4) : error BC30506: Handles clause requires a WithEvents variable defined in the containing type or one of its base types.
COM Reference 'WMPLib' is the interop assembly for ActiveX control 'AxWMPLib' but was marked to be linked by the compiler with the /link flag. This COM reference will be treated as a reference and will not be linked."
Çalmakta Olan Şarkıyı Textboxa nasıl yazdırabilirim
TextBox1.Text = AxWindowsMediaPlayer1.currentMedia.name
Yorum Gönder