[bidaya]

السلام عليكم ورمضان كريم

ابحث على كود لعمل كنترول شفاف استعمله في برنامجي

المثال المرفق به طريقة لكن اجد صعوبة في الكود

المشكل بعد اضافة الكنترول فوق الادوات الاخرى يظهر اسفل الادوات

واريد اضافة تكست للكنترول

وكمثال اريد عمل مثال الي بالصورة

[عبدالله الدوسري]

وعليكم السلام 

كل Control لدية خاصية بإسم BackColor ضعها = Transparent

Control.BackColor = Color.Transparent


أيضاً يحتوي على أمرين
Control.BringToFront 
Control.SendToBack 

BringToFront 
ليصبح الـ Control في الأمام فوق جميع الـ Controls الأخرى ضمن نفس الحاوية أو الأب أقصد.

SendToBack 
ليصبح الـ Control في الخلف تحت جميع الـ Controls الأخرى ضمن نفس الحاوية.


لعمل حدود زواياها مستديرة يجب علية أن ترسم هذة الحدود بنفسك :
   

   

   

   
 
   

   

   

   

   


  tronsparont Label.rar (الحجم : 334.17 ك ب / التحميلات : 44)



بإمكانك إستخدام أي كنترول موجود وتعديل خصائصة أو الإضافة عليها 
أو حتى تغيير حركاتة وتصرفاتة واإستجاباتة كما تريد أنت

[bidaya]

الله يبارك فيك اخي الكريم

فعلا درس قيم الله مجعله لك في ميزان الحسنات

لكن اخي الكريم 

المشكل بعد اضافة الكنترول فوق الادوات الاخرى يظهر الفورم ولا تظهر الادات

 

[silverlight]

الشفافية لكي تتحقق تماما يجب التعامل مع الألوان و الصور في نفس الوقت
خاصة ان جميع الكونترول تحصل علي شفافيتها من الفورم نفسه
الكود التالي عبارة عن مثال بسيط يوضح كيفية الحصول غلي label شفاف بالتعامل مع الألوان فقط

PHP كود :

Imports System.ComponentModel

Public Class CairoLabel
    Inherits Label

    Private _opacity As Double = 1

    Public Sub New()
        MyBase.SetStyle(ControlStyles.UserPaint, True)
        MyBase.SetStyle(ControlStyles.ResizeRedraw, True)
        MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    End Sub

    <Browsable(True), EditorBrowsable(EditorBrowsableState.Always), DefaultValue(1.0R), TypeConverter(GetType(OpacityConverter))>
    <RefreshProperties(RefreshProperties.All), Description("Gets or set the opacity percentage of the control."), Category("Cairo")>
    Public Overridable Property Opacity() As Double
        Get
            Return _opacity
        End Get
        Set(value As Double)
            _opacity = value
            Dim c As Color = Me.BackColor
            Dim alpha As Byte = CalcualteOpacity(value)
            Me.BackColor = UpdateControlColor(c, alpha)
            Me.Invalidate()
        End Set
    End Property

    Protected Overrides Sub OnBackColorChanged(e As EventArgs)
        MyBase.OnBackColorChanged(e)
        Dim c As Color = Me.BackColor
        Dim alpha As Byte = CalcualteOpacity(_opacity)
        Me.BackColor = UpdateControlColor(c, alpha)
        Me.Invalidate()
    End Sub

    Private Function UpdateControlColor(source As Color, alpha As Byte) As Color
        alpha = Byte.MaxValue - alpha
        Return Color.FromArgb(CInt((1 - (alpha / Byte.MaxValue)) * Byte.MaxValue), source)
    End Function

    Private Function CalcualteOpacity(value As Double) As Byte
        Return CByte((If(value > 1, 1, If(value < 0, 0, value))) * 255)
    End Function

End Class 


[عبدالله الدوسري]

أكيد bidaya 
هذا ليس فوتوشوب
هذا فيجوال ستيديو

لا يوجد مبرمج سيجعل الأدوات كما فعلت بها انت
الـ Label من هو الكنترول الذي يحتوية ؟ هل هي النافذة ؟ إذن خلفية الـ Label ستكون خلفية النافية , وليس الكنترول الذي خلفها.

أنا لا اقول أن الذي تريدة مستحيل , لكن يحتاج إلى إجراءات أكثر , السؤال ؟ هل أنت مضطر لإظهار الكنترول الذي خلفة كخلفية للكنترول الذي أمامة؟

[bidaya]

(01-06-18, 03:09 AM)عبدالله الدوسري كتب : أكيد bidaya 
هذا ليس فوتوشوب
هذا فيجوال ستيديو

لا يوجد مبرمج سيجعل الأدوات كما فعلت بها انت
الـ Label من هو الكنترول الذي يحتوية ؟ هل هي النافذة ؟ إذن خلفية الـ Label ستكون خلفية النافية , وليس الكنترول الذي خلفها.

أنا لا اقول أن الذي تريدة مستحيل , لكن يحتاج إلى إجراءات أكثر , السؤال ؟ هل أنت مضطر لإظهار الكنترول الذي خلفة كخلفية للكنترول الذي أمامة؟

اكيد اخي الكريم 
في المثال الذي ارفقته في مشاركتي الاولى الكنترول شفاف ينقصه التكست فقط والحواف تكون بالشكل الذي عملته انت