Müzik Oynatıcısına ProgressBar Ekleyelim

Bu derste Visual Basic ile müzik oynatıcısına progressbar ekleyelim.

Öncelikli Olarak forma:
1 Timer; İntertal = 1 enabled = false
1 Textbox
1 Button
1 Media Player
1 OpenFile Dialog

Timer1'in Tick Eventintine şu kodu ekleyin.

Kod:

ProgressBar1.Increment(1)

        Dim lenth As Integer = AxWindowsMediaPlayer1.currentMedia.duration
        Dim şimdiki As Integer = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition

        ProgressBar1.Maximum = lenth
        ProgressBar1.Value = şimdiki

        If ProgressBar1.Value = lenth Then
            ProgressBar1.Value = 0
        End If

Button1'in Click Eventine ise şu kodu ekleyin.

Kod:

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName

            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            Timer1.Start()
        End If

Önemli Not: Programı build yapıp BinDebug klasöründen çalıştırın. Yoksa program hata verir.