السلام عليكم ورحمة الله و بركاته
انا استخدمت كود الصوتى التالي
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
sndPlaySound(Application.StartupPath & "\4.wav", 1)
لكن اريد ان تتكرر الاغنية اذا انتهت و اريد ان اعرف ماذا تعني
lib "winmm.dll"
وشكرا جزيلااااااااااااااااااااااااااااااااااااااا
الوسيطة الثانية للFUNCTION تاخذ احد هذه القيم او اكثر من قيمة
' flag values for uFlags paramaeter Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10
كما يتضح من التسمية SND_LOOP فهى تشير الى هذه القيمة تمرر الى الدالة تكرار الصوت بدون توقف ويضاف عليها القيمة SND_ASYNC حتى تعمل بشكل غير متزامن ولا تاثر على مسار تنفيذ التطبيق
ملاحظة اخرى وهو انه فى الدوت نت يتم استبدال النوع Long بـInt32
Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Int32) As Int32
لتشغيل اى ملف بشكل متواصل مثلا
sndPlaySound("c:\ringout.wav", SND_ASYNC + SND_LOOP)بالنسبة للــlib "winmm.dll فهى احد مكتبات نظام التشغيل والتى تحوى على واجهة التعامل مع الملتيميديا
ملاحظة اخيرة :لو كنت تستخدم VB2005 فهذا السطر يكفى ولا داعى لاستخدام API
My.Computer.Audio.Play("c:/ringout.wav", AudioPlayMode.BackgroundLoop)تم تعديل هذه المشاركة بواسطة SOLO.NET في 12 يونيو 2006 في 17:54
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
شكرا جزيلا للمساعدة
هذا الموضوع مغلق.