[RaggiTech]

كاتب المشاركة : أبو يعقوب

السلام عليكم

في ادوات طيبة مؤمنة وفي ادوات يهودية صهيونية متعصبة ضد الشفافية

انا اظن ان السبب : الاداة تطلب من الويندوز ان يرسمها مثل button -- هل هذا هو السبب؟

=====

بخصوص الشفافية هناك موضوع اخر

وهو يتعلق بتحديد شكل سطح الادة


مثلا كيف نجعل الادة على شكل دائرة او مربع مقوس الزوايا

لك موضوع استاذي العزيز يتحدث عن تدوير شكل الادوات


وذلك عن طريق استخدام الخاصية region

لكن هذه الطريقة تعطي الاداة حواف كريهة ذات نتوءات مزعجة


انا والحمد لله اعرف طريقة اطبقها دائما وهي ناجحة لحد الآن

وهي تتلخص في التالي:

1- تضليل (shadows ) الخاصية BackColor للاداة الام

2- جعل BackColor تبع الاداة الام = Color.Transparent


هكذا يكون هناك خاصية BackColor للاداة الام وخاصية جديدة ولن يستطيع المستخدم تغيير لون الخلفية الحقيقي ( لون خلفية الام)


هكذا

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Public Class [/color][COLOR=#0000bb]ExControl
    Inherits Control
    Dim _BackColor [/COLOR][color=#007700]As [/color][color=#0000bb]Color [/color][color=#007700]= [/color][color=#0000bb]Color[/color][color=#007700].[/color][COLOR=#0000bb]White
    [/COLOR][color=#007700]Public [/color][color=#0000bb]Sub [/color][COLOR=#007700]New()
        [/COLOR][color=#0000bb]SetStyle[/color][color=#007700]([/color][color=#0000bb]ControlStyles[/color][color=#007700].[/color][color=#0000bb]SupportsTransparentBackColor[/color][color=#007700], [/color][color=#0000bb]True[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]MyBase[/color][color=#007700].[/color][color=#0000bb]BackColor [/color][color=#007700]= [/color][color=#0000bb]Color[/color][color=#007700].[/color][COLOR=#0000bb]Transparent
    End Sub
    [/COLOR][color=#007700]Public [/color][color=#0000bb]Shadows Property BackColor[/color][color=#007700]() As [/color][COLOR=#0000bb]Color
        Get
            [/COLOR][color=#007700]Return [/color][COLOR=#0000bb]_BackColor
        End Get
        Set[/COLOR][color=#007700]([/color][color=#0000bb]ByVal value [/color][color=#007700]As [/color][color=#0000bb]Color[/color][COLOR=#007700])
            If [/COLOR][color=#0000bb]_BackColor [/color][color=#007700]<> [/color][COLOR=#0000bb]value Then
                _BackColor [/COLOR][color=#007700]= [/color][COLOR=#0000bb]value
                Me[/COLOR][color=#007700].[/color][color=#0000bb]Invalidate[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
        [/COLOR][COLOR=#0000bb]End Set
    End Property
    [/COLOR][color=#007700]Protected [/color][color=#0000bb]Overrides Sub OnPaint[/color][color=#007700]([/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]PaintEventArgs[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]MyBase[/color][color=#007700].[/color][color=#0000bb]OnPaint[/color][color=#007700]([/color][color=#0000bb]e[/color][COLOR=#007700])

    [/COLOR][COLOR=#0000bb]End Sub
End [/COLOR][COLOR=#007700]Class  
[/COLOR][color=#0000bb][/color][/COLOR]

ماتعليقك على هذه الطريقة؟