Blend Form - نسخة قابلة للطباعة

PHP كود :

  Private Function CalculateColor(sca As Integer, src As Color, dst As Color) As Color
        Dim dstRed As Double = src.R * (sca / 255.0) + dst.R * (1.0 - (sca / 255.0))
        Dim dstGreen As Double = src.G * (sca / 255.0) + dst.G * (1.0 - (sca / 255.0))
        Dim dstBlue As Double = src.B * (sca / 255.0) + dst.B * (1.0 - (sca / 255.0))
        Dim dstAlpha As Double = src.A * (sca / 255.0) + dst.A * (1.0 - (sca / 255.0))
        Return Color.FromArgb(CByte(dstAlpha), CByte(dstRed), CByte(dstGreen), CByte(dstBlue))
    End Function

PHP كود :

   Dim sca As Integer = 84
        Dim src As Color = Color.Blue
        Dim dst As Color = Me.BackColor
        Dim alpha As Byte = 32

      
        Dim clr As Color = CalculateColor(sca, src, dst)
        Dim blended As Color = Color.FromArgb(alpha, clr)

PHP كود :

  Private Function GetOpacity(sca As Byte, sourceColor As Color) As Double
        sca = Byte.MaxValue - sca
        Dim dest As Color = Color.FromArgb(CInt((1 - (sca / Byte.MaxValue)) * Byte.MaxValue), sourceColor)
        Return CDbl(CByte(If(dest.A > 255, 255, If(dest.A < 0, 0, dest.A))) / Byte.MaxValue)
    End Function

PHP كود :

Me.Opacity = GetOpacity(100, Me.BackColor)

PHP كود :

Public Class Form1

    Private _alpha As Byte = 160
    Private _shadowColor As Color

    Public Property Allpha As Byte
        Get
            Return Me._alpha
        End Get
        Set(value As Byte)
            Me._alpha = value
            Me.Opacity = GetOpacity(_alpha, MyBase.BackColor)
            Me.Refresh()
        End Set
    End Property

    Public Property ShadowColor As Color
        Get
            Return Me._shadowColor
        End Get
        Set(value As Color)
            Me._shadowColor = value
            Me.Refresh()
        End Set
    End Property

    Private Function GetOpacity(sca As Byte, sourceColor As Color) As Double
        sca = Byte.MaxValue - sca
        Dim dest As Color = Color.FromArgb(CInt((1 - (sca / Byte.MaxValue)) * Byte.MaxValue), sourceColor)
        Return CDbl(CByte(If(dest.A > 255, 255, If(dest.A < 0, 0, dest.A))) / Byte.MaxValue)
    End Function

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim r As Rectangle = New Rectangle(2, 2, Me.Width - 4, Me.Height - 4)
        Using sb As SolidBrush = New SolidBrush(Color.FromArgb(Me._alpha, _shadowColor))
            e.Graphics.FillRectangle(sb, r)
        End Using

        Using sb As New SolidBrush(Color.FromArgb(Me._alpha, _shadowColor))
            Dim caption As Rectangle = New Rectangle(3, 3, Me.Width - 6, 28)
            e.Graphics.FillRectangle(sb, caption)
            e.Graphics.DrawString(Me.Text, Me.Font, New SolidBrush(Color.White), New Point(4, 4))
        End Using
    End Sub

    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)
        MyBase.BackColor = Color.Blue
        MyBase.StartPosition = FormStartPosition.Manual
        MyBase.FormBorderStyle = FormBorderStyle.None
        MyBase.ShowInTaskbar = False
        MyBase.ShowIcon = False
        MyBase.Size = New Size(300, 300)
        Me.DoubleBuffered = True
        Me._shadowColor = Color.Black
        Me.Opacity = GetOpacity(_alpha, MyBase.BackColor)
    End Sub

End Class