السلام عليكم ورحمة الله وبركاتة ...
اريـــد كود الصوت ...
سوف أدخل الصوت على PictureBox ، أريد عند الضغط على الصورة يصدر الصوت ...
كيف ذلك ... :s :unsure: :wacko:
اريد كود الصوت في الفيجوال بيسك دوت نت ... إذا سمحتو ..
مغلق
أبحثي في المنتدى عن تشغيل الصوت
من مواضيعي :
تعلم كيف تفتح ملف ببرنامجك والبرنامج مو شغال
مجموعة كبيرة من خواص System.Management
تفعيل ستايل ويندوز أكس بي على الفيجوال 2003
تعلم أختراق أقوى كلمة سر في الكمبيوتر
درس لتعليم كيفية دمج الملفات في ملف حاضن
تعلم طريقة وضع صورة ونص في نفس الملف, درس رائع
وضع ملف داخل الملف التنفيذي وأستخراجه
----------------------------------------------------------------------------------------------------
))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((
--------------------------
If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End ifيمكنك ذلك عن طرييق اضافة كنترول تتعامل مع الصوت مثل الميديا بلير و يوضع فى الحدث الخاص بال picture box عند الضغط على الصورة يقوم الPlayer بتشغيل ملف الصوت المحدد
اذا كان الملف الصوتي الذي تريد استعماله من نوع wav فانصحك باستعمال ال API المسمى PlaySound و يمكنك البحث عن كيفية عمله اما اذا كنت تستخدم الفيجوال 2005 فالطريقة بسيطة و تكون
my.Computer.Audio.Play(FileName)
بصراحة دى جديدة واول مرة اكتشفها جزاك الله عنا خيرا
السلام عليكم ورحمة الله وبركاته
هنا شرح الدالة sndPlaySound للمشرف عبد الله فتحى فى قسم الفيجوال بيسيك
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اذا تبغي تسمعي الصوت لما تضغطي على (PictureBox ) اتبعي الخطوات التالية ......
ولا تنسي تدعيلي اذا سمعتي الصوت"تراني عزوبية "...
1-انسخي هذا الكود والصقي داخل كائن الصورة:-
PlaySoundFile("اسم ملف الصوت")
2-انسخي هذا الكود والصقي داخل الكلاس:-
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_FILENAME = &H20000
Public Const SND_RESOURCE = &H40004
Public Sub PlaySoundFile(ByVal filename As String)
PlaySound("اسم ملف الصوت", Nothing, SND_FILENAME Or SND_ASYNC)
End Sub
3-ملاحظات هامة جدا.....
*لازم تكتبي بين القوسين بدل "اسم ملف الصوت " اسم ملف الصوت اللي عندك.
* لازم يكون ملف الصوت موضوع داخل ملف (bin)
*لازم يكون امتداد ملف الصوت الصوت (wav)
هذا الموضوع مغلق.