VB.NET 章鱼哥 编程实现获取图片上任一点的RGB值
摘要：使用Bitmap类中的GetPixel(x,y)函数进行指定点颜色的获取，然后再分别获取R,G,B的值
新建一个空的窗体应用程序，在窗体Form1中添加一个Picturebox控件，一个Button控件，三个label标签，三个Textbox控件。
下面是代码，很简单，首先就是选择一个图片，显示在PictureBox控件上
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)
这就是核心部分了。很简单的。要说明的是使用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
可以了，任意点击图片上的一点，下面就会显示RGB的值。VB加载图片、浏览图片文件夹并检测图片文件是否正确_VB教程
您的当前位置：
VB加载图片、浏览图片文件夹并检测图片文件是否正确
这不是一个完整的代码，是从别处摘过来的代码片段，实现三个有关图片操作的功能：加载图片、浏览图片文件夹、判断图片是否正确，代码中加有注释，VB6新手更应该看看哦：
Sub uppd()
Dim nisse As String
Dim i As Integer
For i = 0 To 5
Frame1(i).Visible = True
On Error GoTo balle1
File1.ListIndex = JB
'要加载的图片
If Right(File1.path, 1) && &\& Then
'获得图片路径及名称
nisse = File1.path & &\& & File1.FileName
nisse = File1.path & File1.FileName
Frame1(i).Caption = File1.FileName
'显示图片名称
Image1(i).Picture = LoadPicture(nisse)
JB = JB + 1
'用于记录加载的图片
JB = JB - 1
Frame1(i).Visible = False
'如果出错则隐藏图像
Resume Next
'浏览文件夹的图片文件
Private Sub Command1_Click()
Text1.Text = FPath$(Me.hWnd, &文件夹浏览&)
File1.path = Text1.Text
Picture2.Visible = True
Cmd_nextpage.Enabled = True
Me.MousePointer = 11
If File1.ListIndex = File1.ListCount - 1 Then Cmd_nextpage.Enabled = False
Cmd_prepage.Enabled = False
Me.MousePointer = 0
'判断是不是正常的图片
Private Sub Image1_DblClick(Index As Integer)
Dim filname As String
On Error GoTo err1
filname = File1.List(File1.ListIndex - 5 + Index)
Form2.Image1.Picture = LoadPicture(File1.path & &\& & filname)
Form2.Show
MsgBox &错误的图片文件&, , &信息提示&&&&&看实例学vb，有图片讲解
&看实例学vb，有图片讲解
VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。
　　也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。
　　接着看看VB语言的前景，在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。
　　好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。
　　接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。希望你学完此教程后能达到下述的效果：
　　从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，可以继续参与到程序设计栏目其他版块的学习中去，嘻嘻，目标就是这样啦。
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
免积分&&极速下载60元/年（1200次）
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
关注并绑定CSDNID，送10个下载分
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
您当前C币：5&&&可兑换 10 下载积分
兑换下载分:&
消耗C币:0&
立即兑换&&
兑换成功你当前的下载分为 。前去下载资源
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
看实例学vb，有图片讲解
所需积分：5
剩余积分：0
扫描微信二维码精彩活动、课程更新抢先知
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
看实例学vb，有图片讲解
剩余次数：&&&&有效期截止到：
你还不是VIP会员VIP会员享免积分 . 专属通道极速下载
VIP下载次数已满VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员
你的VIP会员已过期VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员VB获取简单图片中的数字
[问题点数：40分]
VB获取简单图片中的数字
[问题点数：40分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2014年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第四
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。}