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

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----编译运行,看,出来了吧.
启动时禁止装入 Add-Ins -VB资料 让Timer控件每5分钟触发一次事件 -VB资料 让程序启动快一点 -VB资料 VB如何调用系統的【查找】、【替换】的对话框? VB如何动态新增、移除 ODBC DSN? VB如何读取 Picture 内任何一点的颜色值? VB如何获取硬盘卷标、序列号和文件系统类型? VB如何判别程序是在Win95或NT下执行? VB如何启动控制面板? VB如何取得磁盘序列号? VB如何让Window不接受键盘输入及Mouse Click VB如何让程序拥有多个热键? VB如何让用户自行输入方程式,并计算其结果? VB如何使程序不在Ctrl+Alt+Del弹出的对话框内? VB如何使用 VB 编写自动反安装的程序? VB如何用VB建立快捷方式 VB如何用VB在桌面建立快捷方式 VB如何在 VB 中控制 Modem 行为? VB如何在VB中判断Windows9x的运行模式 VB如何在Visual Basic中实现异步执行程序 VB如何在开机时自动更换墙纸? 使回车具有 Tab 的功能-VB资料 输入时,自动转换成小写? -VB资料 显示多媒体信息 -VB资料 也谈Windows 下的自动存盘 -VB资料 一个小巧精致的CPU监视器 -VB资料 应用VB4.0实现工业控制的实时曲线和历史曲线 应用程序中实现关机功能-VB资料 萤幕抓取与萤幕保护程式 -VB资料 用VB5.0创建Windows快捷方式 用VB5.0收集键盘和鼠标信息 我从网上下载的*.bin文件的电影怎么播放? 考水平考试的朋友请过来看。 刚收到111222的信~~~难过~~~我会想念他的~~~你们是不是也会~~~ 我的硬盘为何这样!help!! 考水平考试的朋友过来看看 我要毕业啊 ===============想知道111222去向的朋友,看这(独家披漏)===================== 以下SQL语言如何写? 111222走了~~送分~~~心里不好受~~~ 111222真的走了~~~~~~~~~~~ JBuilder中用MYSQL数据库,用中文进行条件查询时,查不出任和数据? ASM 菜鸟问题,请大家帮忙!谢谢 解释一下好了吗? ============答对我的问题者,将可获得111222的签名照片!!!!!!!!=========== 关于图片的上传 ======== 绝对好消息,activereport2.0已经release 了,cracker们出动啊~~~~~加油 ============= 关于什么才是真正的系统分析和系统分析员的讨论!——欢迎大家参加,进行善意地讨论!^&^ 今晚的球赛什么时候开始啊? 哪里有关于水平考试(高程)的模拟题的啊??? 为什麽还是不能显示中文呢? 怎样获取WIN2000的密码 在父窗体怎样画jpg格式的背景图? 如何注册MSComm控件????????? 如何解决这个问题啊?重赏啊!!!! 公告: 从现在开始封shines 111222 :)流芳斑主,结贴的工作要开始了,会很累啊!我代表大家先谢谢你了! 怎样改变MSHflexgrid中每条记录的背景颜色。急急急急急急急 各位,能不能给我讲一下“句柄”是怎么一回事? 唉,心情不爽 关于C++语法的问题? 灌水-----大学时的恶作剧(转载) "setdibs()"是什么来着,请指教,谢谢! 写注释不宜过头 这段代码错在哪里? 请大家预测一下比分(参与者都有分)开赛后就不算了,还有半个小时,赶紧着 写网络电话程序的讨论 最后一帖,贴完睡觉----如何在电梯里捣乱 怎样定制一个在程序中重用的组件?只能通过包方式吗? 寻寻觅觅 汉英计算机科技文章 互译!!有劳各位朋友费心帮忙找找 我靠!真TMD不爽,这个时候准老婆的老妈进了医院! 怎样调用*.db格式文件 谁知道哪儿有英汉互译,急急急急!!!! ISO 9001认证 VS CMM2 谁知道哪儿有《神秘的人月》下载? 为111222求情 怎样可以修改浏览器的标题? 怎样可以修改浏览器的标题1? 哪位能给我一个source insight 3.0的sn号? 怎样可以修改浏览器的标题2? 如何异步调用远程组件的方法? 哈哈!球赛开始了!我也不想去医院了!!!顶多明天挨顿骂! 求方程|x|+2|y|=0的解 解方程:75%x×2+3x打漏了一些东西:75%x×2+3x=90 (X-2500)*[8+(2900-X)/50*4]=5000 方程(x-1)2-(x+1)(x-1)+3(x+1)=0的解是 x+【X+1】+【X+2】+...【X+10-1】=75怎么解方程 解方程(4* (2900-X) / 50 +8 )(X-2500)=5000 2个x的方程怎解解答 x—x÷10=7.74 解方程 (x-2500)(50分之x-2900乘以4+8)=5000 (x+1)^2+x-2=1这道方程怎么解啊!其实原题目是:x+1 1----- + ----- =1x-2 x+1 75加10%x减15%x等于74 (2900-x-2500)(8+4x/50)=5000怎么算 X*X=108+3*X怎么解呀X*X=108+3*X, 75+百分之十X-百分之十五X=74 这个方程怎么解?250X=200*(6.75-X) X+10+X+8=108怎么解 75%X➖10=2 这个解方程怎么算啊75%X➖10=2这个解方程怎么算啊 250X=200(6.75-X)怎么解,详细点,谢谢 (108-x)/x=12.5% 怎么解 X减百分之15X等于68 解方程 x÷250+x÷200=6.75这个方程怎么解, 9(X-3.8)=108怎么解? 1.已知关于x的方程4x+2=-6的解比关于x的方程4x-2a=10的解小3,求关于x的方程4ax+5=-1的解.2.一个两位数,十位数与个位数之和是14,如果把十位数与个位数数字对调,得到的两位数比原数大36,则这个两 X/250+X/200=6.75 这题方程具体怎么解 7.6x-3.2=4x-1.76 方程解 方程x(4x+6)=9 方程(1-x-3)(x+1)=-6 这类方程怎么解?有什么技巧?陈出来后又有x又有x²,实在是求不出!感激不尽 方程8分之1x-4分之1=2分之1的解是() 10(29/60-x)=18(25/60-x)这个方程怎么解? 50%*x=40%*(x+20)这个方程怎么解?过程. 怎么解x-(6/1x-30)=8/7x这个方程怎样解 (X-15)*2/3-(X-15)/3=10 怎么解这个方程? 1/3(x+50)=40%x,这个方程怎么解 x-4/1x=(150-x)-30 这个方程怎么解?是四分之一!不是一分之四! 60%x+14=18 这个方程怎样解? 帮我解个方程:60×(X--1)=50×(X+0.2) x+4分之1x=30怎么解这个方程? 60-x+18=53的方程怎么解 50 ÷x =10 方程式 20分之1x加30分之1x=1求方程怎么解? 18与X的15倍的和是63.用方程解. 3x+2.5(68-x)=180,3x+2(68-x)=180,2.5x+2.5(68-x)=180,这三道方程怎么解 x-(8/1+21)+6/1x-4=102这个方程怎么解 已卖出10盆花,没盆15元,又卖出x盆同样的花,共收入270元(列方程并求出方程的解) X-0.6=0.48的方程式怎么解X-0.6X=0.48的方程式怎么解 已知方程3(3x+3)—1=2x的解和3x+m=四分之m—27的解相同!求m的值 (100%-40%)X + 90 = 15% X 这个方程怎么解 42=0.5*6*(6*x)怎么解这个方程 已知方程3(3x+3)-1=2x的解与关于x的方程3m+m=m/4-27的解相同,求m的值. x+3=15怎么解?要方程! 方程x^2-|x|-6=0的解是 已知方程3(x+3-1)=2x的解与关于x的方程3x+m=3m-27的解相同,求m的解 解方程:x/60 +2=x/45 解一下方程;2(x+0.6)=3(x-0.1) 8(x-3)-5x=27类似的方程跪求!有的话给我发十道 (X-45)*60% =45 + (X-45)*40% 怎么解方程 (18+x)/(48+x)=40%这个方程的过程怎么求? (x-3)+5x=27用方程解 求方程x^2-2^x=0的解?谁会? 60%-40%x=45解方程 求解方程:200(x-15)=200*5+80(x-5) 要有过程 谢谢
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn