说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何读取 Picture 内任何一点的颜色值?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何读取 Picture 内任何一点的颜色值?

前言:

Visual Basic 对于定义色彩有二种方法:

1、使用定义的常数:

如色彩属性的设定为红色,可以常数 vbRed 表示

2、直接使用色彩设定:

以十六进位数来指定色彩,方式为: &HBBGGRR&

BB是指定蓝色的部分,GG是指绿色,RR则为指定红色。
每个部分都是两位从 00 到 FF 的十六进位数。中间值为 80。
因此,以下的数值将指定灰色,它属于三种色彩的中间部分:&H808080&

上述二种色彩表示方式对应如下:

色彩常数 值 中文描述 英文描述 色块样板
vbRed &H0000FF& 红色 Red
vbGreen &H00FF00& 绿色 Green
vbBlue &HFF0000& 蓝色 Blue
vbBlack &H000000& 黑色 Black  
vbYellow &H00FFFF& 黄色 (红+绿) Yellow
vbMagenta &HFF00FF& 洋红色 (红+蓝) Magenta
Cyan &HFFFF00& 青绿色 (绿+蓝) Cyan
vbWhite &HFFFFFF& 白色 White

上述第 2 种方法,可以衍生出『若知道一值,则如何反算其红、绿、蓝颜色值各为何?』的问题。其计算方法则是反其道而行,计算顺序为首先计算蓝色值、其次为绿色值、最后为红色值。写成模块如下:

Private Sub ReturnRGB(ByVal lngColor As Long, intRed As Integer, intGreen As Integer, intBlue As Integer)
intRed = lngColor Mod 256
intGreen = (lngColor \ 256) Mod 256
intBlue = lngColor \ 256 \ 256
无创客 不青春!2015全国大学生移动应用创新大赛在京启动 响应式Web开发,必懂媒体查询(系统理论+实战教程) 实例剖析:如何用Foundation For Apps创建完美Web应用 【舌尖上的CTO】兄弟肉夹馍的开发运维一体化 开创未来的关键:是什么造就了硅谷?(下) 安全漏洞影响2.5万iOS应用?AFNetworking维护者发布回应 《近匠》专访AbleCloud李海磊:IoT平台求变 腾讯、京东、微软等设计专家齐聚,探讨移动应用体验创新设计 TIOBE 2015年5月编程语言排行榜:微软系语言份额上升 《Hadoop核心技术》作者翟周伟 :我与Hadoop的不解之缘 云集百位核心专家 中国云计算大会演讲议题公布(表) 细品这杯香浓的咖啡——阿里中间件高级专家沈询的Java之旅 超图研究院院长李绍俊:创新2.0时代的平台软件研发体系 优麒麟(Ubuntu Kylin)15.04发布派对在天津成功举行 【CTO讲堂】以API为核心的移动应用云大发展时代 游戏设计的迭代误用:从半成品到概念修正 成功的社区在于拥抱变化——知乎创始人周源专访 优化UITableViewCell高度计算的那些事 国外iOS大牛:开发Apple Watch应用我犯过的错 云上Java System Profiling与Debugging——蚂蚁金服观察与实践 搜狗商业平台Java技术实践 Java在电信软件领域的技术实战 关于Java框架Vert.x的几点思考 Java在游戏服务器开发中的应用 Java框架研发思考 那些年,Java程序员用过的开发工具 Java内存模型的历史变迁 Java 8与Apache Ignite Java开发与技术挑战——关于技术的技术思考 专访唯品会架构师肖桦:做编码的架构师 越来越“简单”的Java 这是一个非常棘手的问题,不是编程问题而是经验问题,帮我,真的很急呀!100分相送 有关IE窗口的控制 一般判断串口通信故障的方法有那些?(比如线断开等,假定5秒收不到回应) 求助 如何把形如m_pRecordset->Fields->GetItem(_variant_t("序号"))->Value的_variant_t串转化为一个整数,大虾帮忙! 在一个button里面写代码,可以控制删除datagrid中当前row "Cannot initialize data bindings" ~~~Kylix如何? webbrowse控件怎样控制直接打开一个WORD文档,而不用提示是打开还是下载呢? 急!!请高手指点,分不够可以加! 怎么使自己做出来的网页在IE浏览器中浏览中不出现水平滚动条 怎么解决? IE无法打开另弹出窗口的连接!为什么? 如何读写ini文件的问题?搜索的全打不开 cross join的问题 请微软专家、思归、江雨.net,spring.z进来!请问如何在winform模式下调用Web Service?想实现相当于asp下的XMLHTTP的功能!十万火急!!! 求教:在asp.net中能不能实现类似于javaApplet的功能,怎么实现 谁手上有地域情人的《三句话搞定QQ菜单》,能发一份给我吗?在线等待 Delphi 中怎样设置、取消 注释块?找到以前但是打不开,这个该死的CSDN!!! access数据库的数据要放入sql数据库,代码怎么写? 安装声卡的驱动alsa,make后,出现Need by“hwdep.o”stop.请问这是怎么会事?! 这样给二维指针分配内存可以吗?? 请问如何实现win2k server和DOS机之间的通讯 请微软专家、思归、江雨.net,spring.z进来!请问如何在winform模式下调用Web Service?想实现相当于asp下的XMLHTTP的功能!十万火急!!! 我的显示有问题,大家帮忙看一下好吗? 统计,大家都用哪里的php收费空间? 请教JTree中怎么任意设置TreeNode的图标? 在堆栈上分配结构与用new分配结构有何区别 是否可以对datareport中添加的控件编程呢 三层中数据返回的问题 在vb.net里有什么简便的办法可以处理所有控件的keydown消息? 菜鸟问题 在线等 Page.Response.Write("<img height=13 src='images\deleteTrue.gif' width=13 align=middle>");出错 我想买一款数码像机!!! 动态连接excel表的问题 用什么方法可以实现我计算的数字,只有两位小数,谢谢!! 知道26号放假!高兴!!放分!! 问个瓜问题 推荐几个好的编程论坛(中文的),不看的后悔呀!请不要移贴或删除! 关于脚本与代码的通信问题。。。 用WiseInstall作安装程序,怎么让可执行程序自动识别专用的文件,即点击专用文件即可用对应执行程序打开 在POWERDESIGN中将数据库设计倒入WORD报表的中文乱码问题 访问数据库时遇到的问题 如何把Excel的图表另存为图形文件?? 紧急求救!!(关于调用exe的问题) 关于动态删除记录的问题,大侠指点!!! 请问如何把用户上传的文件(所有)都保存在sql里面? 在POWERDESIGN中将数据库设计倒入WORD报表的中文乱码问题 时间设置 年关已到,谁有工作总结的模扳,给小弟发一份。 今天女朋友回家,放分,终于可以自由几天了,头一次放分,只有这么多了 宁波机场T2航站楼方案敲定 造型像个杭城昨用电创新高 今夏供电仍有缺口地铁小情侣劝阻中年男人吃东西 被泼豆杭州市民通过高铁飞机出行更便利四季青一家服装辅料店煤气瓶爆炸 三人和睦小学小朋友模拟受伤 提醒孩子暑期杭城今起午后多雷阵雨 双休最高气温下福岛核污水泄漏事态急剧恶化索马里妇女重获驾驶权菲律宾经济二季度增长7.5%平衡“有形”与“无形”之手——海外专法国各政党对是否对叙军事干预分歧大叙利亚局势动荡 周边多国相继提高军事西欧多国对移民亮\"黄色警报\" 部西班牙举办“西红柿节”统计局局长:中国经济“升级版”正在提统计局:第三次经济普查数据发布时间将张高丽:经济普查数据不能带水分 更不温州水泥路被烤爆炸 兰溪一名工人中暑宁波东站增开午间售票口 候车棚将装排宁波征兵工作已启动 多项政策鼓励大学杨洋帅气西装看秀极尽优雅,又一位鲜肉蝴蝶型饼干深圳首起!东部华侨城发生冰雪路面事故vivo X6s Plus跑分曝光:科比:球迷说会想念黑我的日子风水植物平安树,这样养才能保平安?JR-史密斯将不会被起诉柠香鳜鱼考辛斯谈全明星:我只想着季后赛王进:低调务实 看好大趋势孵化丁香园三星Galaxy S7发售日期敲定:iPad Pro vs. Surfa王海打假红米note3非全金属欲人肉全“芯”感受 vivo X6Plus多家公司业绩预减或预亏 周期性行业“股权质押亮黄牌:停牌追加保证金成自救寒潮来!大资金44亿元“抢煤”取暖央行:春节前后不会轻易降准为解决线下体验馆方案,乐客VR已完成同洲电子转型失败 大股东已“跑步退出华谊兄弟出动明星队增持救市 Baby
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘