كيف يمكن تشغيل صوت من نوع MIDI

أخى الفاضل اليك هذا الكود وارجو ان يفيدك

'Add 2 CommandButtons to your form (named Command1 and Command2).
'When you press the first button the Midi File will start playing.
'When you press the second button the Midi File will stop playing.

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

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

Private 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()
'Replace c:\mydir\song1.mid with the Midi file name you want to play
PlayMIDI ("c:\mydir\song1.mid")
End Sub

Private Sub Command2_Click()
'Replace c:\mydir\song1.mid with the Midi file name you want to stop
StopMIDI ("c:\mydir\song1.mid")
End Sub

مع العلم انه من برنامج مكتبة الاكواد للاستاذ هيثم القلاف :rolleyes:

جزاك الله خيرا أخي الكريم ghost2010

لكني جربت هذا الكود فعلاً وعندي برنامج مكتبة الأكواد

أريد فقط الجملة التي تجعل الملف يعيد نفسه

مشاركه متأخره لو لم تجد الحل ارفع لك مثال لmidi