24-02-17, 11:10 PM
السلام عليكم
لنفترض عندنا هذا الكود لتغيير خلفية البيكتر بوكس بصورة من الريسورس عند وظع الماوس فوقها
وعند ابعاد الماس
وتكون هناك اكثر من ادات بيكتر بوكس
هل يمكن اختصار الكود علما ان الصورة واحدة
اي عندما يمر الماوس على كل بيكتر يتم التاثير بالصورة ولوحدها في نفس الوقت
وشكرا
لنفترض عندنا هذا الكود لتغيير خلفية البيكتر بوكس بصورة من الريسورس عند وظع الماوس فوقها
كود :
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
وتكون هناك اكثر من ادات بيكتر بوكس
هل يمكن اختصار الكود علما ان الصورة واحدة
اي عندما يمر الماوس على كل بيكتر يتم التاثير بالصورة ولوحدها في نفس الوقت
وشكرا