contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
17 Oca 2014

VBA ile MP3 Oynatma

//
Yorumlar0
/

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

Cevap bırakın


6 + 3 =