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

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
确定是 WINDOWS 的可执行文件-VB资料 让打印机只打印一行-VB资料 VB如何把批处理文件转换成EXE文件? VB如何调用 Office VB如何将文件删除到回收站 VB如何快速移动文件? VB如何让文本框输入完后,直接跳入下一行? VB如何使用vb取得一个文件的控制权 VB如何使用文件复制对话框? VB如何使用资源文件 VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出 VB如何在 VB 中使用 Winzip 来压缩文件? VB如何在DOS程序结束执行时,自动将其关闭? VB如何在VB中实现Undo(撤消)功能? VB如何在VB中实现目录遍历 VB如何在Windows操作系统中改变文件打开方式 VB如何知道硬盘是使用那一种文件系統(FAT32,FAT16)? VB如何自动更动成中文输入 VB删除整个目录 VB设置打印页边距 VB实现文件查找功能 VB使用SendMessage函数滚动文本框控件中的内容 VB使用 WIN95 的选择目录对话框 VB使用INI文件 VB使用WriteFile 块读写数据 VB使用历史文件记录 VB使用内存映射文件加快文件操作速度 VB数据报表设计器在多层结构开发的应用 VB突破 TextBox 32K 的限制 VB拖拽节点时实现目录树自动翻滚 位图文件内部初探-VB资料 联通CDMA手机短信与移动GSM手机短信指令有何区别? 关于类设计的问题 jsp中大文件上传问题! onchange在程序改变当前选项时无法触发? 如何将所绘制图形保留在窗口上? 消息机制??? 请教,如何做一个进度显示?希望(详细点)!拜托高手 一个关于属性页的问题 新手问题:SQL*PLUS出错! 一道调用传递引用的参数,实现两个字符串变量的交换的题目,帮帮忙! 离开 论坛 散分 关于php与frontpage之间的一些问题!! 离开 论坛 散分【二】 在ASP中生成SURFER对象时出现错误 离开 论坛 散分【三】 离开 论坛 散分【三】 急救! 如何操作磁卡读写器 Help,如何更改DataGrid控件选中那个单元格的背景色和前景色? 2000共享文件问题,请高手看一下,很古怪的! 朋友,你好! 离开 论坛 散分【四】 高手救命,简单数据库规划问题!!!价值50分!!! 想听听大家对 static 命名的函数、变量的用法 Access数据库传到服务器后,变为只读了?求助,白思不得其解 请问怎样取得PCM流 离开 论坛 散分【五】 打包,解包??? 离开 论坛 散分【六】 离开 论坛 散分【七】 求教SQL语句,高手、或刚入门的同道都进来讨论一哈 最初linux使用什么编译开发的? 离开 论坛 散分【八】 关于字符串截取问题 谁有FASTREPORT的注册版本 我急用!在线等待!谢谢! 离开 论坛 散分【九】 Application.messagebox和messagebox有什么区别呢? 水晶报表的两个小问题? 怎样向Foxpro表中添加float型数据? 离开 论坛 散分【十】 问一个和Session有关的问题,达人请进 在宏里把ie关闭。非常感谢 如何让window.showModalDialog的page提交数据到原来的父页面? 合租住房!! 有没有一个命令直接解开iso文件或提取里面的一个文件或文件夹 请给看看程序:AVI视频的读取和重建 如何显示出电脑内已经注册的dll文件列表? 中程浮点数问题! solaris下CC编译器的问题? UML的书籍和软件? 那里有vs.net2003的vss6.0d版本? 我国公民的基本义务有哪些 在一条东西走向的跑道上,小红先向东走了10米,记做+10,然后又向西走30米,此时她的位置可以记做?· 怎么卡刷recovery麻烦大神看清楚,是卡刷RECOVERY,不是卡刷ROM底包,我手机现在快成板砖了,只能刷RECOVERY重新来过,但是ADB命令不能识别驱动,所以只能重新卡刷RECOVERY,再刷底包,求卡刷RECOVERY教程, 上面一个万下面一个足和在一起念什么万足 就是这样的一个字 谁知道叫什么`` 11.Giving the following definition:public class Upton{publicstatic void main(String argv[]){ }public void amethod(int i){}//Here}After //Here,which statement is legal:a) publicint amethod(int z){ return 99; }b) publicint amethod(int i,int j){return 9 中国人为何缺乏诚信 历史上缺乏契约精神 在车行卖车需要巨备哪些条件? 车行.卖车.请问一下,如果要进一个二手车行上班卖轿车的话,需要怎样呢?是了解车就行了,还是怎样.要怎麼推销给要买车的人呢? 什么是车行,和卖车的店有区别吗?如题, y=x平方,X属于x>-3小于等于3,判断奇偶性及思路过程? 急求一道小学六年级速算奥数题!求解:1/2/(1+1/2)+1/3/(1+1/2)*(1+1/3)+1/4/(1+1/2)*(1+1/3)*(1+1/4)+...+1/2005/(1+1/2)*(1+1/3)*(1+1/4)...*(1+1/2005)各位大侠帮忙解一下 谢谢! 16秒26 17岁高二女生单手玩魔方杭二中女生林心悦全国中学生物理竞赛第周日较强冷空气杀到彻底把杭州带入深秋浙医二院对抗菌药物管理动真格 有医生猪木在朝开设事务所 称愿为日朝关系做缅甸传奇双胞胎重聚 八岁即建“上帝军世界银行和联合国报告曝光索马里海盗产斯诺登发公开信谴责美英 吁全球性解决芬兰外交部长期遭入侵 媒体乱猜中俄黑韩国整形“名医” 在京多为游医【图】首度受审 穆尔西大闹法庭希拉里支持率仍领先固话和400/800成诈骗电话“重灾采菊乐丰收“企业健康发展的‘指南针’”澳门大熊猫双胞胎获名参加红军长征的外国人网售高速增长 个性消费更旺调结构以丰补歉马鞍山在转型升级中不断推进加快发展轮椅击剑“梦之队”9金收官丝路胜景
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘