[RaggiTech]

كاتب الموضوع : 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

جرب الان





يتبع ان شاء الله