vb.net 教程 5-6 图片上取色1

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
获得图片上某点的颜色，主要是用到 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版权协议，转载请附上原文出处链接及本声明。