MIDI Dosyası Çalmak

'Formunuza 2 adet buton ekleyin
'Birinci butonun işlevi Play olacak
'İkinci butonun işlevi Stop olacak


Aşağıdaki kodları modüle kopyalayın

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
Aşağıdaki kodları formunuza kopyalayın

Public Sub StopMIDI(MidiFileName As String)
Call mciSendString("stop " + MidiFileName, 0&, 0, 0)
Call mciSendString("close " + MidiFileName, 0&, 0, 0)
End Sub

Function PlayMIDI(MidiFileName As String)
On Error Resume Next
Call mciSendString("open " + MidiFileName + " type sequencer", 0&, 0, 0)
If mciSendString("play " + MidiFileName + Flags, 0&, 0, 0) = 0 Then
PlayMIDI = 0
Else
PlayMIDI = 1
End If
End Function
Private Sub Command1_Click()
'Aşağıda dosyanın yerini kendiniz belirleyin
PlayMIDI ("c:\mydir\song1.mid")
End Sub

Private Sub Command2_Click()
'Aşağıda dosyanın yerini kendiniz belirleyin(üstteki ile aynı olacak)
StopMIDI ("c:\mydir\song1.mid")
End Sub