منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

كود :

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

وتكون هناك اكثر من ادات بيكتر بوكس
هل يمكن اختصار الكود علما ان الصورة واحدة
اي عندما يمر الماوس على كل بيكتر يتم التاثير بالصورة ولوحدها في نفس الوقت
وشكرا

السلام عليكم

في داخل الكود استخدم 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

(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

اشكر اخي مساعدة فعلا انت مساعدة واتمنى لك الصحة والعافية
الله يحفظك

الله يحفظك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

bidaya

مساعدة

bidaya

مساعدة