عرض مشاركة واحدة
  #1  
قديم 05-09-2021, 04:32 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 724
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


? تشغيل ملف صوتي عند فتــح النـموذج

 

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





كود:
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _


    (ByVal filename As String, ByVal snd_async As Long) As Long


  Function PlaySound(sWavFile As String)


    ' Purpose:  Plays a sound.


    ' Argument: the full path and file name.

  

    If apisndPlaySound(sWavFile, 1) = 0 Then


        MsgBox "The Sound Did Not Play!"


    End If


  End Function
وفي حدث عند نقر زر أمر مثلا اكتب :
كود:
PlaySound Application.CurrentProject.Path & "\telephone.wav"
وكما ترى يلزم تمرير اسم الملف والمسار إليه كاملا . وفي المثال السابق افترضت أن الملف الصوتي المسمى telephone يوجد في نفس مجلد قاعدة البيانات . لتمرير ملف في مكان آخر مثلا :
كود:
PlaySound "C:\Windows\telephone.wav"



الموضوع الأصلي : تشغيل ملف صوتي عند فتــح النـموذج || الكاتب : admin || المصدر : منتدى مجمع التطوير

 


التوقيع

رد مع اقتباس