返回鼠标坐标像素的RGB值

Public Class Form1


    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Dim pic As Bitmap

        Dim rgb As Long
        Dim x, y As Integer
        Dim r, g, b As Integer

        x = Val(e.X.ToString())
        y = Val(e.Y.ToString())
        pic = Image.FromFile("D:\1.jpg")

        If x >= 0 And y >= 0 Then

            rgb = pic.GetPixel(x, y).ToArgb

            b = 255 + rgb \ 256 \ 256
            g = 255 + (rgb \ 256) Mod 256
            r = 255 + rgb Mod 256
        Else
            r = 999
            g = 999
            b = 999
        End If


        Label1.Text = " X:" & CStr(x) & " Y:" & CStr(y) & "R:" & CStr(r) & " G:" & CStr(g) & " B:" & CStr(b)