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

كود :
Imports System.ComponentModel
Imports System.Reflection
Imports System.Drawing.Imaging

Public Class OpPictureBox
    Inherits System.Windows.Forms.PictureBox

#Region "Constructor(s)"
    Public Sub New()
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        SetStyle(ControlStyles.Opaque, False)
        SetStyle(ControlStyles.DoubleBuffer, True)
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        SetStyle(ControlStyles.UserPaint, True)
        UpdateStyles()
    End Sub
#End Region

#Region "Transparency Part"

#Region "Fields"
    Private opa As Double = 1.0R
    Private fc As Color = Color.FromKnownColor(KnownColor.Control)
    Private mcc As Boolean = True
#End Region

#Region "Properties"
    <DefaultValue(1.0R)> _
    <TypeConverter(GetType(OpacityConverter))> _
    <Description("Set the opacity percentage of the control.")> _
    <Category("Control Style")> _
    Public Property Opacity As Double
        Get
            Return Me.opa
        End Get
        Set(ByVal value As Double)
            Me.opa = value
            Invalidate()
        End Set
    End Property

    <Browsable(False)> _
    <EditorBrowsable(EditorBrowsableState.Never)> _
    <DefaultValue(GetType(Color), "Transparent")> _
    Public Overrides Property BackColor() As System.Drawing.Color
        Get
            Return Color.Transparent
        End Get
        Set(ByVal value As System.Drawing.Color)
        End Set
    End Property

    <Description("Set hot color.")> _
    <Category("Control Style")> _
    Public Property FillColor() As Color
        Get
            Return Me.fc
        End Get
        Set(ByVal value As Color)
            Me.fc = value
            Invalidate()
        End Set
    End Property

    <Description("Specify whether the control is compatible when putted on a container.")> _
    <Category("Control Style")> _
    Public Property MultiControlCompatibility As Boolean
        Get
            Return Me.mcc
        End Get
        Set(ByVal value As Boolean)
            Me.mcc = value
            Invalidate()
        End Set
    End Property
#End Region

#Region "Methods"
    Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)
        If Me.IsHandleCreated OrElse (Me.Parent IsNot Nothing AndAlso Me.Parent.Created) Then
            If Me.mcc Then
                Dim bmp As New Bitmap(Me.Parent.ClientRectangle.Width, Me.Parent.ClientRectangle.Height)
                Me.Parent.DrawToBitmap(bmp, New Rectangle(New Point(0, 0), bmp.Size))
                Dim pt As New Point(0, 0)
                If TypeOf Me.Parent Is Form Then
                    Select Case CType(Me.Parent, Form).FormBorderStyle
                        Case FormBorderStyle.None
                            pt = New Point((Me.Parent.Width - Me.Parent.ClientRectangle.Width), (Me.Parent.Height - Me.Parent.ClientRectangle.Height))
                        Case FormBorderStyle.FixedSingle, FormBorderStyle.FixedDialog, FormBorderStyle.FixedToolWindow
                            pt = New Point((Me.Parent.Width - Me.Parent.ClientRectangle.Width) - 3, (Me.Parent.Height - Me.Parent.ClientRectangle.Height) - 3)
                        Case FormBorderStyle.Fixed3D
                            pt = New Point((Me.Parent.Width - Me.Parent.ClientRectangle.Width) - 5, (Me.Parent.Height - Me.Parent.ClientRectangle.Height) - 5)
                        Case FormBorderStyle.Sizable, FormBorderStyle.SizableToolWindow
                            pt = New Point((Me.Parent.Width - Me.Parent.ClientRectangle.Width) - 8, (Me.Parent.Height - Me.Parent.ClientRectangle.Height) - 8)
                    End Select
                End If
                bmp = Me.CropImage(bmp, New Rectangle(pt, New Size(Me.Parent.ClientRectangle.Width, Me.Parent.ClientRectangle.Height)))
                bmp = Me.CropImage(bmp, New Rectangle(Me.Location, Me.Size))
                pe.Graphics.DrawImage(bmp, New Point(0, 0))
            End If
        Else
            MyBase.OnPaint(pe)
            Exit Sub
        End If
        If Not Me.FillColor = Color.Transparent Then
            Using fsb As New SolidBrush(Color.FromArgb(Me.opa * 255, Me.FillColor))
                pe.Graphics.FillRectangle(fsb, New Rectangle(0, 0, Me.Width, Me.Height))
            End Using
        End If
        Me.DrawImage(pe.Graphics, Me.ClientRectangle)
    End Sub

    Private Sub DrawImage(ByVal g As Graphics, ByVal rect As Rectangle)
        Dim m_matrixArr As Single()() = {New Single() {1, 0, 0, 0, 0}, _
                                      New Single() {0, 1, 0, 0, 0}, _
                                      New Single() {0, 0, 1, 0, 0}, _
                                      New Single() {0, 0, 0, Me.opa, 0}, _
                                      New Single() {0, 0, 0, 0, 1}}
        Dim m_Matrix As New ColorMatrix(m_matrixArr)
        Dim Attr As New ImageAttributes()
        Attr.SetColorMatrix(m_Matrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
        Dim client As Rectangle = Me.ClientRectangle
        If Me.Image IsNot Nothing Then
            Select Case Me.SizeMode
                Case PictureBoxSizeMode.AutoSize, PictureBoxSizeMode.Normal
                    g.DrawImage(Me.Image, New Rectangle(0, 0, Me.Image.Width, Me.Image.Height), 0, 0, Me.Image.Width, Me.Image.Height, GraphicsUnit.Pixel, Attr)
                    Exit Select
                Case PictureBoxSizeMode.CenterImage
                    If (Me.Image.Width > Me.Width) OrElse (Me.Image.Height > Me.Height) Then
                        Dim wval As Integer = 0
                        Dim hval As Integer = 0
                        If (Me.Image.Width > Me.Width) Then
                            wval = ((Me.Image.Width - Me.Width) / 2)
                        End If
                        If (Me.Image.Height > Me.Height) Then
                            hval = ((Me.Image.Height - Me.Height) / 2)
                        End If
                        Dim myimg As Image = Me.CropImage(Me.Image, New Rectangle(wval, hval, (Me.Image.Width - wval), (Me.Image.Height - hval)))
                        Dim r As New Rectangle(0, 0, myimg.Width, myimg.Height)
                        g.DrawImage(myimg, r, 0, 0, myimg.Width, myimg.Height, GraphicsUnit.Pixel, Attr)
                        Exit Select
                    Else
                        Dim x As Integer = ((Me.Width / 2) - (Me.Image.Width / 2))
                        Dim y As Integer = ((Me.Height / 2) - (Me.Image.Height / 2))
                        Dim r As New Rectangle(x, y, Me.Image.Width, Me.Image.Height)
                        g.DrawImage(Me.Image, r, 0, 0, Me.Image.Width, Me.Image.Height, GraphicsUnit.Pixel, Attr)
                        Exit Select
                    End If
                Case PictureBoxSizeMode.StretchImage
                    Dim myimg As Image = New Bitmap(Me.Image, Me.Width, Me.Height)
                    Dim r As New Rectangle(0, 0, myimg.Width, myimg.Height)
                    g.DrawImage(myimg, r, 0, 0, myimg.Width, myimg.Height, GraphicsUnit.Pixel, Attr)
                    Exit Select
                Case PictureBoxSizeMode.Zoom
                    Dim wh As Double = (Me.Image.Width / Me.Image.Height)
                    If Me.Image.Width > Me.Image.Height Then
                        Dim w As Integer = Me.Width
                        Dim h As Integer = CInt(w / wh)
                        Dim x As Integer = 0
                        Dim y As Integer = Math.Abs((Me.Height - h) / 2)
                        Dim r As New Rectangle(x, y, w, h)
                        Dim myimg As Image = New Bitmap(Me.Image, w, h)
                        g.DrawImage(myimg, r, 0, 0, w, h, GraphicsUnit.Pixel, Attr)
                        Exit Select
                    Else
                        Dim h As Integer = Me.Height
                        Dim w As Integer = CInt(h * wh)
                        Dim x As Integer = Math.Abs((Me.Width / 2) - (w / 2))
                        Dim y As Integer = 0
                        Dim r As New Rectangle(x, y, w, h)
                        Dim myimg As Image = New Bitmap(Me.Image, w, h)
                        g.DrawImage(myimg, r, 0, 0, w, h, GraphicsUnit.Pixel, Attr)
                        Exit Select
                    End If
            End Select
            Return
        End If
        g.FillRectangle(New SolidBrush(Me.BackColor), rect)
    End Sub

    Public Function CropImage(ByVal img As System.Drawing.Image, ByVal croppingRect As System.Drawing.Rectangle) As System.Drawing.Image
        Using bmp As New Bitmap(img)
            If (croppingRect.X > img.Width) OrElse (croppingRect.Y > img.Height) Then
                Return New Bitmap(croppingRect.Width, croppingRect.Height)
                Exit Function
            End If
            If ((croppingRect.X + croppingRect.Width) > img.Width) Then
                croppingRect.Width = (img.Width - croppingRect.X)
            End If
            If ((croppingRect.Y + croppingRect.Height) > img.Height) Then
                croppingRect.Height = (img.Height - croppingRect.Y)
            End If
            If (croppingRect.X < 0) Then
                croppingRect.X = 0
            End If
            If (croppingRect.Y < 0) Then
                croppingRect.Y = 0
            End If
            If (croppingRect.Width > img.Width) Then
                croppingRect.Width = img.Width
            End If
            If (croppingRect.Height > img.Height) Then
                croppingRect.Height = img.Height
            End If
            Return bmp.Clone(croppingRect, bmp.PixelFormat)
        End Using
    End Function
#End Region

#End Region

#Region "Click through part"

#Region "Fields"
    Private ct As Boolean = True
    Private hlst As New List(Of String)
#End Region

#Region "Properties"
    <Description("Set the ability for the user to click through the control.")> _
    <Category("Control Style")> _
    Public Property ClickThrough As Boolean
        Get
            Return Me.ct
        End Get
        Set(ByVal value As Boolean)
            Me.ct = value
        End Set
    End Property
#End Region

#Region "Methods"
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MyBase.OnClick(e)
        If Me.ct Then
            Dim ctrl As Control = Me.GetClickedControl()
            ctrl.Focus()
            Dim T As Type = ctrl.GetType()
            Dim MI As MethodInfo = T.GetMethod("OnClick", (BindingFlags.NonPublic Or BindingFlags.Instance))
            MI.Invoke(ctrl, New Object() {e})
        End If
    End Sub

    Private Function GetClickedControl() As Control
        For C As Integer = 0 To Me.Parent.Controls.Count - 1
            If Not (Me.Parent.Controls(C).Handle = Me.Handle) Then
                If Me.ControlOwnCursor(Me.Parent.Controls(C)) Then
                    Return Me.Parent.Controls(C)
                End If
            End If
        Next
        Return Me.Parent
    End Function

    Private Function ControlOwnCursor(ByVal ctrl As Control) As Boolean
        Return ctrl.RectangleToScreen(ctrl.ClientRectangle).Contains(Cursor.Position)
    End Function
#End Region

#End Region
End Class
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام , جرب هذا اخي

PHP كود :
Public Sub InitializeMyForm()
BackColor Color.Red
TransparencyKey 
BackColor
End Sub 
'InitializeMyForm 
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيرا اخى
انا اريد اى كنترول يكون يدعم الشفافية مثل الفورم

يا جماعة مش عارف المنتدى ماله الله المستعان

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

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

كان في أداة للأخ أبورائد في المنتدى القديم
Transparent Control
الرد }}}}
تم الشكر بواسطة:
#5
طيب ياريت لو عند حد من الاخوة يرفعها
الرد }}}}
تم الشكر بواسطة:
#6
فين الاخوة رجاء المساعدة
الرد }}}}
تم الشكر بواسطة:
#7
اخي علي ..

اذا انت مهتم بتصميم البرامج اترك عنك الWindows form

امامك حلين :

1- تحمل ستايلات للفورم او الكنترول جاهزة سواء كانت Skin او DevComponent او حتى Dotnetbar

2- تصمم برنامجك باستخدام تقنية WPF الحديثة التي تتيح لك تصميم اي واجهة تتخليها
(طبعا بالكنترول وكل شي) كانك تصمم بالفوتوشوب


هذي نصيحتي لك واتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم ورحمة الله وبركاته

أخي الحبيب أخبرني ما هي الفكرة التي تود تطبيقها بشكل أوضح
يمكن في طريقة أخرى لتطبيقها
الرد }}}}
تم الشكر بواسطة:
#9
اخى الشاكى جزاك الله خيرا لاكن للاسف وصلت ل 99% من التصميم
اخى وحبيبى sooriaty الفكرة انظر الصورة



انظر السهم اللون الاسود الباهت هذا عبارة عن كنترول شفاف تم اظهاره فوق الفورم
الرد }}}}
تم الشكر بواسطة:
#10
(30-09-13, 12:04 AM)ali.alfoly كتب : اخى الشاكى جزاك الله خيرا لاكن للاسف وصلت ل 99% من التصميم
اخى وحبيبى sooriaty الفكرة انظر الصورة



انظر السهم اللون الاسود الباهت هذا عبارة عن كنترول شفاف تم اظهاره فوق الفورم

يعني تبي تخلي السهم شفاف ؟؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يمكن الاستغناء عن التايمر واستخدام شئ بديل يكون افضل ؟ !! الماجيك مسعد 6 86 اليوم, 03:12 AM
آخر رد: الماجيك مسعد
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 58 05-12-16, 02:18 PM
آخر رد: a_abdullah
  اريد post لي جهاز ubnt .... خبراء sharo.azad 1 61 05-11-16, 06:58 PM
آخر رد: sharo.azad
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 275 05-11-16, 12:00 PM
آخر رد: Adrees
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 86 03-11-16, 07:08 PM
آخر رد: soper
  [VB.NET] إضافه نص الي صوره بحيث يكون اسفل الصوره بدون استقطاع اي جزء منها جوري 4 169 31-10-16, 08:56 PM
آخر رد: جوري
  اريد اجعل برنامجي يقبل اي نت فيرم ورك thevirus 2 114 31-10-16, 09:24 AM
آخر رد: thevirus
Photo [VB.NET] سؤالى عن انواع البيانات اريد اعرف نوع روابط الانترنت elhon.tec 4 104 27-10-16, 11:38 AM
آخر رد: ممدوح
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 7 2,509 22-10-16, 09:53 AM
آخر رد: abbas alshuily
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 99 21-10-16, 04:07 AM
آخر رد: أبو عمر

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


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