[سؤال] اظهار ضوء علي صورة - نسخة قابلة للطباعة

كود :

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        ' حدث النقر

    End Sub

#Region "CustomButton"

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

        Me.PictureBox1.Image = My.Resources.black

    End Sub

    Private Sub PictureBox1_MouseEnterMouseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter, PictureBox1.MouseUp

        Me.PictureBox1.Image = My.Resources.white

    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave

        Me.PictureBox1.Image = Nothing

    End Sub

#End Region

End Class

كود :

Public Shared Function Light(ByVal img As System.Drawing.Image, ByVal col As System.Drawing.Color, ByVal opacity As Single) As System.Drawing.Image

        Dim rectangle As Rectangle

        Dim image As New Bitmap(img.Width, img.Height)

        Using graphics As Graphics = graphics.FromImage(image)

            rectangle = New Rectangle(0, 0, img.Width, img.Height)

            graphics.FillRectangle(New SolidBrush(col), rectangle)

        End Using

        Using graphics2 As Graphics = Graphics.FromImage(img)

            Dim imageAttr As New Imaging.ImageAttributes

            Dim newColorMatrix As Single()() = New Single()() {New Single() {2.0!, 0.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 1.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 1.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 0.0!, opacity / 100, 0.0!}, New Single() {0.2!, 0.2!, 0.2!, 0.0!, 1.0!}}

            Dim matrix As New Imaging.ColorMatrix(newColorMatrix)

            imageAttr.SetColorMatrix(matrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)

            rectangle = New Rectangle(0, 0, img.Width, img.Height)

            graphics2.DrawImage(image, rectangle, 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imageAttr)

        End Using

        Return img

    End Function

كود :

http://helpdotnetvision.nevron.com/Presentation_Graphics_AppearanceStyles_ImageFiltersStyle_Lighting_Image_Filter.html

كود :

Public Shared Function Light(ByVal img As System.Drawing.Image, ByVal col As System.Drawing.Color, ByVal opacity As Single, Optional ByVal direction As Drawing2D.LinearGradientMode = Drawing2D.LinearGradientMode.ForwardDiagonal) As System.Drawing.Image

        Dim rectangle As Rectangle

        Dim image As New Bitmap(img.Width, img.Height)

        Using graphics As Graphics = graphics.FromImage(image)

            rectangle = New Rectangle(0, 0, img.Width, img.Height)

            Dim brush As New Drawing2D.LinearGradientBrush(rectangle, col, Color.Transparent, direction)

            graphics.FillRectangle(brush, rectangle)

        End Using

        Using graphics2 As Graphics = Graphics.FromImage(img)

            Dim imageAttr As New Imaging.ImageAttributes

            Dim newColorMatrix As Single()() = New Single()() {New Single() {2.0!, 0.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 1.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 1.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 0.0!, opacity / 100, 0.0!}, New Single() {0.2!, 0.2!, 0.2!, 0.0!, 1.0!}}

            Dim matrix As New Imaging.ColorMatrix(newColorMatrix)

            imageAttr.SetColorMatrix(matrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)

            rectangle = New Rectangle(0, 0, img.Width, img.Height)

            graphics2.DrawImage(image, rectangle, 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imageAttr)

        End Using

        Return img

    End Function