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

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----编译运行,看,出来了吧.
字体改变事件 -VB资料 自定义组合热键 -VB资料 自动更换墙纸的小软件-VB资料 自动记录应用软件工作时间 -VB资料 自动卷动TextBox -VB资料 自动开始上次关机时关闭的应用 -VB资料 自动装入注册设置 -VB资料 自己编程模拟 MouseEnter,MouseExit 事件 -VB资料 走进VB6啃一块骨头 做成一个时间限制的测试版 -VB资料 PHP中利用jQuery实现SWF图像上传和裁剪 VB.NET或C#将DataSet快速导出到Excel中 HashSet的equals和hashCode重写问题 PendingIntent实现原理和代码 IntentService实现原理及内部代码 AsyncTask实现原理和内部代码 Neither user nor current process错误 ListView的右边滚动滑块启用方法 Live Wallpaper动态壁纸开发 控制软键盘显示和隐藏 设置Activity大小不再全屏原理 Android面试题,看看你基础如何? Android Canvas绘图抗锯齿解决方法 Android xliff和字符串资源 android.hardware.USB类介绍 Android开发经验谈之应用间数据共享 android_asset这个URL详细使用方法 Android 2.3系统自带高清UI图标下载 设置ScrollView滚动条的颜色 WakeLock使用方法示例代码 Concurrent并发库常见问题总结 BarCode控件(高分求解) 有谁在使用VC7.0? 高分求专用数据库驱动(MS SQL2000,IBM DB2) 十万紧急!哪位pdf2txt1.0的注册码能否告知,可以给我发邮件dpwei@metarnet.com,谢谢! 怎样取得一个季度得数据 有谁听说过 vality, torrent, metarecon? 这个查询怎么写? 经典问题 SQL语句问题 如何实现带有CheckBox的JTree 多文档中怎样写子窗口的OnSize()消息 火烧眉头,谁有pb6.5连接Access的补丁??? 谁有完整的MPEG2、MPEG4标准 vc中有没有处理ini文件的类,或请介绍处理ini文件的代码与函数.谢谢(最好有例程)!!! 初次接触lotus不知道从什么地方下手,请赐教 哪里有好的学习JAVA的网站或书. 问个送分的问题, 快来帮助,再线等待,高分相送 多文档中怎样写子窗口的OnSize()消息 关于报表的一个小问题? ??如何调用COM+对象? 微软专家:教我如何理解.Net的跨平台? 我真的想问,不精通编程就一定不能成为计算机人才吗? 如何在单文档工程的CMainFrame中得到CView指针阿? 哪位大侠使用VC和数据库比较完美地做过管理系统?交流一下,要分您说话。 各位大侠请进来提点意见把:关于统一认证平台的问题。 怎样设置多文档中子窗口的OnSize()消息 ?有关COM自动化类型Variant传递安全数组的一个问题 请问foreach这样的语句怎么转换成for或while语句? 请教高手,VB可否打开unix服务器上的数据文件,如何实现?谢谢!(无内容) CHOTKEY控件改变的消息如何得到? 请问哪里有关于c/s和b/s构架讨论,简介 等的文章?? 50分!!! 如何拆分一个字符串 SOS!!! 使用showModalDialog问题 有这么一个问题.... 栈的一个典型操作(计算表达式) 在PB65自带的installshield5中,怎么在开始菜单添加快捷方式阿? 多文档中怎样写子窗口的OnSize()消息 急啊!!!!!从ibm下载的websphere studio siteDev和appDev安装启动程序时,都出现The trial version license cannot be found!!!!!!! win2000自动关机的问题 为什么不上网也能登录域? 如何捕获键盘事件 谁能告诉我,我的程序错在哪里? 请问各位大如何通过javaScript得到文件的大小??谢谢各位急 打开word文档的问题 一个库结构能否直接在连接的两台微机之间相互拷贝? textbox属性textmode为MultiLine时,如何设定maxlength限制用户输入字符数 关于VC类型转换的问题!! 如何在没有使用MFC就是(Set->NO Using MFC)的程序下使用CDC类呀? 如何执行.bat文件 那里可以找到,apache+oracle+unix+java的资料? 高中物理 接地我的回答正确吗:在空心金属壳内放一正点电荷,金属壳外壁接地,则内壁感应出负电,外壁感应出正电由于接地导入大地.如果负点电荷,则内壁不带电,外壁带正电因为题目上总是 2个带有等量电荷的铜球,相聚较近且位置保持不变,设他们带同种电荷时静电力事F1,带异种电荷时静电力为F2.问F1、F2大小关系. 直径为d的纸质圆筒,以角速度ω绕轴O高速运动,有一颗子弹沿直径穿过圆筒,若子弹穿过圆筒的时间小于半个周期,在筒上先、后留下a、b两个弹孔,已知aO、bO间夹角为φ弧度,为什么在t时间内,圆 为什么物体带负电,则接地时,负电荷(电子)沿导线传入大地? 例、下图是图(1)的正方体切去一块,得到图(2)~(5)的几何体,例、下图是图(1)的正方体切去一块,得到图(2)~(5)的几何体①它们各有多少个面?多少条棱?多少个顶点?②举例说明其 airphil express是什么意思 一做匀变速直线运动的物体,先后通过AB两点的速度是v1和v2,求通过AB中间时刻的速度,和中间位置的速度最好有解释,3q 一个正方体木块切去一个角后的几何体有多少条棱? 单层多点与石墨烯 谁是触摸屏未来的驱动力 express. 是什么意思? 一个正方体切去一个角后的几何体有几条棱,要图 石墨烯为啥这样火? express是什么意思 高三物理第一轮复习牛顿运动定理复习题一个同学身高h1=1.8m,质量m=60kg,站立举手摸高(指手能摸到的最大高度)h2=2.2m,重力加速度g=10m/s²(1)该同学用力蹬地,经过时间t1=0.40s竖直离地跳起,摸 怎么不用石墨烯做手机电池?既然石墨烯的电容量如此巨大,用来做手机电池不是更好,一个月都不用充电了,充电的话也就1-5分钟的时间,这个材料做手机电池不是很好么! 微软的软件后面加个这个是什么意思?2008 Express 将一个正方体切去一个角,剩下部分的顶点数为() 直径为D的纸制圆筒,以角速度W绕中心轴匀速转动,把枪口垂直圆筒垂线,使子弹穿过圆筒,结果发现圆筒上只有一个弹孔,则子弹的速度不可能是-----A.DW/π B.DW/2π C.DW/3π D.DW/4\π 初中压强与浮力题【多选题】木块乙浮在水面上,木块乙上放有铁块甲,如图所示.此时,木块受到的浮力为F,水对圆筒形容器底面的压强为p,水面距容器底面的高度为h.现将甲取下并沉入水底, 切去正方体的8个角,新的几何体有几条棱,几个面,几个顶点 探究凸透镜成像的规律,物距与像距的大小关系初二上册3.3 接地和不接地有什么不同,如果两个带电金属板构成匀强电场,一个接地了就干嘛了?两个带电金属板构成匀强电场,一个接地了,另一个有什么影响吗 高三曲线运动的牛顿定律两质量均为m的小球穿在一光滑圆环上,并由一不可伸长的轻绳相连,圆环竖直放置.在如图所示位置由静止释放.问释放瞬间绳上的张力多大? 算出氮,再由氮求出蛋白质的含量(蛋白质含氮按16%计算).某质检局对某市场中的某个品牌的奶粉...算出氮,再由氮求出蛋白质的含量(蛋白质含氮按16%计算).某质检局对某市场中的某个品牌 "政府管理",也就是下定义. 短语 express oneself 的意思express one's opinion/idea 的意思是“表达某人的意见”那么,请问短语"express oneself"的意思是什么? 为什么雪花的构成是六边形快 不过有部分看不懂,半径为R的绝缘球壳上均匀的带有电荷量为+Q的电荷,另一电荷量为+q的点电荷放在球心O上,由于对称性,点电荷受力为零,现在球壳上挖去半径为r(r express onself feel like oneself 什么意思? 电荷均匀分布在长L的细棒上,求棒的垂直平分线上的电场强度 海尔热水器一根加热管和两根加热管除了加热速度有区别外,还有其他的不同吗?比如说质量等等, make oneself understand 是不是和 express oneself 一样? 为什么雪花是六边形的 海尔电热水器防电墙灯亮了和加热管有关系吗?急 i enjoy oneself 雪花为什么是六边形 关于牛顿第二定律的一道题如图所示,质量为2Kg的物体与水平地面的动摩擦因数μ=0.2,现在对物体施加一个向右且与水平方向成θ=37°角,大小为10N的拉力F,使之向右做匀加速直线运动,求物体加 石墨烯概念股有哪些 与石墨烯相关上市公司一览 雪花是六边形的?最后分成几点说,例如第一个原因是.第二个原因是.先把每点是什么说出来, sata-express-sris-capabilities是什么意思 石墨烯相关的有哪些上市公司? 雪花为什么是正六边形的结晶体我从一本书上看到的,把答案忘了,有谁知道. dimerco express是什么意思 关于放大镜,幻灯机,照相机的使用,下列说法正确的是A应该把被观察的物体放在放大镜的焦点以内B应该将幻灯片放在幻灯机镜头的焦点以内C应该将幻灯片放在幻灯机镜头的焦点和2倍焦距之间 网络犯罪 为什么共线的三个点电荷满足√q1q3=√q1q2+√q2q3 e-sata什么意思啊 哪个上市公司将量产石墨烯锂电池? 英语翻译句子:无论何时都不能靠自己一个人100%的力量,而是要靠100个人每个人1%的力量!有道翻译结果:No matter when it can't rely on their own power of 100%,but by 100 the power of 1% each.百度翻译结果:Whenever y 我知道电离能越小,越易失电子,此元素的金属性越强.那么电离能越大的元素,非金属性越活泼,对吗,为什么? 下列光学仪器中得到的实像比物体大的是( )A、放大镜 B、照相机 C、平面镜 D、投影仪 我新手- - 学习和生活中常用到下列光学器具:①显微镜 ②穿衣镜 ③潜望镜 ④老花镜 ⑤汽车观后镜 ⑥近视镜.其中利用光 石墨烯的应用领域是那些? 英语翻译You are never too old to build a snowman 下面利用光的反射原理制成的是( ) A放大镜 B家用穿衣镜这是单选题,选哪一个?说说原因说说原因 放大镜、幻灯机、照相机、潜望镜,哪个得到的实物比物体大? 高中物理 关于接地接地什么意思 大概讲下就行了 谢了比如 将带电体A靠近导球B,然后给B瞬时接地,然后移去A, B就带上电为什么啊 下列光学器具中,利用光的折射现象制成的是( )A.穿衣镜,照相机,潜望镜 B.放大镜,照相下列光学器具中,利用光的折射现象制成的是( )A.穿衣镜,照相机,潜望镜 B.放大镜,照相机,投影仪 C 标况下,2.8克氮气,0.5mol氢气,4克氩气混合,该混合气体体积
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘