نغمات أصوات التنبيه لرسائل أكسس

[alsihran]

السلام عليكم ورحمة الله و بركاتة 

كيف أحصل على نغمات أصوات التنبيه لرسائل أكسس

كما يعلم الجميع أن لكل رسالة صوت محدد يصدر مع ظهور الرسالة 

اريد الحصول على النغمة فقط بدون الرسالة 

[qathi]

هناك مواقع كثير متخصصة في جمع مثل هذه الأصوات .. يكفي أن تقوم بالبحث عنها في محرك البحث جوجل

مثال أصوات الويندوز 7 أو 10

وستجد فيها الذي تريد

[Moosak]

أكتب في الكود:

Beep

[ابوخليل]

وان اردت اصوات مختلفة من اصوات النظام فعليك تشغيل الملف عند الحدث المحدد

وللاطلاع على ملفات اصوات النظام الموجودة في وندوز افتح مجلد الوندوز واكتب في البحث 

.wav

 

[alsihran]

11 ساعات مضت, qathi said:

مثال أصوات الويندوز 7 أو 10

لم اقصد هذا المعنى انا اطلب استدعاء الاصوات من الاكسس نفسه 

11 ساعات مضت, Moosak said:

كتب في الكود:

Beep

نعم اخي موسى  هو المقصود 

لكن اريد بقية الاصوات 

مثل 

صوت رسالة الخطأ

صوت رسالة التنبيه 

صوت رسالة التحذير 

10 ساعات مضت, ابوخليل said:

وان اردت اصوات مختلفة من اصوات النظام فعليك تشغيل الملف عند الحدث المحدد

كما وضحت للاستاذ موسى 

[Moosak]

28 دقائق مضت, alsihran said:

لكن اريد بقية الاصوات

بعد البحث وجدت لك هذا الكود أخي @alsihran  يحضر لك بقية الأصوات 🙂 

 'API Declaration
Private Declare PtrSafe Function MessageBeep& Lib "user32" (ByVal wType As Long)
 
 'Enumeration of the beep types
Public Enum BeepTypes
    MB_OK = &H0&
    MB_ICONASTERISK = &H40&
    MB_ICONEXCLAMATION = &H30&
    MB_ICONHAND = &H10&
End Enum
 
Public Function BeepType(lSound As BeepTypes) As Long
     ' Function to return
    BeepType = MessageBeep(lSound)
End Function
 
Sub TestTheBeep()
     ' Play the beep
    BeepType MB_ICONHAND
'    BeepType MB_ICONEXCLAMATION
'    BeepType MB_ICONASTERISK
'    BeepType MB_OK
End Sub

الدالة الأخيرة تختبر لك الأصوات الأخرى TestTheBeep()

 

[alsihran]

7 ساعات مضت, Moosak said:

بعد البحث وجدت لك هذا الكود أخي

الله يعطيك العافيه 

بعد التجربه على الدالة الاخيرة اشتغل عندي صوتين فقط 

يمكن ما عرفت استدعي باقي الاصوات 

لو اثقل عليك وتضع الاكواد بمثال 

شاكر ومقدر لك 

[Moosak]

2 دقائق مضت, alsihran said:

وتضع الاكواد بمثال

وأنا أيضا أشتغل معي صوتين فقط ولا أدري لماذا !  😅

ولكن لاستخدام الكود .. تضعه في موديول مستقل ثم تنادي الصوت المطلوب بهذه الطريقة ( نفس المثال الذي في الكود الأصلي) :

BeepType MB_ICONHAND

والمثال عليك 

 

[alsihran]

13 دقائق مضت, Moosak said:

وأنا أيضا أشتغل معي صوتين فقط ولا أدري لماذا ! 

نعم عملت مثل ما قلت 

صوتين فقط لا يوجد اصوات أخرى