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

旧城等待， 2022-09-10 15:24 142阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
在《图片上取色2》中我谈到了关于取色时候遇到的问题，这次谈谈如何解决？

我们可以采用另外一种缩放方法。

在设计窗口中加入一个按钮，命名为 btnLoadImg，

去掉Form\_Load中的代码，全部代码如下：

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  
   
        lblx.Text = e.X  
        lbly.Text = e.Y  
    End Sub  
   
   
    Private Sub btnLoadImg\_Click(sender As Object, e As EventArgs) Handles btnLoadImg.Click  
        '载入图片  
        Dim imgScr As Bitmap = New Bitmap(Application.StartupPath & "\\1.jpg")  
        Dim imgDest As Bitmap = New Bitmap(picColor.Width, picColor.Height)  
        Dim g As Graphics = Graphics.FromImage(imgDest)  ' picColor.CreateGraphics  
        g.DrawImage(imgScr, New Rectangle(0, 0, picColor.Width, picColor.Height), New Rectangle(0, 0, imgScr.Width, imgScr.Height), GraphicsUnit.Pixel)  
        picColor.Image = imgDest  
        g.Dispose()  
   
    End Sub

运行结果：

这是和《图片上取色2》中取色位置差不多的地方，这次取色就对了。

代码里面采用了Graphics.DrawImage()方法，程序中将原图缩放到了图片框大小，然后再图片框中显示出来，所以图片框中的鼠标点击获得的Point，对应图片的Point，所以取色也就对了。

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

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

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

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/