تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عندي سؤال في ليبل حسن الجلب 1 1,228 05-10-21, 11:59 PM
آخر رد: asmarsou
  السلام عليكم ممكن سؤال في اضافه اكثر من ليبل اليوم السابع 4 1,794 31-12-20, 02:33 PM
آخر رد: اليوم السابع
  [سؤال] طباعة الباركود ليبل Moham 7 3,123 30-11-20, 10:38 PM
آخر رد: ibra9009
  [VB.NET] لو سحمتو بدي مثلا لو الماوس دخل ع ليبل يطلع كتابه بجانب الماوس ! Re9x 2 1,323 17-03-20, 07:24 PM
آخر رد: Re9x
  متاج استخلص كلمه في ليبل اليوم السابع 2 1,246 08-01-20, 06:30 AM
آخر رد: اليوم السابع
  [VB.NET] اخفاء ليبل المنذر 6 2,308 12-10-19, 06:50 PM
آخر رد: elgokr
  طباعة ليبل من الفورم نور الهدى الهدى 10 4,241 26-07-18, 09:02 PM
آخر رد: نور الهدى الهدى
  تثبيت ليبل بعد تحريكة السيد الجوهري 6 2,019 25-04-18, 01:03 AM
آخر رد: السيد الجوهري
  [VB.NET] اضافة ليبل لطباعة باداة PrintPreview محمد اسماعيل 3 1,746 28-10-17, 01:50 AM
آخر رد: Amir_Alzubidy
  [سؤال] كيفية ربط ليبل بفورمة سابقة المبرمج العبقري 3 2,370 03-01-15, 03:24 PM
آخر رد: المبرمج العبقري

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


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