السلام عليكم
اريد الطريقة اضع صوت لصوره معينه مثلا زر خروج على شكل باب (المستخدم عند الضغط على زر خروج يطلع صوت للباب يدل على خروجه )
ارجو منكم الرد بسرعه اسكنكم الله فسيح جناته
اصوات
مغلق
الأخ الكريم، شرح واف، و الله ما قصرت كيف ما يجولون "يقولوا" بالخليج، و هذه اضافة بسيطة منى، فى حالة أراد السائل تشغيل ملف الصوت من ملف Resource فنكون كدة غطينا الموضوع "عشان ما يبردش":P ، عذرا، اللغة العامية و الروح المصرية غلبت ،أعمل إية.
Sub PlaySound(ByVal ResourceId As Integer) Const SND_ASYNC = &H1 ' Play asynchronously Const SND_NODEFAULT = &H2 ' Don't use default sound Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Const SND_LOOP = &H8 Const SND_NOSTOP = &H10 Dim SoundBuffer As String Dim Ret As Variant ' Important: The returned string is converted to Unicode SoundBuffer = StrConv(LoadResData(ResourceId, "WAVE"), vbUnicode) Ret = sndPlaySound(SoundBuffer, SND_NODEFAULT Or SND_MEMORY Or SND_NOSTOP) ' Important: This function is neccessary for playing sound asynchronously 'DoEvents: We aren't playing asynchronously now, so it's just a remark. End Sub
ملفات مرفقة، عذرا أواجة مشكلة فى ارفاق الملفات بالمنتدى، يمكن مع ذلك تحميل الملفات من هنا:
هذا الموضوع مغلق.