在《图片上取色2》中我谈到了关于取色时候遇到的问题,这次谈谈如何解决?
我们可以采用另外一种缩放方法。
在设计窗口中加入一个按钮,命名为 btnLoadImg,
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,picColor.Width,picColor.Height),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 教程 目录
原文地址:https://www.jb51.cc/vb/256760.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。