تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة حركة لليبل
#1
السلام عليكم.اخواني بهاذ الموضوع بهذا الرابط .. مشاركة رقم33
http://vb4arb.com/vb/showthread.php?tid=17542&page=4
الليبل المكتوب عليه كلمة  : اليوم

عندما امرر عليه الماوس يصير بهاذ الشكل

الادوات هي بمكتبة DevComponents.DotNetBar2
جربت لكن ما عرفت كيف تسوية هاي الحركة.شكر للكل اخواني
الرد }}
تم الشكر بواسطة:
#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 , حافظ حافظ , حافظ حافظ
#3
شكرا اخ mrnooo و بارك الله فيك.لو ممكن تشوف الملف اخي جربت ولم لم اعرف كيف اسويها بارك الله فيك


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 76.11 ك ب / التحميلات : 12)
الرد }}
تم الشكر بواسطة:
#4
تفضل اخي التعديل


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 75.62 ك ب / التحميلات : 15)
Mish3l
الرد }}
تم الشكر بواسطة: حافظ حافظ , elgokr
#5
بارك الله فيك اخ tryold فعلا الملف هو ما اريد بس لي سؤال اخير من فضلك
لو اضفت 2 ليبل او حتى 10 ليبلات كيف اتصرف بهاي الحالة الله يرضى عليك
جربت اضافتهم بس ما يظهرو عل الفورم


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 77.32 ك ب / التحميلات : 13)
الرد }}
تم الشكر بواسطة:
#6
ما قدمه الاخ tryold
هو ما قدمه الاخ mrnooo2000

فشكراً لهم جميعاً على مساعدتهم

حتى يوضح لك الفكرة من كيفية استخدام الكود
ومن حيث استخدام اكتر من MyLabel فيمكنك استخدام التعدد
كما لو انك تقوم بوضع Label
وسيطبق على جميعهم اللون عن مرور الموس عليه

اما بخصوص لعمل BackColor Hover لاى شئ
وليكن لـ Label

كل ما عليك فعله التالى
لنقول ان لديك Label1 ناتى على منطقة Label1.MouseHover
ووضع الكود التالى بداخله
كود :
Label1.BackColor = Color.Orange

من ثم ناتى على منقطة Label1.MouseLeave
ووضع الكود التالى بداخله
كود :
Label1.BackColor = Color.Empty

وبكده كلما كان الموس داخل الـ Label سيعطي خلفية باللون البرتقالى
وبمجرد خروج الموس من الـ Label سيرجع الخلفية بدون لون اى شفاف

يمكنك تغيير كلمة Orange لوضع اللون الذى يناسبك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: حافظ حافظ , ابو روضة
#7
شكرا استاذ elgokr على الشرح و الكود ربنا يبارك فيك و في اعمالك يا رب
الرد }}
تم الشكر بواسطة: elgokr
#8
(21-07-18, 12:07 AM)حافظ حافظ كتب : شكرا استاذ elgokr على الشرح و الكود ربنا يبارك فيك و في اعمالك يا رب


الشكر لله


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود اضافة اسبوع على تاريخ معين Lathe1 5 342 18-06-22, 10:59 AM
آخر رد: Lathe1
  هل استطيع اضافة عدد 2 من السوتش في شبكة واحدة بسام محمدغانم 2 181 03-06-22, 04:49 PM
آخر رد: بسام محمدغانم
  كيف يمكن اضافة 100 سجل بسيريال مسلسل الى قاعدة بيانات dr.programming 3 436 11-05-22, 03:08 PM
آخر رد: dr.programming
  كيفية اضافة اكتر من عمليه في وقت واحد او إلغاءها في حالة حدوث خطأ Emam emam 6 603 26-04-22, 04:03 AM
آخر رد: ابو محمد محمد محمد
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 787 09-04-22, 02:15 AM
آخر رد: asmarsou
  ممكن طريقة اضافة باسورد عند انشاء برنامج للقنوات لكي عندما احد يريد ان يدخل الى البرن omar dz 6 1,074 20-03-22, 07:37 PM
آخر رد: omar dz
  هل يمكن اضافة بيانات اخري عند الطباعه مع داتا جريد فيو مثل الاسم التاريخ رقم الفاتور ahmedhhh2 3 629 13-03-22, 06:03 PM
آخر رد: ahmedhhh2
  هل يجب اضافة رقم اضافي لرقم الفاتورة لتجنب التكرار Rabeea Qbaha 6 2,715 25-02-22, 03:18 AM
آخر رد: Taha Okla
  [VB.NET] مشكلة لم استطع اضافة print form للفيجوال 2019 ولا 2022 bilgacim 2 774 12-02-22, 04:49 AM
آخر رد: bilgacim
  سؤال : هل يمكن اضافة فاصلة الوف علوية ( اعلى الارقام ) 00. 000'000'3 mh66 4 997 05-01-22, 12:44 AM
آخر رد: yassoo1985

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


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