تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ليبل ذكية !
#1
بسم الله الرحمن الرحيم

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

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

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

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


والف الف شكر


الملفات المرفقة صورة/صور
           
الرد
تم الشكر بواسطة:
#2
السلام عليكم،
كود :
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
الرد
تم الشكر بواسطة: kslawy , mohammed moh , kafi2030
#3
و عليكم السلام و رحمة الله
تفضل
PHP كود :
Public Class advanced_label
    Inherits System
.Windows.Forms.Label
    
Protected Overrides Sub OnMouseDown(As MouseEventArgs)
        
MyBase.OnMouseDown(e)
        
ForeColor Color.Yellow
    End Sub
    
Protected Overrides Sub OnMouseHover(As EventArgs)
        
MyBase.OnMouseHover(e)
        
ForeColor Color.Cyan
    End Sub
    
Protected Overrides Sub OnMouseLeave(As EventArgs)
        
MyBase.OnMouseLeave(e)
        
ForeColor Color.White
    End Sub
End 
Class 
الرد
تم الشكر بواسطة: kafi2030
#4
الف الف شكر
للاخوة
Aly El-Haddad
mohammed moh
بارك الله فيكم، وبهذا المنتدى الرائع

الرد
تم الشكر بواسطة: mohammed moh


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم ممكن سؤال في اضافه اكثر من ليبل اليوم السابع 4 593 31-12-20, 02:33 PM
آخر رد: اليوم السابع
  [سؤال] طباعة الباركود ليبل Moham 7 1,379 30-11-20, 10:38 PM
آخر رد: ibra9009
  [VB.NET] لو سحمتو بدي مثلا لو الماوس دخل ع ليبل يطلع كتابه بجانب الماوس ! Re9x 2 641 17-03-20, 07:24 PM
آخر رد: Re9x
  متاج استخلص كلمه في ليبل اليوم السابع 2 550 08-01-20, 06:30 AM
آخر رد: اليوم السابع
  [VB.NET] اخفاء ليبل المنذر 6 1,202 12-10-19, 06:50 PM
آخر رد: elgokr
  طباعة ليبل من الفورم نور الهدى الهدى 10 2,364 26-07-18, 09:02 PM
آخر رد: نور الهدى الهدى
  تثبيت ليبل بعد تحريكة السيد الجوهري 6 1,159 25-04-18, 01:03 AM
آخر رد: السيد الجوهري
  [VB.NET] اضافة ليبل لطباعة باداة PrintPreview محمد اسماعيل 3 1,063 28-10-17, 01:50 AM
آخر رد: Amir_Alzubidy
  [سؤال] كيفية ربط ليبل بفورمة سابقة المبرمج العبقري 3 1,582 03-01-15, 03:24 PM
آخر رد: المبرمج العبقري
  تحريك ليبل عمار عيثاوي 4 2,716 14-12-14, 09:37 PM
آخر رد: عمار عيثاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم