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

Bu derste Visual Basic ile 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.


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.


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.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git