أصدار أصوات مع الأزارير

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

ضعي دالة اسمها Beep()

وهي تقوم باصدار الصوت

جديد وليكن اسمه class اخى العزيز قم بانشاء

Win32PlaySound

وقبل تعريفه عليك استيراد المكتبةالتالية

System.Runtime.InteropServices

وسوف يكون الكود بهذا الشكل

Imports System.Runtime.InteropServices

Public Class Win32PlaySound 

  Public Declare Function PlaySound Lib "winmm.dll" _ 
 Alias "sndPlaySoundA" _ 
      (ByVal lpszSoundName As String, ByVal uFlags _ 
  As Long) As Long 
End Class

button قم بكتابة الكود التالى فى

Private myWin32Object As New Win32PlaySound () 
myWin32Object.PlaySound("C:\WINDOWS\Media\tada.wav", 0)

playsound.doc

اخى لااعرف لماذا ظهرت الكلام بهذا الشكل لذا ارجو منك تحميل المرفق السابق

اظن ان الدالة اسمها SndPlaySound وليس PlaySound ويمكنك معرفة الفرق بينهما بزيارة موضوع شرح دوال API الموجود فى توقيعى الشخصى :rolleyes:

شكرا لتعاونكم جميعا ..

جعله الله في موازين حسناتكم .

سأقوم بتجربة الكود و اعطائكم النتيجة .

اخى العزيز لست انا من قمت بكتابة هذا الكود ولكنه ماخوذ من الكتب الخاصة بشركة مايكروسوفت

ارجو من الله ان يوفق الجميع الى ما يحب ويرضى.