نکات، ایده ها و ترفندهای کوچک برنامه نویسی در 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

[ghafoori]

https://barnamenevis.org/showpo...0&postcount=82


این کلاس مختص دات نت 3.5 (به بعد) است و جهت استفاده باید System.Core رو نیز به References پروژه ی خود بیافزایید.

مثال - بدست آوردن تاریخ و زمان فعلی در توکیو :
کد:

Dim tzSource As TimeZoneInfo = TimeZoneInfo.Local

        Dim tzDestination As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Tokyo Standard Time")

        Dim sourceTime As String = TimeZoneInfo.ConvertTime(DateTime.Now, tzSource, tzDestination).ToShortTimeString()

        MessageBox.Show(sourceTime)