Memainkan file MP3 di Visual Basic 6 sebenarnya ada beberapa cara, seperti menggunakan komponen “Windows Media Player” (Klik kanan pada Toolbox pilih “Add/Remove Items” klik pada “COM Components” dan centang pada “Windows Media Player” maka komponen ini sudah anda bisa gunakan di project anda.) , dan kemampuannya tidak terbatas pada file MP3 saja.

Tapi yang akan didemokan kali ini adalah memainkan file MP3 dengan koding saja memanfaatkan MCI, jadi tampilannya bisa anda sesuaikan sendiri. Bila kita menggunakan komponen “Windows Media Player” maka tampilannya akan seperti Windows Media Player 9 bawaan Windows XP.

Deklarasi fungsi Windows API:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (
                          ByVal lpstrCommand As String, _
                          ByVal lpstrReturnString As String, _
                          ByVal uReturnLength As Long, _
                          ByVal hwndCallback As Long) As Long

Cara penggunaan fungsi API tersebut:

Dim lagu As String
lagu = "D:\musik.mp3"
'Kode pada event click tombol cmdPlay
Private Sub cmdPlay_Click()
  Call mciSendString("open " & lagu & " type MPEGVideo alias lagu wait", vbNullString, 0&, 0&)
  Call mciSendString("play " & lagu , vbNullString,0&, 0&)
End Sub
'Kode pada event click tombol cmdStop
Private Sub cmdStop_Click()
  Call mciSendString("stop " & lagu, vbNullString, 0&, 0&)
  Call mciSendString("close " & lagu &"wait", vbNullString, 0&, 0&)
End Sub