منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ليبل ذكية ! - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ليبل ذكية ! (/showthread.php?tid=866)

ليبل ذكية ! - kafi2030 - 05-11-13

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

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

هناك 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

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

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

والف الف شكر

RE: ليبل ذكية ! - Aly El-Haddad - 06-11-13

السلام عليكم،
كود :
Imports System.ComponentModel

Public Class AdvLabel
    Inherits Label

    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(e)
        Me.ForeColor = Color.Yellow
    End Sub

    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseUp(e)
        Me.ForeColor = Color.Cyan
    End Sub

    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseMove(e)
        Me.ForeColor = Color.Cyan
    End Sub

    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        MyBase.OnMouseLeave(e)
        Me.ForeColor = Color.White
    End Sub
End Class


RE: ليبل ذكية ! - mohammed moh - 06-11-13

و عليكم السلام و رحمة الله
تفضل
PHP كود :
Public Class advanced_label
    Inherits System.Windows.Forms.Label
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        ForeColor = Color.Yellow
    End Sub
    Protected Overrides Sub OnMouseHover(e As EventArgs)
        MyBase.OnMouseHover(e)
        ForeColor = Color.Cyan
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
        MyBase.OnMouseLeave(e)
        ForeColor = Color.White
    End Sub
End Class 


RE: ليبل ذكية ! - kafi2030 - 06-11-13

الف الف شكر
للاخوة
Aly El-Haddad
mohammed moh
بارك الله فيكم، وبهذا المنتدى الرائع