التعامل مع Resources و image list الاستغناء عن المسارات - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184) +--- الموضوع : التعامل مع Resources و image list الاستغناء عن المسارات (/showthread.php?tid=4830) |
التعامل مع Resources و image list الاستغناء عن المسارات - RaggiTech - 02-10-12 كاتب الموضوع : mero5000
السلام عليكملاحظت وجود اسئله كثيره بخصوص دمج صوت او غيره بالمشاريع ومشكله المسارات فحبيت اوضح بعض الافكار للاستغناء عن المسارات حتى اذا تم نقل مشروع من جهاز الى اخر يعمل بدون تغير مسارات اولا اولا نفتح مشروع جديد ومن قائمه project نختار منها اخر اختيار ثم نختار من على الشمال Resources كما فى الصوره ننسخ الاصوات والايكون والصور وسنتعرف على عمل كل منهم يمكنك نسح كل ملفاتك داخل الاديو الوافيجول بيبسك هيقسمهم حسب اقسامهم واماكنهم فى السهم الصغير المجاور لكلمه audio المشار له فى الصوره بعد نسخ الملفات فى Resources ستجدها فى مشروعك هكذا الان ننشى 8 ازرار لعمل مثال عليهم على قسمين فى الاربعه الاولى نكتب هذا الكود عند مرور الماوس على الزر وليس الضغط عليه فى الحدث Button1_MouseHover كود : Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover وفى المحموعه الثانيه نكتب هذا الكود عند الظغط على الزر فى الحدث Button5_Click كود : Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click يتبع ان شاء الله التعامل مع Resources و image list الاستغناء عن المسارات - RaggiTech - 02-10-12 نكمل ان شاء الله الان سنغير الايكون من Resources و بالكود اضفنا ايكون اسمها alarmd ثم سنكتب هذا الكود فى اللود فروم كود : Form1_Load بدون تغيرها من خضائص الفروم جرب الان بالمناسبه يوجد كود لتغير اسم الفروم دون الرجوع الى الخاصيه text للفروم وهو كود : Me.Text = "mero5000" الن يوجد بعض الادواه التى تأخد الصور من الاداه image listومنها التاب كنترول الان نضيف الاداه من الادوات وشكلها اسقفل الصوره على الشمال واسمها imagelist نقف على الاداه ونعمل كليك يمين ونختار اخر اختيار propertise ومن الخيار images نضغط على كولكشن ونضيف الصور التى نريد ثم نقف على التاب كنرول ومن الخاصيه image list نختار 1 image list كما فى الصوره ثم نقف على كل tab page ومن image index نختار الصوره من الصور المضافه كما فى الصوره انظر كيف تم وضع بجانب كل تاب صوره يمكن عمل هذا الخيار للمتصفحات انا عملتها لكن سنسند لها كود ليتم غلق التاب كنترول منها الان سنتعرف على وضع صوت للبرنامج ويكرر نفسه وهذا الكود يعمل من العمل منبه وهذا الكود فى الحدث اللود فروم كود : My.Computer.Audio.Play(My.Resources.Windows_XP_Startup, AudioPlayMode.BackgroundLoop) فى بدايه التشغيل ولا تكرر ممكن مسح كلمه Loop فقط من الكود ولعمل صوت عند الاغلاق هو ايضا نفس الكود لكن فى الحدث form _closing الان سنتعرف على تغير الماوس بماوس خارجى قم بنسخ الماوس الذى تريد اضافته فى المجلد Debug ثم اكيب هذا الكود كود : Imports System.IO كود : Public Class Form1 كود : Me.Cursor = New Cursor("moro.cur") جرب الان وفى PictureBox من الخاصيه image اى صوره تصيفها هتلاقيها فى مجلد المشروع كما فى الصوره. من الصور التى قمنا بأضافتها فى اول الموضوع كل الاصوات التى بالمشروع من C:\WINDOWS\Media فى المرفقات المشروع الذى قمنا بعمله الان وفيه ...... تغير الايكون للفروم بالكود وليس من الخصائص تغير اسم الفروم لاكود وليس من الخصائص اضافه الاصوات للمشروع سواء عند مرور الماوس على زر او عند الضغط عليه او عند تشغيل الفروم وتكرار الصوت او عند نشغيل الفروم وعدم تكرير الصوت لو كانت بسمله صوت مثلا وعند إغلاق الفروم التعامل مع image list سواء مع التاب كنترول او غيرها من الادوات التى فى خواصها image list وتغير الماوس بالكود دون كتابه مسار واحد اتمنى ان اكون وفقت فى الشرح تحياتى لكم |