vb.net 教程 5-6 图片上取色 2
来源:互联网 发布:狭义相对论知乎 编辑:程序博客网 时间:2024/05/17 21:42
我们继续看看图片上取色
在《图片上取色1》中,我们载入了一张图片,从教程上可以看到,图片并没有显示全。
那么我们为了让图片显示全,我们设置picColor图片框的 sizeMode属性为:StretchImage,即把图片拉伸。
图示为了对比,我们增加了几个Label,其中lblx,lbly分别表示的是鼠标点击处的坐标。
picColor_Click 中增加了两行代码,显示鼠标位置
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load '载入图片 picColor.Image = Image.FromFile(Application.StartupPath & "\1.jpg") End Sub 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
我们看看运行时截图:
首先我们看到图片(图片来自网络)这次显示全了。
其次,我们在图片上点击,会发现鼠标点击位置 为 (230,118),即图片中红色圆圈标识位置,是人物的头发,
居然黑色变成了青色。
我们可以大胆的猜测一下:
如下图:载入的图片被图片框缩放了,我们取色所用的 pImage.GetPixel(e.X, e.Y)仍然是在原来大小的图片上取色,当然与我们预想的不一样。
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
0 0
- vb.net 教程 5-6 图片上取色 2
- vb.net 教程 5-6图片上取色1
- vb.net 教程 5-6 图片上取色 3
- vb.net 教程 5-5 图片的坐标系
- vb.net 教程 20-2 base64图片转换 2
- vb.net 教程 20-2 base64图片转换 1
- vb.net 教程 1-6 数据类型:数值数据转换2
- vb.net 教程 12-6 webbrowser 文本编辑器 2
- vb.net 教程 8-2 简单的SQL语言6
- vb.net 教程 5-10 Graphics类 2
- vb.net 教程 3-2 窗体编程之窗体 5
- vb.net 教程 1-5 运算符 2
- vb.net 教程 5-7 Bitmap类 2
- vb.net 教程 4-2 目录操作 DirectoryInfo 5
- vb.net 教程 4-5 文件操作 File 2
- vb.net 教程 12-5 webbrowser 与窗体交互2
- vb.net 教程 8-2 简单的SQL语言5
- vb.net 教程 4-6 数据流
- CodeForces 116C 【BFS】
- BLDC和PMSM的区别
- ACM程序设计书中题目--P(粮食问题)
- linux启动web服务
- 实验吧安全杂项WP(四)
- vb.net 教程 5-6 图片上取色 2
- 考试座位号
- C++之类型萃取
- java Activemq的HelloWorld
- 实验吧安全杂项WP(四)
- 和为S的连续正数序列:双指针同向(非相向)逼近
- CodeForces 785C Anton and Fairy Tale【二分答案+思维】
- cmd shell实用命令
- 排序算法之基数排序