版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

获得图片上某点的颜色，主要是用到 Bitmap.GetPixel 方法。

 

Public Function GetPixel ( x As Integer, y As Integer ) As Color

 

x,y 分别表示的是图片上某点的横轴坐标和纵轴坐标。

 

看下面的例子，窗体上创建两个Picturebox和4个Label：

 

 

 

主要代码：

 

 

 

    Private Sub picColor_MouseClick(sender As Object, e As MouseEventArgs) Handles picColor.MouseClick

        '创建一个Bitmap对象

        Dim pImage As Bitmap = New Bitmap(picColor.Image)

        Dim pColor As Color

        '使用GetPixel()获得图片上鼠标点击处的颜色.

        pColor = pImage.GetPixel(e.X, e.Y)

        lblR.Text = pColor.R.ToString   '对应红色分量

        lblG.Text = pColor.G.ToString   '对应绿色分量

        lblB.Text = pColor.B.ToString   '对应蓝色分量

        '在picPickColor显示颜色

        picPickColor.BackColor = pColor

    End Sub

 

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '载入图片

        picColor.Image = Image.FromFile(Application.StartupPath & "\1.jpg")

    End Sub

 

 

 

 

 

 

 

 

 

 

 

 

运行结果：

 

 

 

 

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看 vb.net 教程 目录

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/64161347