السلام عليكم ورحمة الله وبركاته.
كنت قد طرحت سابقا موضوع لتشغيل ملفات الصوت في الاكسس
وكان الموضوع يتناول تشغيل الملفات التي تكون بصيغة WAV حصرا
رابط الموضوع:
درس اليوم هو حول تشغيل ملفات الصوت بصيغة MP3 في الاكسس.
الدوال المستخدمة:
mciSendStringA
GetShortPathNameA
بعض الحقوق لأصحابها
اتمنى منكم الدعاء لي ولوالدي.
حسنين
Mp3Sounds_SEMO_Pa3x.accdb
اهلاً معلمي الغالي, تلبية لطلبك الكريم
قمت بجمع الطريقتين بملف واحد اذا وضعت مسار ملف صوت MP3 او WAV فهو سيقوم بفلترة المدخلات وتشغيلها حسب صيغتها.
Option Compare Database
Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathName