Projektdateien hinzufügen.

Aviso/Benutzerdefinierte Elemente/TransparentControl.vb

@@ -0,0 +1,336 @@
+Imports System.ComponentModel
+Imports System.ComponentModel.Design
+Imports System.Windows.Forms
+Imports System.Drawing
+
+<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
+<Designer("System.Windows.Forms.Design.ParentControlDesigner, System.Design", GetType(IDesigner))> _
+<DesignerAttribute(GetType(TransparentControlDesigner))> _
+Public Class TransparentControl
+
+    Inherits Control
+
+#Region " Field "
+
+    Private m_transparent As Boolean
+    Private m_transparentColor As Color
+    Private m_opacity As Double
+    Private m_minSize As Size
+    Private m_backcolor As Color
+
+#End Region
+
+#Region " Constructor "
+
+    Public Sub New()
+
+        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
+        SetStyle(ControlStyles.Opaque, False)
+        SetStyle(ControlStyles.DoubleBuffer, True)
+        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
+        SetStyle(ControlStyles.UserPaint, True)
+        UpdateStyles()
+        m_minSize = New Size(100, 75)
+        m_transparent = False
+        m_transparentColor = Color.DodgerBlue
+        m_opacity = 1.0R
+        m_backcolor = Color.Transparent
+
+
+    End Sub
+
+#End Region
+
+#Region " Property "
+
+    <System.ComponentModel.Browsable(False)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
+    <System.ComponentModel.DefaultValue(GetType(Color), "Transparent")> _
+    <System.ComponentModel.Description("Set background color.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overrides Property BackColor() As System.Drawing.Color
+        Get
+            Return m_backcolor
+        End Get
+        Set(ByVal value As System.Drawing.Color)
+            m_backcolor = value
+            Refresh()
+        End Set
+    End Property
+
+    <System.ComponentModel.Browsable(True)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
+    <System.ComponentModel.DefaultValue(1.0R)> _
+    <System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _
+    <System.ComponentModel.Description("Set the opacity percentage of the control.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overridable Property Opacity() As Double
+        Get
+            Return m_opacity
+        End Get
+        Set(ByVal value As Double)
+            If value = m_opacity Then
+                Return
+            End If
+            m_opacity = value
+            UpdateStyles()
+            Refresh()
+        End Set
+    End Property
+
+    <System.ComponentModel.Browsable(True)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
+    <System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
+    <System.ComponentModel.Description("Enable control trnasparency.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overridable Property Transparent() As Boolean
+        Get
+            Return m_transparent
+        End Get
+        Set(ByVal value As Boolean)
+            If value = m_transparent Then
+                Return
+            End If
+            m_transparent = value
+            Refresh()
+        End Set
+    End Property
+
+    <System.ComponentModel.Browsable(True)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
+    <System.ComponentModel.DefaultValue(GetType(Color), "DodgerBlue")> _
+    <System.ComponentModel.Description("Set the fill color of the control.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overridable Property TransparentColor() As Color
+        Get
+            Return m_transparentColor
+        End Get
+        Set(ByVal value As Color)
+            m_transparentColor = value
+            Refresh()
+        End Set
+    End Property
+
+    Protected Overloads Overrides ReadOnly Property DefaultSize() As Size
+        Get
+            Return New Size(200, 100)
+        End Get
+    End Property
+
+    Public Overloads Overrides Property MinimumSize() As System.Drawing.Size
+        Get
+            Return m_minSize
+        End Get
+        Set(ByVal value As System.Drawing.Size)
+            If (value <> (m_minSize)) Then
+                m_minSize = value
+                Refresh()
+            End If
+        End Set
+    End Property
+
+#End Region
+
+#Region " Event "
+
+    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
+        MyBase.OnPaint(e)
+
+        DrawBackground(e.Graphics, Me)
+        DrawBorder(e.Graphics, Me)
+
+    End Sub
+
+    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
+        MyBase.OnResize(e)
+        Invalidate()
+    End Sub
+
+#End Region
+
+#Region " Method "
+
+    Public Overridable Sub DrawBorder(ByVal g As Graphics, ByVal control As TransparentControl)
+        Using p As New Pen(GetDarkColor(Me.TransparentColor, 40), 1)
+            Dim rect As New Rectangle(ClientRectangle.X, ClientRectangle.Y, ClientRectangle.Width - 1, ClientRectangle.Height - 1)
+            rect.Inflate(-1, -1)
+            g.DrawRectangle(p, rect)
+            p.Dispose()
+        End Using
+
+    End Sub
+
+    Public Overridable Sub DrawBackground(ByVal g As Graphics, ByVal control As TransparentControl)
+
+        If Transparent Then
+
+            Using sb As New SolidBrush(control.BackColor)
+                g.FillRectangle(sb, control.ClientRectangle)
+                sb.Dispose()
+
+                Using sbt As New SolidBrush(Color.FromArgb(control.Opacity * 255, control.TransparentColor))
+                    g.FillRectangle(sbt, control.ClientRectangle)
+                    sbt.Dispose()
+                End Using
+            End Using
+
+        Else
+
+            Using sb As New SolidBrush(control.TransparentColor)
+                g.FillRectangle(sb, control.ClientRectangle)
+                sb.Dispose()
+            End Using
+        End If
+
+    End Sub
+
+    Private Function GetLightColor(ByVal colorIn As Color, ByVal percent As Single) As Color
+        If percent < 0 OrElse percent > 100 Then
+            Throw New ArgumentOutOfRangeException("percent must be between 0 and 100")
+        End If
+        Dim a As Int32 = colorIn.A * Me.Opacity
+        Dim r As Int32 = colorIn.R + CInt(((255 - colorIn.R) / 100) * percent)
+        Dim g As Int32 = colorIn.G + CInt(((255 - colorIn.G) / 100) * percent)
+        Dim b As Int32 = colorIn.B + CInt(((255 - colorIn.B) / 100) * percent)
+        Return Color.FromArgb(a, r, g, b)
+    End Function
+
+    Private Function GetDarkColor(ByVal colorIn As Color, ByVal percent As Single) As Color
+        If percent < 0 OrElse percent > 100 Then
+            Throw New ArgumentOutOfRangeException("percent must be between 0 and 100")
+        End If
+        Dim a As Int32 = colorIn.A * Me.Opacity
+        Dim r As Int32 = colorIn.R - CInt((colorIn.R / 100) * percent)
+        Dim g As Int32 = colorIn.G - CInt((colorIn.G / 100) * percent)
+        Dim b As Int32 = colorIn.B - CInt((colorIn.B / 100) * percent)
+        Return Color.FromArgb(a, r, g, b)
+    End Function
+
+#End Region
+
+End Class
+
+<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
+Public Class TransparentControlDesigner
+
+    Inherits System.Windows.Forms.Design.ParentControlDesigner
+
+#Region " Field "
+
+    Private lists As DesignerActionListCollection
+
+#End Region
+
+#Region " Property "
+
+    Public Overrides ReadOnly Property ActionLists() As System.ComponentModel.Design.DesignerActionListCollection
+        Get
+            If lists Is Nothing Then
+                lists = New DesignerActionListCollection()
+                lists.Add(New TransparentControlActionList(Me.Component))
+
+            End If
+
+            Return lists
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property DefaultControlLocation() As System.Drawing.Point
+        Get
+            Return New Point(20, 20)
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property EnableDragRect() As Boolean
+        Get
+            Return True
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property AllowGenericDragBox() As Boolean
+        Get
+            Return True
+        End Get
+    End Property
+
+#End Region
+
+End Class
+
+Public Class TransparentControlActionList
+
+    Inherits DesignerActionList
+
+#Region " Field "
+    Private designerActionUISvc As System.ComponentModel.Design.DesignerActionUIService = Nothing
+    Private tc As TransparentControl
+#End Region
+
+#Region " Constructor "
+    Public Sub New(ByVal component As IComponent)
+        MyBase.New(component)
+        tc = component
+        designerActionUISvc = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
+    End Sub
+#End Region
+
+#Region " Property "
+
+    <System.ComponentModel.DefaultValue(1.0R)> _
+    <System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _
+    Public Overridable Property Opacity() As Double
+        Get
+            Return tc.Opacity
+        End Get
+        Set(ByVal value As Double)
+            GetPropertyByName("Opacity").SetValue(tc, value)
+        End Set
+    End Property
+
+    <System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
+    Public Overridable Property Transparent() As Boolean
+        Get
+            Return tc.Transparent
+        End Get
+        Set(ByVal value As Boolean)
+            GetPropertyByName("Transparent").SetValue(tc, value)
+        End Set
+    End Property
+
+    <System.ComponentModel.DefaultValue(GetType(Color), "OliveDrab")> _
+    Public Overridable Property TransparentColor() As Color
+        Get
+            Return tc.TransparentColor
+        End Get
+        Set(ByVal value As Color)
+            GetPropertyByName("TransparentColor").SetValue(tc, value)
+        End Set
+    End Property
+
+#End Region
+
+#Region " Function "
+    Private Function GetPropertyByName(ByVal propName As String) As PropertyDescriptor
+
+        Dim prop As PropertyDescriptor = TypeDescriptor.GetProperties(tc)(propName)
+        If prop Is Nothing Then
+            Throw New ArgumentException("Matching property not valid!", propName)
+        Else
+            Return prop
+        End If
+    End Function
+
+    Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
+
+        Dim items As New DesignerActionItemCollection()
+
+        items.Add(New DesignerActionPropertyItem("Opacity", "Opacity", "Set the opacity percentage of the control"))
+        items.Add(New DesignerActionPropertyItem("TransparentColor", "TransparentColor", "Set the fill color of the control"))
+        items.Add(New DesignerActionPropertyItem("Transparent", "Transparent ", "Enable trnasparency of the control"))
+
+        Return items
+
+    End Function
+#End Region
+
+End Class