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

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----编译运行,看,出来了吧.
【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 【CTO讲堂】Box首位华人核心工程师的回国创业之路 【探秘ES6】系列专栏:ES6简介 专访《Javascript设计模式与开发实践》作者曾探:爱编程 爱生活 【探秘ES6】系列专栏:迭代器和for-of循环 【CTO讲堂】UCloud联合创始人兼CTO莫显峰:如何成长为技术合伙人? 【探秘ES6】系列专栏:生成器 iKair转型传感器及SaaS厂商,发布Maxense平台与9款“云传感器” 免费jQuery幻灯片图片轮播插件Galleriffic的使用方法 专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 免费开源的Bootstrap富文本编辑器bootstrap-wysiwyg使用方法 CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 《近匠》融云,自主研发真正“不丢消息”的IM云服务 【CTO讲堂】听云CTO Wood:APM实现原理及对IT和产品运营的价值 从7个维度浅析虚拟现实Alpha年 Maker Faire上的微软:将技术与工具带给Maker才是关键 友盟2015年Q1移动互联网报告:车联网App崛起 绘制图形时的自动滚屏问题 请教怎么去掉字符串后面带的空格? 请教关于双机通讯的问题,谢谢 播放问题 如何使用jsp显示数据库中的数据? 请问什么叫模态窗口啊? Win32标准dll,VB下调用问题 挑战:对手机短信文字自动解析? 推荐一个linux下的杀毒软件. 关于oicq? 二手笔记本多小钱? 关于在iis中的resin的配值问题,急,求帮助!!!! PHP中的类到底是怎么回事 怎么知道INI文件的某一个小节下有几个关键字? 不知道发在这里对不对。。。有关DVD 菜鸟级:关于两台都接了宽带的机子彼此可见的问题。请高手指教!谢谢! 我最近发现,我所喜欢的人,她不喜欢我了? 关于游标类型问题? 急!急!急!COMBOBOX问题!(在线等候!)! the problem of CButtonST 如何用java 做一个游戏? 只要有道理就有分! 中程要注册的吗? 大家帮我看看我得曲线重画代码错在那里阿????? 今天我生日,郁闷散分 如果一个项目延期了,你作为一个主管,应该怎么办? sorry,我想问的是怎么去掉字符串后面带的回车符? 请问下怎么编译通过CJLibrary? 是不是SQL server不支持table1.filter语句? vbscript里怎么设置弹出窗口的大小? 全套MCSE2000 BIBLE 是TESTKING的,要的进 怎么用VB编写DLL,请告知如何编写(举例)。 网络安全引发Checkpoint认证培训热 编程注册表--有高分相赠!(请教高手,多谢!) winfax 如何进入win2000 新手幼稚问题 ado中服务器游标使用中的问题? 怎么设置双网卡,让大家一起上网? 求教!sos! 无法使用音频,找不到"vids:divx"解压缩程序,怎么办?? 初学模板,编了个小程序,请指正 表单有哪些事件? How to get my application path(f:\myproj\myapp\debug\myapp.exe)? 请问在directshow或vfw中有没有可以将视音频数据在回放前进行修改的方法? 帮我看看这段代码错在那里 session("username")中的session我还是不太明白阿?请赐教 请问如列出某个数据库中所有表的命令是什么? 什么系统下面用VC好一些? 请版主让CSDN的工作人员看看又出了什么问题,以前的消息为什么不能回复(刚收到的可以回复,但是看过之后搁一段时间就不能回复了)郁闷? 紧急求救!!HELP ME!!! 无人回答的问题一 I’m sorry you’ve missed the train. It _______ 10 minutes ago.A. has leftB. had leftC. leftD. has been away "热门”词语的意思 百灵鸟的外貌和颜色 求武汉市气候特征,详细点最好. he looks beautiful in red dress.he wears a red dress to look beautiful.哪一个对. 50个网络热门词语和解释,解释一句话就行,一定要50个网络热门词语! 开普勒第三定律的周期是公转的周期,但是万有引力的周期是不是自转的周期 ____(dress) in white,you look so beautiful.____(dress) in white makes you beautiful.应该怎么填? 热门词汇越来越多这说明了什么? 月球绕地公转周期为27天,是说地球自转27周月球转1周么,在开普勒第三定律里的一到计算题涉及的题里用月球公转周期比上地球自转周期=1/27,是我说的意思么?小弟拜年了~ You look much______in the new dress You are really a _____ (beautiful) 最近有什么热点词某? 用蜜蜂分别造一个比喻句和拟人句 怎么写, 括号内填两个字的词语:又( )又( ). 根据开普勒行星运动定律 行星轨道的长半轴越长,自转周期就越大貌似应该改成公转,如果是自转周期要越大 可以怎么推出来的 r3/t2=K 适合公转还是自转 非洲鬣狗VS藏狗哪个厉害 在括号里填上两个字的词语性能( ) 性情( ) 性质( ) how is the computer useful in your daily life?give examples You look beautiful tonight 怎么读 西红柿的说明文作文 Renew your life!Change Up the Routine 中英对照Abraham Joshua Heschel was one of the leading American Rabbis,theologians,and social activists of the 20th century.He said something that I’ll never forget and that has stayed with me since the mome 刚看动物世界狮子妈妈的孩子被鬣狗吃了它冲天低吼并且眼里好像有泪,动物也有感情吗?它们会伤心吗? 狗的文艺性说明文有哪些? 用一个比喻句来体现一个人的勤奋 动物世界 讲狮子跟鬣狗,狮群两头雄狮,弟弟很凶猛,最后从灌草丛中冲出来把鬣狗首领咬死是哪一期? 藏獒是狗!狗又是狼的后代!那藏獒与狼又有什么关系? 如:“勤奋是智慧的火把”的比喻句 两个月的小象走失被鬣狗吃掉的视频链接,是动物世界还是别的节目的?节目名称是什么? 作文西红柿说明文 the young have their own ideas about life __ well ____about coolRT,填介词或副词 怎么写? 关于西红柿的说明文 They've written down some ideas____ good ideas a.about how getting b.on how to get c.in how they geThey've written down some ideas____ good ideas a.about how getting b.on how to get c.in how they get 动物世界狮子与鬣狗观后感400字 动物世界中什么吃狼? 为什么太阳西起东落是又大又红呢?是东起西落 Your backpack is on the chair.对on the chair 部分提问 写一篇如果我能再做一次小学生的作文六百字. 英语翻译求大神英语准确翻译,不要有道词典翻译的,进入高中过后,我们的学习任务明显加重了.在繁重的课业负担下,我们也应该学会适度的放松自己.下面我就提出一些能够放松的方法.第一, Draw a yellow sweater on the chair 动物世界狮子藏獒打架 谁赢 I like red.I think this colour ____(make) me ____(look) beautiful ___is on the chair?-lt' s a sweater 以《如果我能在做一名小学生》为题写一篇作文字数不限 Make something look better or more beautiful( )猜词 I'm sorry you've missed the tran .It _ 10 minutes ago.a.left b.has left c.had left 应该选哪个,为什么? 楷书横的写法长和短的 I think she will look more beautiful is purple.这句话对吗?我的练习上有这句.觉得不太符合语法规则啊. 猎狗和鬣狗是一种动物还是两种不同的动物? '佳'字组什么词语才有个性 两个字的 i like to read in the bright light at night.此处in 能不能换成use.如果能怎样换 在所有的犬科动物中最厉害的属于鬣狗 猫科 鬣狗亚科 形容小时身在福中不知福,长大后才明白的词语?两个字的 I need to rest for the night.I need to rest tonight.这两句话有什么区别吗? 非洲鬣狗属于什么科动物 把 鲸 改成文艺性散文 这样可不可以我是鲸嗨,大家好,知道我的故事吗?我是一头鲸,来自遥远的大海,大家知道我有多么奥妙吗?比如,身体庞大,我有多重呢?哈哈,想不起来了吧,那我就带你走进 上面一个穴字头下面一个必念什么 2008年有哪些环保的热门词汇阿?急用. 把小学五年级上册的课文(鲸)改成文艺性说明怎么写
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘