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

VB使用API获取颜色

HTML文档下载 WORD文档下载 PDF文档下载
VB使用API获取颜色
除了使用CommonDialog的方法,还有一种使用API函数的方法进可以实现获取颜色。 参见本例:
>>步骤1----建立新工程,在窗体上放置一个CommandButton,一个PictureBox,一个TextBox;
>>步骤2----编写如下代码:

private Declare Function ChooseColor Lib "comdlg32.dll" Alias _
"ChooseColorA" (pChoosecolor As ChooseColor) As Long

private Type ChooseColor
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Sub Command1_Click()
Dim cc As ChooseColor

cc.lStructSize = Len(cc)
cc.hwndOwner = Me.hWnd
cc.hInstance = App.hInstance
cc.flags = 0
cc.lpCustColors = String$(16 * 4, 0)

if ChooseColor(cc) >= 1 Then
Picture1.BackColor = cc.rgbResult
Text1.Text = "颜色值:" & cc.rgbResult
Else
Text1.Text = "你取消了。"
End If
End Sub

>>步骤3----编译运行,看,出来了吧.
优麒麟(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 我的Java!越过山丘 专访沙梓社:做个“Think Different”的技术牛人 基于ES6,使用React、Webpack、Babel构建模块化JavaScript应用 财税街创始人石克清:创业须空杯心态+有效社交 自我知识管理:连贯性就是生产率 玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 进程外组件的关于注册的问题? jsp中怎样生成静态页面 请问:如何返回webservice类的一个或多个实例? 怎样触发另一个窗口中的javascript函数? 谁能提供一些检测内存泄露的工具或方法 如何将 FoxBase 中的数据导入到 SQL Server 中? 求助:API操作注册表出现奇怪问题 请问如何改变windows xp中的用户的登陆顺序 有问题:如何通过页面下载附件? 求助:VB生成安装文件的问题 下面的程序怎样优化?(着急) 怎么样在C++ Builder 的Form上显示文字!我不要用控件,要直接显示在Form上 如图所示,固定的竖直轨道CD是光滑的四分之一圆弧,其最低点C的切线水平,半径R=0.3m.光滑水平面上,长L=2m的平板车上表面与C登高.车的左端A处放一质量m=1kg的小物块,物块与小车间的动摩擦因数 hypermesh划分的壳单元(shell63),对于两个component上的单元,可以做一个连接么? 作文 父母的奋斗史这种作文该怎么写才比较风趣.写作思路!中间我自己写最好 给出开头 境界究竟是何界?所以事物 vertify,confirm.certify之间用法有什么区别如题,例句:this result merely ____earilier american studies.填哪个,它们三者之间又是用如何应用的 脂质体 拍电镜用什么染色,即用什么负染剂 如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦.将a、b两小球分别从两轨道右侧正 核电厂设备分级中 1E的字面含义是什么?是什么单词的缩写吗? 西南地区水能资源开发条件 谁能给我一些初二物理的题目?麻烦各位大虾了 请问在hypermesh里面怎么将材料属性赋值给单元啊? 分析某地水能资源的开发条件以及降水特点及成因如何答从哪几个方面? 题目来问我,科学 秦山核电站能抗几级地震? 细胞生物学中什么叫冰冻断裂电镜技术(分值:4分) 题目来问我,科学的 hypermesh中怎么建立弹簧单元 什么是电镜冰冻蚀刻(freeze-etching)技术 AB是两个地震观测点,他们相距200千米,A测得在AB两点连线的左侧32°方向上有地震B测得在AB两点连线的方向左侧43°方向上有地震,请你根据图形,计算出震中点C到观测点B的距离 核电站与地震是否有必要担心 冰冻断裂和冰冻蚀刻技术可用于研究细胞膜内部结构,是对还是错? 螃蟹吃高粱—— (写歇后语) HyperMesh 材料属性中密度是那个单词 金属零件断裂,断口分析电镜报告说没有理解面, 爱情的最高境界是什么样求大神帮助 请教一道关于判断电势高低的题有一用均匀导线做成的正方形线框ABCD(以左上角为顶点A,右上角为顶点B),正方形的一半放在和纸面垂直向里的匀强磁场中,当磁场的磁感应强度均匀增强时,试 一些溶液在什么范围内的浓度算是稀的 入秋的高梁,老来红 什么是核电筹建处 为什么“水分子总是从水多的地方到水少的地方,即从浓度低的溶液到浓度高的溶液”?请问本质是什么?回答好我可以加很多分!这个问题困扰了我很久.请问跟什么作用力有关? 有没有英语超级好的人.马上考英语了. 俄罗斯冬宫介绍 溶液的浓度如何定义? 爱到什么程度,就是最高境界. 冬宫怎么样 东京计器油泵哪里型号最齐全?有好一点的公司吗? 高粱开花——(歇后语)求大神帮助 冬宫高度是多少米? p=s1 s2 a :b :c verilog是什么意思? 爱情的最高境界是什么啊? 冬宫的描述 verilog中b[a-:a就是一个变量.主要想对一个数的动态位数进行赋值,例如a[j:j-1]=XXX(错的,就是举个例子) 动作电位如何沿神经元传导 cf里哪个区人最多!哪个区好点? 冬宫什么形状 光的折射 透镜 填空1.用照相机拍摄相片时,景物到镜头的距离要____________,所成的像是一个____________________________像. 一位同学看到闪电开始计时,经3秒后听到雷鸣声,则打雷处距该同学多远?这种问题需要考虑光的传播速度吗? 女的能活多少岁拜托各位了 3Q 从神经元两端向中间传导的两个动作电位相遇后为什么会抵消 爱的最高境界究竟是什么? ug中的面相交是什么意思 要如何处理 同学们我想问哈,生物里的生态营养结构是不是指是食物网呢?还有,在碳循环过程中,碳的形式是答有机物还是二氧化碳呢,要分什么情况啊? 在同一地点看到闪电之后三秒听到打雷,问打雷地点距离多少? 一辆车在公路上匀速行驶,一人看见路程碑的数字是AB(A、B是1—9的数字,单位是:千米)1小时后他又看见一块路程碑的数字是BA.又过1小时,再看见一块路程碑的数字是A0B(0是数字0).问:汽 一道碳氧循环的初中生物题是不是所有的箭头指向的是二氧化碳库?即A是不是里面所有生物 BEFD箭头指向的是分解者?此道理在题目中是否适用? 谁能介绍下confirm用法 质量为2 kg的飞行物,在距地面高度为 19.6 m处以速度为 1=5 m/s水平飞行,质量为 3 ×10-2 kg的子弹以水平速度 2= 300 m/s击中飞行物, 1与 2沿同一直线,且击中后子弹没有穿出,不计空气阻力,试求 一次闪电 经过4秒听见雷声 问闪电在多元的地方 核电,核能发电站,1E级与非1E级指的是什么,有什么区别?核电,核能发电站,1E级与非1E级指的是什么,有什么区别? 为什么叫做溶融状态 美国一名女司机因开车戴谷歌眼镜被传讯日参议员不顾禁令强行访朝 称希促日朝冯小刚好莱坞星光大道留手印(图)南京市江堤坍塌 水利局被质疑是工作疏埃及摧毁\"进口通道\"致燃料缺乏 史冬鹏结束9年恋爱家乡完婚 称比参加西班牙经济走出衰退 经济持续复苏仍需杨洁篪在21世纪理事会北京会议上的演伦敦前市长:伦敦有必要成为一个独立国德议员访俄邀斯诺登赴德参与司法听证 伊拉克总理与美总统会晤 请求美国提供日俄举行外长防长磋商 就反海盗合作等河北女婴被抱走18年续:家人称遭监视沙特女性抗议政府“禁驾” 女权运动势综述:中欧“共”十年 浮云不遮眼2013国际变性人选美大赛落幕 三甲英国房价持续高涨 或考虑向海外房主征德议员访俄邀斯诺登赴德参与司法听证 伊拉克总理与美总统会晤 请求美国提供安徽阜阳为“面子”修铁皮板墙 “里子伦敦前市长:伦敦有必要成为一个独立国山西省人大常委会副主任金道铭涉嫌严重三亚小学生称被收\"保护费\" 校方海口武警10年400余张汇款单架起“海南新任检察官宣誓:像保护生命一样守新春走基层:铁路工区工长如何面对离婚南非基础教育部部长访问上海 赞赏上海上海在青少年中推广沪语 让新上海人更老人三亚旅游邮储银行内摔伤 法官调解旅蒙古国华侨协会发表声明海南省警察协会举行换届选举 王和平当11省市区瓜菜商现场采购海南冬季瓜菜三亚2014年重点项目125个 计划《明报》前总编辑遇袭 中联办谴责相关2014足协杯抽签揭晓 强队提前遭遇原印尼驻华大使易慕龙:中国强大对印尼驻蒙古使馆就中国人民抗日战争胜利纪念亚努科维奇请求俄罗斯保护其安全 俄方李源潮会见苏丹全国大会党干部考察团云南沧源:小小无筋豆带出多多万元户(肇庆人大代表首次约见政府官员“问责”毅腾第5外援敲定南美中卫 青训自产3
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘