تقييم الموضوع :
  • 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
الله يحفظك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية الزيادة التلقائية لرصيد الإجازات في قاعدة البيانات الوايلي 2 45 أمس, 12:18 AM
آخر رد: الوايلي
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,461 19-01-18, 09:30 PM
آخر رد: رمضان محمد
  كيفية حفظ إعدادات البرنامج بحيث لا تتغير أحمد إبراهيم سعد 1 49 17-01-18, 08:49 AM
آخر رد: عبدالله الدوسري
  كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 nooralcown 4 142 08-01-18, 01:47 PM
آخر رد: nooralcown
  [سؤال] كيفية حساب هذه القيمة ؟ Mohamed20 2 89 04-01-18, 04:31 PM
آخر رد: Mohamed20
  كيفية جعل جميع date time picker الموجودة في الproject تاخذ من تاريخ السيرفر وليس الجه تناسيم 2 85 01-01-18, 04:57 PM
آخر رد: تناسيم
  كيفية ادراج ذر داخل textbox محمود صالح 1 70 01-01-18, 04:19 PM
آخر رد: طالب برمجة
  كيفية وضع صورة أو فديو داخل الـ Form ؟http://vb4arb.com/vb/showthread.php?tid=23074 DanyGhost2010 6 129 26-12-17, 10:51 PM
آخر رد: DanyGhost2010
  [VB.NET] كيفية حذف جزء معين من الصور او اخفائه الماجيك مسعد 5 115 24-12-17, 06:36 AM
آخر رد: الماجيك مسعد
  كيفية تعدد الاسطر في الرسالة محمود صالح 2 60 22-12-17, 04:21 PM
آخر رد: محمود صالح

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


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