تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية الاختصار
#1
السلام عليكم

لنفترض عندنا هذا الكود لتغيير خلفية البيكتر بوكس بصورة من الريسورس عند وظع الماوس فوقها

كود :
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
       PictureBox1.BackgroundImage = My.Resources.b
   End Sub
وعند ابعاد الماس
كود :
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.BackgroundImage = My.Resources.b.Tag
   End Sub

وتكون هناك اكثر من ادات بيكتر بوكس
هل يمكن اختصار الكود  علما ان الصورة واحدة
اي عندما يمر الماوس على كل بيكتر يتم التاثير بالصورة ولوحدها في نفس الوقت
وشكرا
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
السلام عليكم

في داخل الكود استخدم sender بدلا من اسم الأداة للإشارة للأداة التي استدعت الكود، ولا تنس إضافة أسماء الأدوات بعد كلمة Handles

هذا مثال عند دخول الماوس
كود :
Private Sub PictureBox_MouseEnter(sender As Object, e As EventArgs) _
Handles PictureBox1.MouseEnter, PictureBox2.MouseEnter, PictureBox3.MouseEnter
   sender.BackgroundImage = My.Resources.b
End Sub

وهذا مثال وعند ابعاد الماوس
كود :
Private Sub PictureBox_MouseLeave(sender As Object, e As EventArgs) _
Handles PictureBox1.MouseLeave, PictureBox2.MouseLeave, PictureBox3.MouseLeave
   sender.BackgroundImage = My.Resources.b.Tag
End Sub
الرد
تم الشكر بواسطة:
#3
(24-02-17, 11:48 PM)مساعدة كتب : السلام عليكم

في داخل الكود استخدم sender بدلا من اسم الأداة للإشارة للأداة التي استدعت الكود، ولا تنس إضافة أسماء الأدوات بعد كلمة Handles

هذا مثال عند دخول الماوس
كود :
Private Sub PictureBox_MouseEnter(sender As Object, e As EventArgs) _
Handles PictureBox1.MouseEnter, PictureBox2.MouseEnter, PictureBox3.MouseEnter
   sender.BackgroundImage = My.Resources.b
End Sub

وهذا مثال وعند ابعاد الماوس
كود :
Private Sub PictureBox_MouseLeave(sender As Object, e As EventArgs) _
Handles PictureBox1.MouseLeave, PictureBox2.MouseLeave, PictureBox3.MouseLeave
   sender.BackgroundImage = My.Resources.b.Tag
End Sub

اشكر اخي  مساعدة فعلا انت مساعدة واتمنى لك الصحة والعافية
الله يحفظك
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#4
الله يحفظك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 148 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 129 09-01-19, 11:29 AM
آخر رد: dametucorazon
  كيفية رفع ملف على جوجل درايف خالد شكري 0 61 27-12-18, 11:27 PM
آخر رد: خالد شكري
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 133 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  سؤال في كيفية عمل Sub report باخل الكريستال ريبورت Emam emam 3 129 19-11-18, 07:19 PM
آخر رد: elgokr
  كيفية كتابة المصفوفة راغب عبد اللطيف 0 85 19-11-18, 02:05 AM
آخر رد: راغب عبد اللطيف
  كيفية اظافة كلمة مرور لبرنامج وحفظها hamadz 2 150 14-11-18, 03:08 PM
آخر رد: dasktop
  [VB.NET] كيفية تحديث تصميم قاعدة البيانات دون فقدان السجلات larbihamri 4 170 07-11-18, 02:13 PM
آخر رد: larbihamri
  كيفية الطباعة مباشرة المتألق9 5 631 30-10-18, 09:24 PM
آخر رد: hbsbamaga
  كيفية تغيير الباس وورد يوميا احمد خطاب 4 189 27-10-18, 05:16 PM
آخر رد: احمد خطاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم