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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط ليبل بفورمة سابقة المبرمج العبقري 3 393 03-01-15, 03:24 PM
آخر رد: المبرمج العبقري
  تحريك ليبل عمار عيثاوي 4 830 14-12-14, 09:37 PM
آخر رد: عمار عيثاوي
  تجميد تفعيل ليبل djelloul 1 425 12-10-14, 12:42 AM
آخر رد: djelloul
  إظهار النتيجة في ليبل djelloul 6 573 30-09-14, 01:39 AM
آخر رد: vbnet
Question [سؤال] كيف يتم برمجة أداة ذكية (ودجت) ؟ السندبااد 2 570 18-05-14, 11:58 PM
آخر رد: السندبااد
  كيف اكتب رمز المباوند على اداة ليبل aftfm 0 313 02-07-13, 12:51 AM
آخر رد: aftfm
  كيف اجعل RichTextBox يكون لعرض النص فقط مثل ليبل ولايمكن للمستخدم الكتابه فيه ali.alfoly 7 623 16-06-13, 03:25 AM
آخر رد: ali.alfoly

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


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