VB怎么实现整个屏幕抓点判断颜色

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:15:58
VB怎么实现整个屏幕(不是程序屏幕)抓点判断颜色,
希望具体点~
请问feisuzhu:
请问为什么要用到TIMER控件,
还有你的代码我用后无任何效果,
请不要网上随便复制答案,请自己写的易懂些~谢谢

Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Timer1_Timer()
Dim mousecoo As POINTAPI
Dim hdc As Long
GetCursorPos mousecoo '取得鼠标位置
hdc = GetDC(0) '取得整个屏幕的hDC
Form1.BackColor = GetPixel(hdc, mousecoo.x, mousecoo.y)'取颜色
ReleaseDC 0, hdc '释放hDC
End Sub

自己做的,不是网上找的
Timer过程里是一次取色+设定窗后颜色的过程.如果不用Timer就只是去一次,那样看不到效果
没效果可能是你的Timer的Interval为0
对DirectX产生的图像没有效果

好象用Pget函数就可以了！记得Pset和Pget是一对夫妻！你试试看！！