بسم الله الرحمن الرحيم
أنا أعرف أني مبتديء بهذا المنتدى وأني ما جئت لأضيف ولكن لأتعلم ، فأرجوا من السادة الأعضاء والمشرفين أن يجيبوا سؤالي :
لو عندي زر على الفورم لو ضغطت عليه يظهر صوت معين ، فكيف هذا ؟ وبأي أداه ؟ وما الكود ؟
شكرا لكم لاهتمامكم بزواركم وأعضائكم يا إدارة المنتدى .
أخوكم في الله (( مدافع الإسلام ))
السلام عليكم
طبعاً اخي يمكنك ذلك وبعدة طرق
اما باضافة اداة Real Player
او اضافة اداة Media player
او اداة MMcontrol
وكل تلك الادواة يمكنك اضافتها من القائمة project ثم تختار components ومن مربع الحوار اختار احد الادواة السابقة
مع العلم ان تلك الادواة طبعاً تحتاج الى كود يربطها بملف الصوت بعد تنزيلها
واذا اردة معرفة المزيد عن تلك الادواة راجع رابط الاخ HnHn بعنوان كل ماتريد معرفته في الفيجوال بيسك او اضغط هنا للانتقال مباشرة
وهناك ايضاً طريقه اخرى لتشغيل ملفات الصوت وهي عن طرق الكود دون استخدام اي اداة
ارفقة لك هذا الكود في المرفقات علماً انه يحتوي على طريقة تشغيل الصوت عن الضغط على الزر او اي مفتاح في الكيبورد واظهار رقم هذا المفتاح برمجياً
حتى يمكنك الاستفادة منه اذا اردت ان يعمل الصوت عند الضغط على مفتاح معين
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
بسم الله الرحمن الرحيم
شكرا للأخوة الكرام الذين أرسلوا الردود وبالنسبة للأخ الحيوتي .. ممكن تكتب الكود في المنتدى لإن الملف مو ينزل !!
وشكرا
السلام عليكم
أخي هذا هو الكواد للبرنامج الذي وضعه الأخ MohamedAliSalim
ضع زرّي أمر و ضع الكود التالي :
Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub PlaySound(strFileName As String) sndPlaySound strFileName, 1 End Sub Private Sub Command1_Click() PlaySound App.Path & "\S1.WAV" End Sub Private Sub Command2_Click() PlaySound App.Path & "\S2.WAV" End Sub
و يجب عليك إضافة ملفي صوت إلى مجلد البرنامج الأول باسم s1.wav و الثاني باسم s2.wav و يوجد في الملف المرفق ملفان بهذا الاسم و يمكنك استبدالهما بأي ملفات أخرى لها نفس الاسم أو تعديل الاسم من الكود
تم تعديل هذه المشاركة بواسطة golden man في 20 سبتمبر 2006 في 18:35
شكرا لك يا جولدن ، ححاول معى الكود ده .
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…