| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1191 人关注过本帖
标题:VB里如何抓取指定点颜色?
只看楼主 加入收藏
方云龙
Rank: 1
等 级:新手上路
帖 子:40
专家分:7
注 册:2007-5-11
收藏
 问题点数:0 回复次数:6 
VB里如何抓取指定点颜色?
菜鸟一个,刚学VB,想实现以下功能:
搜索更多相关主题的帖子: 颜色 
2008-09-10 18:21
方云龙
Rank: 1
等 级:新手上路
帖 子:40
专家分:7
注 册:2007-5-11
收藏
得分:0 
晕,没写完接错发表了,功能如下:
当屏幕上24,54的颜色不是4214E5时按F键。如果是再次循环,直到按F11退出

天若有情天亦老,月若无情月常圆
2008-09-10 18:25
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function CreateDCA& Lib "gdi32" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long)










Private Sub form_load()
Dim a As String
a = CreateDCA("DISPLAY", vbNullString, vbNullString, 0)
Do While GetPixel(a, 24, 54) <> 421400000#
SendKeys "F"
Loop
End Sub


Private Sub form_KeyPress(KeyAscii As Integer)


If KeyAscii = 122 Then unload me


End Sub

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-10 19:27 编辑 [/it]]

偶是菜鸟鸟偶惧WHO?!!!!
2008-09-10 18:54
方云龙
Rank: 1
等 级:新手上路
帖 子:40
专家分:7
注 册:2007-5-11
收藏
得分:0 
谢谢版主指教,我现在去试一试

天若有情天亦老,月若无情月常圆
2008-09-10 20:00
方云龙
Rank: 1
等 级:新手上路
帖 子:40
专家分:7
注 册:2007-5-11
收藏
得分:0 
有个问题,颜色不用6位表示的吗?4214E5要写成421400000#???

天若有情天亦老,月若无情月常圆
2008-09-10 20:12
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
这个VB会自动把前者改为后者

偶是菜鸟鸟偶惧WHO?!!!!
2008-09-10 20:57
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
回复 5# 方云龙 的帖子
VB你可以將你這代碼放上去看看,將會自動縮寫

烈焰照耀世界,斌凍凍千萬裏
2008-09-11 11:56
快速回复:VB里如何抓取指定点颜色?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033724 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved