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

ads

ads

Visual basic ile Müzik Oynatıcısına ProgressBar ekleme

Bu dersimizde    muzik playere ProgresBar eklemeyi  göstereceğiz

Bir  tane form açın ve forma aşağıdakileri ekleyin

1 Timer; İntertal = 1 enabled = false
1 Textbox
1 Button
1 Media Player
1 OpenFile Dialog

Timer1'in Tick Eventintine aşağıdaki 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 aşağıdaki kodu ekleyin.

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

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

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

ads