تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة حركة لليبل
#2
الأمر لا يحتاج الى مكتبات يمكنك أن تصنع أدواتك بنفسك 

هذا Label يعطيك ما تريد 
كود :
Class MyLabel
   Inherits Label
   Private HooverBackColor As Color
   Private HooverTextColor As Color
   Private HooverBorderColor As Color
   Private Shape As Drawing2D.GraphicsPath

   Sub New()
       Font = New System.Drawing.Font("Segoe UI", 8)
       ForeColor = Color.FromArgb(142, 142, 142)
       BackColor = Color.Transparent
       HooverBackColor = Color.LightBlue
       HooverTextColor = Color.White
       HooverBorderColor = Color.White
   End Sub
   Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
       MyBase.OnMouseEnter(e)

       Shape = New Drawing2D.GraphicsPath
       With Shape
           .AddArc(0, 0, 10, 10, 180, 90)
           .AddArc(Width - 11, 0, 10, 10, -90, 90)
           .AddArc(Width - 11, Height - 11, 10, 10, 0, 90)
           .AddArc(0, Height - 11, 10, 10, 90, 90)
           .CloseAllFigures()
       End With

       Using Bmp As New Bitmap(Width, Height)
           Using G = Graphics.FromImage(Bmp)
               G.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
               G.Clear(Color.Transparent) ' Set control background to transparent
               Using Backbrush As New SolidBrush(HooverBackColor)
                   G.FillPath(Backbrush, Shape) ' Draw RTB background
               End Using
               Using BorderPen As New Pen(HooverBorderColor)
                   G.DrawPath(BorderPen, Shape) ' Draw border
               End Using
               Dim F As New Font(Me.Font, FontStyle.Bold)
               Dim Format As StringFormat = New StringFormat() With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center}
               Using Textbrush As New SolidBrush(HooverTextColor)
                   G.DrawString(Me.Text, F, Textbrush, ClientRectangle, Format)
               End Using
               Using GF = Me.CreateGraphics
                   GF.DrawImage(Bmp.Clone(), 0, 0)
               End Using
           End Using
       End Using

   End Sub
   Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
       MyBase.OnMouseLeave(e)
       Me.Refresh()
   End Sub

End Class

ضع الكود فى كلاس  ثم Build
بعد ذلك يمكنك اضافته لديك كأى كونترول عادى
الرد }}}
تم الشكر بواسطة: elgokr , حافظ حافظ , حافظ حافظ


الردود في هذا الموضوع
اضافة حركة لليبل - بواسطة حافظ حافظ - 19-07-18, 03:15 PM
RE: اضافة حركة لليبل - بواسطة mrnooo2000 - 20-07-18, 03:32 PM
RE: اضافة حركة لليبل - بواسطة حافظ حافظ - 20-07-18, 07:46 PM
RE: اضافة حركة لليبل - بواسطة tryold - 20-07-18, 08:42 PM
RE: اضافة حركة لليبل - بواسطة حافظ حافظ - 20-07-18, 08:52 PM
RE: اضافة حركة لليبل - بواسطة elgokr - 20-07-18, 11:40 PM
RE: اضافة حركة لليبل - بواسطة حافظ حافظ - 21-07-18, 12:07 AM
RE: اضافة حركة لليبل - بواسطة elgokr - 21-07-18, 12:11 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة لون للالوان في التاكست بكس أحمد فتح الرحمن 4 467 08-01-25, 04:05 PM
آخر رد: أحمد فتح الرحمن
  اضافة ايام للتاريخ العيدروس 2 376 07-01-25, 02:06 AM
آخر رد: العيدروس
  [سؤال] اضافة ملف Pdf الى الريسورس واستخراجه الى مسار معين .. ackore 6 606 15-11-24, 02:51 AM
آخر رد: justforit
  [VB.NET] اضافة ملاحظة صوتية abo ragab 2 463 15-10-24, 10:14 PM
آخر رد: abo ragab
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 3 2,164 30-09-24, 12:52 AM
آخر رد: asmarsou
  اضافة صورة مخزنة في قاعدة البيانات sql الى الكريستال ريبورت صالح عبدالله 3 470 24-09-24, 09:52 AM
آخر رد: صالح عبدالله
  اضافة اسطر فارعة في الداتا جريد فيو ismaeel 1 561 25-08-24, 02:43 AM
آخر رد: Taha Okla
  [سؤال] مشكلة في اضافة التاريخ محمد العامر 4 534 16-06-24, 04:12 PM
آخر رد: محمد العامر
  اضافة سطور للداتاجريد فيو أحمد فتح الرحمن 2 527 22-05-24, 10:14 PM
آخر رد: أحمد فتح الرحمن
  اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري new_programer 1 520 28-04-24, 04:52 PM
آخر رد: new_programer

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


يقوم بقرائة الموضوع: