prague12

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    ' JK :   Bitmap 類別物件 是專用來處理像素用的  會自動解圖片格式

    '  Dim pic As New Bitmap("test.bmp")    '讀圖   (檔案路徑 :Debug 目錄下 )  
    Dim pic As New Bitmap("test.jpg")    '讀圖   (檔案路徑 :Debug 目錄下 )  任何圖片格式都可以讀成Bitmap 物件

    Dim x As Integer = pic.Width '取得原圖寬度
    Dim y As Integer = pic.Height     '取得原圖長度
    Dim pic2 As New Bitmap(x, y) '產生新圖 設定大小跟原圖一樣大

    Dim i, j As Integer
    Dim colorY As Double

    Dim pixelcolor As Color
    pixelcolor = pic.GetPixel(1, 1)  ' 可以發現1個 Pixel 點 包含了(R,G,B)

    For j = 0 To y - 1
    For i = 0 To x - 1
    'rgb轉成灰階
    colorY = 0.299 * pic.GetPixel(i, j).R + 0.587 * pic.GetPixel(i, j).G + 0.114 * pic.GetPixel(i, j).B
    pic2.SetPixel(i, j, Color.FromArgb(colorY, colorY, colorY))
    Next
    Next

    pic2.Save("new1.jpg", Imaging.ImageFormat.Jpeg) '轉存jpeg格式
    pic2.Save("new2.bmp", Imaging.ImageFormat.Bmp)  '轉存bmp格式

    End Sub