بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
هناك 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
الا ان هناك خطأ
ارجو المساعدة على تصميم ليبل متطورة، يتغير لونها حسب حركة مؤشر الماوس فوقها
والف الف شكر