【文件属性】:
文件名称:vb 抓点抓色 源码
文件大小:2KB
文件格式:RAR
更新时间:2012-06-09 04:39:00
VB 抓点抓色 源码
自动抓取屏幕的颜色和坐标……
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) '取颜色值
【文件预览】:
取点取色
----Form1.frm(3KB)
----工程1.vbp(627B)
----组1.vbg(39B)
----工程1.vbw(53B)
网友评论
- 这代码比较实在,有关于RGB转为CMYK的算法吗