[kafi2030]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

هناك 3 احداث تتم كتابتها، وفق لمرور مؤشر الماوس فوق الليبل وهي على سبيل المثال

كود :

Private Sub lbl_Add_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl_Add.MouseDown
        Me.lbl_Add.ForeColor = Color.Yellow
    End Sub

كود :

Private Sub lbl_Add_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_Add.MouseHover
        Me.lbl_Add.ForeColor = Color.Cyan
    End Sub

كود :

Private Sub lbl_Add_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_Add.MouseLeave
        Me.lbl_Add.ForeColor = Color.White
    End Sub

وهذه الاكواد تقوم باسناد لون معين، حسب حركة الماوس فوق الليبل

وجدت نفسي اكرر تلك الاكواد بشدة، وخاصة انه في كل نمودج من نماذجي لدي على الاقل 6 ليبل...

خطر ببالي .....لماذا لا يتم انشاء advanced label اسوة بما تم سابقا ( ومن قبل الاخ sooriaty جزاه الله كل خير، عندما انشء لنا advanced textbox)

قمت بانشاء كلاس جديد اسميته advanced label
ووضعت فيه

كود :

Imports System.ComponentModel

Public Class Advanced_Label
    Inherits Label


    Protected Overrides Sub MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl_Edit.MouseDown
        Me.ForeColor = Color.Yellow
    End Sub

    Protected Sub lbl_Edit_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_Edit.MouseHover
        Me.ForeColor = Color.Cyan
    End Sub

    Protected Sub lbl_Edit_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_Edit.MouseLeave
        Me.ForeColor = Color.White
    End Sub

End Class

الا ان هناك خطأ

ارجو المساعدة على تصميم ليبل متطورة، يتغير لونها حسب حركة مؤشر الماوس فوقها

والف الف شكر