Windows MediaPlayer Şarkı Bilgilerini Göstermek

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

Şekil 2

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

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN