02-10-12, 10:58 AM
كاتب الموضوع : mero5000
السلام عليكملاحظت وجود اسئله كثيره بخصوص دمج صوت او غيره بالمشاريع ومشكله المسارات
فحبيت اوضح بعض الافكار للاستغناء عن المسارات حتى اذا تم نقل مشروع من جهاز الى اخر يعمل بدون تغير مسارات اولا
اولا نفتح مشروع جديد ومن قائمه project نختار منها اخر اختيار
ثم نختار من على الشمال Resources كما فى الصوره
ننسخ الاصوات والايكون والصور وسنتعرف على عمل كل منهم
يمكنك نسح كل ملفاتك داخل الاديو الوافيجول بيبسك هيقسمهم حسب اقسامهم
واماكنهم فى السهم الصغير المجاور لكلمه audio المشار له فى الصوره
بعد نسخ الملفات فى Resources ستجدها فى مشروعك هكذا
الان ننشى 8 ازرار لعمل مثال عليهم على قسمين فى الاربعه الاولى نكتب هذا الكود عند مرور الماوس على الزر وليس الضغط عليه فى الحدث Button1_MouseHover
كود :
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
My.Computer.Audio.Play(My.Resources.ding, AudioPlayMode.Background)
End Sub
وفى المحموعه الثانيه نكتب هذا الكود عند الظغط على الزر فى الحدث Button5_Click
كود :
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
My.Computer.Audio.Play(My.Resources.chimes, AudioPlayMode.Background)
End Sub
يتبع ان شاء الله