VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值
2015-04-14 08:11
351 查看
摘要:使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取,然后再分别获取R,G,B的值
新建一个空的窗体应用程序,在窗体Form1中添加一个Picturebox控件,一个Button控件,三个label标签,三个Textbox控件。
下面是代码,很简单,首先就是选择一个图片,显示在PictureBox控件上
这就是核心部分了。很简单的。要说明的是使用GetPixel()函数要先把图片转换成BitMap格式的。
新建一个空的窗体应用程序,在窗体Form1中添加一个Picturebox控件,一个Button控件,三个label标签,三个Textbox控件。
下面是代码,很简单,首先就是选择一个图片,显示在PictureBox控件上
'作者:章鱼哥,QQ:3107073263群:'如有疑问或好的建议请联系我,大家一起进步<pre name="code" class="vb"> Private Sub btn_ImportPicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ImportPicture.Click Dim OpenDialog1 As New OpenFileDialog OpenDialog1.Filter = "JPG格式|*.jpg|JPEG格式|*.jpeg|PNG格式|*.png|ICO文件,Gif文件|*.ICO;*gif|所有文件*.*|*.*" If OpenDialog1.ShowDialog = DialogResult.OK Then Dim Path As String = OpenDialog1.FileName PictureBox1.Image = Image.FromFile(Path) End If End Sub
这就是核心部分了。很简单的。要说明的是使用GetPixel()函数要先把图片转换成BitMap格式的。
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown Dim GetColor As Color = CType(PictureBox1.Image, Bitmap).GetPixel(e.X, e.Y) txt_B.Text = GetColor.B.ToString txt_G.Text = GetColor.G.ToString txt_R.Text = GetColor.R.ToString End Sub可以了,任意点击图片上的一点,下面就会显示RGB的值。
相关文章推荐
- asp.net 怎样才能自动获取图的各种参数(宽,高)实现图片打印
- 如何编程实现VB.NET数据集中的数据导出到EXCEL
- Vb.Net实现图片合并(相框效果)
- VB.NET实现显示IP的签名图片
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- 基于VB.NET的多线程编程实现
- vb.net中实现picturebox中图片拖动和label控件数组结合,实现label和图片同步
- 利用VB.Net编程实现PC与掌上电脑PPC间的双向通信
- ASP.NET 实现通过URL 获取远程的图片或者文件方法
- [VB.NET]请问如何在picturebox中实现幻灯片查看图片效果
- [VB.NET].NET精简框架下用VB.NET怎么实现在picturebox上显示不同图片???
- [VB.NET]请问高手们:如何在VB.NET中实现320*240的图片转换为240*320的格式?
- 关于vb编程实现p2p流媒体直播的一点思路
- 利用VB.Net编程实现PC与掌上电脑PPC间的双向通信
- 讲述VB.NET实现拖动图片
- asp.net(VB)中使用正则获取图片地址并进行下载.
- 获取远端图片到本地服务器--asp.net实现
- 讲述VB.NET实现拖动图片
- 怎样获取图片上某一点色彩RGB值