VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值

VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值,第1张

概述    摘要:使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取,然后再分别获取R,G,B的值     新建一个空的窗体应用程序,在窗体Form1中添加一个Picturebox控件,一个Button控件,三个label标签,三个Textbox控件。    下面是代码,很简单,首先就是选择一个图片,显示在PictureBox控件上 '作者:章鱼哥,QQ:3107073263群: 摘要:使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取,然后再分别获取R,G,B的值

新建一个空的窗体应用程序,在窗体Form1中添加一个PictureBox控件,一个button控件,三个label标签,三个TextBox控件。

下面是代码,很简单,首先就是选择一个图片,显示在PictureBox控件上

'作者:章鱼哥,QQ:3107073263群:'如有疑问或好的建议请联系我,大家一起进步<pre name="code" >    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的值。
总结

以上是内存溢出为你收集整理的VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值全部内容,希望文章能够帮你解决VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1270156.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-08
下一篇 2022-06-08

发表评论

登录后才能评论

评论列表(0条)

保存