السلام عليكم ورحمة الله وبركاته
لدى مشروع قمت فيه باضافة زرين كوماند بوتن واداتين
mmcontrol
وذلك لربط الزرين بالام ام كونترول بحيث عند الضغط على الزر يتم تشغيل ملف صوتى موجود بنفس ملجد المشروع
كود الزر كالآتى :
Private Sub Command1_Click()
Form1.mmc1.FileName = App.Path & "\1.wav"
Form1.mmc1.Command = "open"
Form1.mmc1.Command = "play"
المشكلة انه عند الضغط على الزر لاول مرة يتم تشغيل الملف الصوتى لكن عند الضغط عليه مرة اخرى لا يعمل الملف الصوتى فحاولت اضافة هذا السطر فى اخر الكود السابق
Form1.mmc1.Command = "close"
لكن بدون فائدة فما الحل ؟