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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question كيفية التخلص من تكرار تخزين البيانات الرائد 12 324 11-07-19, 10:51 PM
آخر رد: Al Wilaya
  مساعدة كيفية عمل نفس الرسام وحفظ الصورة بنفس ID alshandodi 3 103 08-07-19, 12:58 PM
آخر رد: ابراهيم ايبو
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 282 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 3 221 02-07-19, 05:16 PM
آخر رد: ابراهيم ايبو
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 299 12-06-19, 11:41 AM
آخر رد: new2016
  كيفية استخدام زر في لوحة المفاتيح لتطبيق امر معين Emam emam 5 220 11-06-19, 04:27 AM
آخر رد: Emam emam
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 172 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  كيفية طباعة الفواتير الريسيت alipro 0 132 30-05-19, 01:41 AM
آخر رد: alipro
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 312 29-04-19, 03:04 PM
آخر رد: alsouf
  كيفية ربط و فصل اتصال SSH mohammadsaeed01 3 168 20-04-19, 06:18 AM
آخر رد: elgokr

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


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