- 博客(1)
- 资源 (1)
- 收藏
- 关注
RSS订阅
991vb 抓点抓色 源码
自动抓取屏幕的颜色和坐标……
Private Sub Timer1_Timer()
Dim hdc As Long
Dim a As POINTAPI
Dim quyanse As Long
Call GetCursorPos(a) '取得鼠标位置
Text1.Text = a.x
Text3.Text = a.y
hdc = GetDC(0) '取得整个屏幕的hDC
Form1.BackColor = GetPixel(hdc, a.x, a.y) '取颜色
ReleaseDC 0, hdc '释放hDC
quyanse = GetPixel(Me.hdc, 2, 2) '取颜色值
2009-05-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人