VB.NET绘图9----获取图片的某点的颜色

 '========================================================
    '函数名称：OpenXFile()
    '函数参数：
    '函数功能：首先就是选择打开一个图片，显示在PictureBox控件上 
    '=======================================================
    Private Sub OpenXFile()
        Dim OpenDialog1 As New OpenFileDialog
        OpenDialog1.Filter = "JPG格式|*.jpg|JPEG格式|*.jpeg|PNG格式|*.png|ICO文件，Gif文件|*.ICO;*gif|所有文件*.*|*.*"
        If OpenDialog1.ShowDialog = DialogResult.OK Then
            Dim Path As String = OpenDialog1.FileName
            PictureBox1.Image = Image.FromFile(Path)
        End If
    End Sub
    '========================================================
    '函数名称： 
    '函数参数：
    '函数功能：使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取，然后再分别获取R,G,B的值
    '=======================================================
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim GetColor As Color = CType(PictureBox1.Image, Bitmap).GetPixel(e.X, e.Y) '使用GetPixel（）函数要先把图片转换成BitMap格式的。 
        Debug.Print("B=  " & GetColor.B.ToString)
        Debug.Print("G=  " & GetColor.G.ToString)
        Debug.Print("R=  " & GetColor.R.ToString)

    End Sub