VBA ile MP3 Oynatma

MP3-Tag-icon

VB uygulamalari ile MP3 dosyalarını çalmak için Windows Media Player kullanabilirsiniz. Tabiiki bunu yapabilmeniz icin Media Player bilgisayarınızda yüklü ve kurulu olması gerekir.

Oncelikle forma Windows Media Player Ekleyin;

VB menüsünden Project-> Bileşenler (Components) seçin … Daha sonra, Windows Media Player onay kutusunu işaretleyin ve Tamam’a basın ve forma Windows Media Player denetimi sürükleyin.

Windows Media Player görünmez olmasini istiyorsanız, Visible ozelligini false olarak kullanabilirsiniz.

Formunuza 3 komut butonu ekleyin. 

Birincisi Oynatmak icin, ikincisi durdurmak icin ve ucuncusu durdurup/baslatmak icin olsun.

Private Sub Command1_Click()
' Dosyanizi "D:MP3MyFile.mp3" seklindeki bolumde belirtin
    MediaPlayer1.Open "D:MP3MyFile.mp3"
End Sub

Private Sub Command2_Click()
    MediaPlayer1.Stop
End Sub

Private Sub Command3_Click()
'2 ise: suan dosya oynatiliyor.
'1 ise: suan dosya durdurulmus.
    If MediaPlayer1.PlayState = 2 Then
        MediaPlayer1.Pause
    Else
        MediaPlayer1.Play
    End If
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 4 =