نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

https://barnamenevis.org/showpo...1&postcount=81

توسط متد زیر می توانید هر عکسی را به حالت سیاه و سفید یا همون grayScale در بیارین

کد:

Imports System.Drawing.Imaging





Public Function GrayScaleImage(ByVal graph As Graphics, ByVal img As Image, ByVal left As Integer, ByVal top As Integer) As Image





        Dim colorMix As ColorMatrix = New ColorMatrix()

        colorMix.Matrix00 = 1 / 3.0F

        colorMix.Matrix01 = 1 / 3.0F

        colorMix.Matrix02 = 1 / 3.0F

        colorMix.Matrix10 = 1 / 3.0F

        colorMix.Matrix11 = 1 / 3.0F

        colorMix.Matrix12 = 1 / 3.0F

        colorMix.Matrix20 = 1 / 3.0F

        colorMix.Matrix21 = 1 / 3.0F

        colorMix.Matrix22 = 1 / 3.0F



        Dim imgAttrib As ImageAttributes = New ImageAttributes()

        imgAttrib.SetColorMatrix(colorMix)





        graph.DrawImage(img, New Rectangle(left, top, img.Width, img.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imgAttrib)

        Dim bmp As Bitmap = New Bitmap(img)

        Return bmp





    End Function