منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد اى اوبجكت يكون يقبل الشفافية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد اى اوبجكت يكون يقبل الشفافية (/showthread.php?tid=327)

الصفحات: 1 2 3 4 5

RE: اريد اى اوبجكت يكون يقبل الشفافية - ali.alfoly - 30-09-13

اريد الا وبجكت مثل الذى بالمشاركة الاولى والذى بالصورة
انظر


RE: اريد اى اوبجكت يكون يقبل الشفافية - sooriaty03 - 30-09-13

السلام عليكم ورحمة الله وبركاته

تفضل أخي وجدت أخيرا أداة أخي أبورائد واسمها RichTextBoxEx

واقتبست منها كود الأداة الشفافة
من بعد إذن أخي أبورائد

كود :
#Region " TransparentControl "
Public Class TransparentControl
    Inherits ContainerControl
    Public Sub New()
        SetStyle(ControlStyles.Opaque, True)
        UpdateStyles()
        AutoScaleMode = Windows.Forms.AutoScaleMode.None
        TabStop = False
    End Sub
    Private Const WS_EX_TRANSPARENT As Short = &H20
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        <Security.Permissions.SecurityPermissionAttribute(Security.Permissions.SecurityAction.LinkDemand, UnmanagedCode:=True)> _
        Get
            Dim cp = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or WS_EX_TRANSPARENT
            Return cp
        End Get
    End Property
End Class
#End Region

بالتوفيق

RE: اريد اى اوبجكت يكون يقبل الشفافية - ali.alfoly - 30-09-13

طيب فيه خطئين


RE: اريد اى اوبجكت يكون يقبل الشفافية - eng.khalidvb - 30-09-13

السلام عليكم ورحمه الله وبركاته

بعد اذن اخي Sooriaty

اضف هذا الكود الى الــ user control

PHP كود :
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
    Get
        Dim cp As CreateParams = MyBase.CreateParams
        cp.ExStyle = &H20
        Return cp
    End Get
End Property
 
Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
    'do nothing here
End Sub
 
Public Overrides Sub Refresh()
    Parent.Invalidate(New Rectangle(Me.Location, Me.Size), True)
End Sub 

بعد ذلك تصبح الاداة شفافة

RE: اريد اى اوبجكت يكون يقبل الشفافية - ali.alfoly - 30-09-13

جزاك الله خيرا
يوجد خطاء

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

RE: اريد اى اوبجكت يكون يقبل الشفافية - eng.khalidvb - 30-09-13

اخي اذا كنت تريد التحكم في نسبة الشفافيه فانت بحاجة الى خاصيه Opacity

واعتقد ان هذه الخاصيه متوفرة فقط للفورم وليس controls tools


هذا على حسب علمي
تفضل اخي راجع هذا الرابط لعله يفيدك


http://www.sourcehints.com/articles/creating-a-real-transparent-label-in-vb-net.html

RE: اريد اى اوبجكت يكون يقبل الشفافية - ali.alfoly - 30-09-13

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

RE: اريد اى اوبجكت يكون يقبل الشفافية - sooriaty03 - 30-09-13

السلام عليكم ورحمة الله وبركاته


تفضل أخي هذا المثال ومرفق معه أداة الأخ أبورائد

RE: اريد اى اوبجكت يكون يقبل الشفافية - ali.alfoly - 30-09-13

بارك الله فيك وجزاك الله خيرا
بس المشكلة انى لا اريدها شفافه خالص اريد انا اتحكم فى اللون وفى نسبة الشفافيه لتصبح مثل الصورة التى ارفتها لك

RE: اريد اى اوبجكت يكون يقبل الشفافية - @@أبورائد@@ - 30-09-13

السلام عليكم ورحمة الله وبركاته


أخي علي....

ممكن تخبرنا ما الغاية لهكذا أداة....


السلام عليكم ورحمة الله وبركاته