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

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----编译运行,看,出来了吧.
4月份浏览器份额:IE 8仍居第一,IE 10翻番 亚马逊正式在华推Android应用商店 收入3:7分账 不要男孩,只允许女生参加的四所编程学校 下一波App机会在哪里? JS1K 2013优胜作品公布 3D蜜蜂仅获亚军 专访:前新浪网架构师徐佳转行卖水果背后的故事 FBI密码挑战,你能解开吗? 从0到1只需一天:Twitter后PC时代物联网“敏捷”开发之路的探索 机械生物已经面世 只少个“大脑”而已 百度正式宣布3.7亿美元收购PPS视频业务 比尔·盖茨:iPad让人失望 用户需要Surface Dropbox将于今年夏天举办有史以来的第一场开发者大会 Clustrix Sierra分布式数据库系统:云计算时代的MySQL 英特尔出杀手锏 发布低功耗、高性能Silvermont微架构 10大最实用的Raspberry Pi扩展设备推荐 主流浏览器性能测试,IE10百分百完胜! TortoiseSVN的基本操作 再见,Fireworks! 投资者告诉诺基亚CEO:他们快没耐心了 直接拿来用!最火的Android开源项目(二) 营收奇迹:三消游戏Candy Crush Saga成功启示录 马化腾对话李连杰:移动互联网的能量有多大? UC与趋势科技携手,移动浏览器加固安全 乐视发布超级电视X60 售价6999元 巨头们抢滩或已结束?EMC掀起首场SDN登录战 CloudStack创始人梁胜:让中国软件走向世界 ArduinoDroid:让你在Android设备上开发Arduino 码农们的机器人:LEGO MindStorms EV3 详解 JavaScript 中的 this 对话PaaS平台dotCloud布道师:“轻量级”与“重量级”虚拟化 微软:谷歌企业生产力软件依然不行 htm里面调用一个jsp页。用javaScript 怎么实现。 怎样添加*.dll文件,如cj60lib.dll,系统自带的吗? 关于记录修改的SQL语句!!! VC的DLL文件怎样在BC中使用?我试过不行 JAVA问题请教 打包运行错误can't start main setup program! 如何把表单上单选框组的内容传给报表啊 iptable怎样限制用户上网? 靠,我的表不能排序啊.....郁闷.... iptable怎样限制用户上网? 求教:输入1个集合,输出它的子集 请问,linux下能用access吗? 问一个“一个页面只能有一个form的问题“ 有关主板BIOS ROM的奇怪问题 请教各位高手,在VB中添加数字排列组合的代码如何编写?多谢!(在线等) # # # # # 200分诚心求教(由于限制,只能先放100),哪位能解决小妹这个问题啊 # # # # # 请问谁知道oracle中计算查询时间的命令? 有关操作系统的几个问题?感谢大家的指点? 大学四年心得-转帖 ORACLE 在本机WIN2000 上装了服务器端后,还需要装客户端才能进行数据' ;&,"vIE' ;&,"> 关于PLC向计算机发送数据的问题。 构造函数? # # # # # 200分诚心求教(由于限制,只能先放100),哪位能解决小妹这个问题啊 # # # # # 据大力新闻中心消息:SQLServer版是CSDN气氛最好的版块。 在弹出窗口时出现问题 请多多指教:帮我推荐一本Asp.net+C#的书,入门和稍微难点的。谢谢了 想学java的库类 请各位大大推荐一本书 请问在VC6中如何调用chm帮助文件 简单的控件问题 ADO调用存储过程(ORACLE),用CommandText的问题 字体固定后,所有字符(包括汉字)的高度都相同吗? 请问applet和application之间有什么不同呢? 字体固定后,所有字符(包括汉字)的高度都相同吗 为什么看帖不回帖? 关于用c#操纵word的问题 为什么在WIN下可以,在LINUX下不行呀? 大数除法 那位高手解答一下 键盘被锁定!!!急 CSDN现在是怎么了!!!登录不了,想办法进来了背景又是一片白,左边菜单列表又不见了 找到新东家,祝各位兄弟中秋节快乐! 有喜欢骑自行车的吗,进来聊聊,你的车多少钱啊 怎么用javamail发送html页面的邮件? 请问各位一个网页路径问题,谢谢了。急急!分不够再加,本人在线等候!!! 简单问题 为什么我用FLASH做出来的GIF格式的图很大?一些最简单的都有3MB左右!谢谢高手来指教!! 很奇怪的问题,redhat9+adsl+iptable老是丢包,而且达到30%,在2k下没有这样的问题 2太电脑连网,为什么双击网络邻居的时候跳出对话框说无法浏览网络? 菜鸟请大家看看这个程序错误出在那? 请问一个进度条的问题?有谁用过x-scan软件 有关生成既有文本又有图形文件的问题,应该如何解决,在线等! 什么样的鱼有鳞? 一只鱼有鳞多少片? 微积分的问题,计算:1-e^λx的导数是什么.(1)1-e^λx 的导数是什么(2)-(1/2) x^(-2) |(下限1,上限∞)的这个,带入+∞后,原式变成什么?(3)还有,∫[1,∞] Ce^(-x))dx ,我积完分后是:-Ce^-x,应该是错 一个微积分的问题 麻烦大家帮我看看这样做错在哪里?如图 答案是发散的 但是我不知道我这样错在哪个地方 麻烦大家帮我看看 增添光彩怎么造句呀? 重金属离子会导致蛋白质分子变性,为探究铜离子对唾液淀粉酶活性的影响,某同学进行了实验,实验步骤如下.(一)实验步骤 ①取两支洁净的试管,编号A、B,A管加入1% CuSO4溶液和pH6.8缓冲液各1m 英语翻译Most advertising researchers who work for and advertisingBusinesses assume that consistent ,long-term advertising campaigns are an effective way to project a solid,enduring image and to maintain an ongoing relationship between consumers a 某国2012年初共有人口500万,该年内出生并成活婴儿4.85万人,死亡人数5.2万人,该国2012年度的人口增长率为 英语翻译 名著连线题 叶圣陶语文教育论集序里第4段有几句话为什么要使用引号? 英国汇丰银行报告显示中国成最受欢迎移盘点全球最妩媚的变性人(组图)国资委部署国企改革:方案争取三中全会伊朗因美国制裁导致中国“欠了”其22报告称美财政不确定性冲击90万就业岗北京数十村民阻拦农田被承包种树时遭打猪贩两次上访被强制治疗 起诉政府被驳房利美起诉多家银行操纵LIBOR新加坡总理访问波兰美寻求硅谷帮助修复医改网站莫桑比克爆发大规模游行抗议治安恶化李克强:要培育长期稳定健康发展的资本油价有史以来最全的笑话,笑着笑着又哭欧元区需要更深的思考历史我知道 中国历代王朝兴亡「四字歌Air Huarache WMNS 移动支付越来越流行,以后钱会越印越少这些传世名言竟然还有后半句,为什么不市场正能量 浙商大佬护盘也是拼了招聘|《环球时报》、《现代企业文化》安卓手机存漏洞 用浏览器购物网银或被观点|纸媒的问题不是死亡,而是没有真诛杀九天隐逆秦时明月之九彩弓神观阅仙魔情终结者之千寻征途战国之第一倾奇者重力感应器庶仙传江湖也多情张锋三国志异界之萨满传奇野鸭湖湿地公园旅游扎基寺旅游博鳌论坛高尔夫球会旅游印象海南岛旅游国立台湾文学馆旅游剑潭公园旅游通庆里旅游天华景戏院旅游江边旅游沈阳新乐遗址博物馆旅游杏花公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘