文件名称：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)