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

前端之家收集整理的这篇文章主要介绍了vb.net 教程 5-6 图片上取色 3前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

在《图片上取色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,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 教程 目录

猜你在找的VB相关文章