取色器:用VFP打造屏幕取色器
疯狂代码 CrazyCoder/ ?:http:/CrazyCoder/DataBase/Article17951.html 屏幕取色器,大家想必都见识过,小弟也从网上找了一个,做网页很方便,尤其像俺这种偏于代码的那 种人,看到合适的,可以用这个小东东取出来,然后可直接用在网页中,真是很方便,不过,像咱也是做开发 的,于是想到了,自己也做这样一个东东,正好,小弟在尝试VFP9,所以便拿这个小工具开刀了
第一步,界面设置 不用多说,于代码相关的是一个timer控件,intervalue值可以自行设定一下,合适为好,太大则取色不准,太 小则会大量占用
系统资源。 第二步,编写代码,在timer事件中写入以下代码: DECLARE integer GetCursorPos IN WIN32API as \"GetCursorPos\" string @lpPoint DECLARE integer ClientToScreen IN WIN32API as \"ClientToScreen\" integer hWnd,string @lpPoint DECLARE integer GetPixel IN WIN32API as \"GetPixel\" integer hDc,integer xPos,integer yPos DECLARE integer GetDC IN WIN32API as \"GetDC\" integer hWnd arrPos=REPLICATE(CHR(0),8) LOCAL intXPos,intYPos SET PROCEDURE TO funclib.prg LOCAL myreturn myreturn=GetCursorPos(@arrPos) myreturn=ClientToScreen(0,@arrPos) strX=LEFT(arrPos,4) strY=SUBSTR(arrPos,5,4) strXPos=left(strX,2) strXPosLow=LEFT(strXPos,1) strXPosHigh=SUBSTR(strXpos,2,1) strYPos=left(strY,2) strYPosLow=LEFT(strYPos,1) strYPosHigh=SUBSTR(strYpos,2,1) thisform.text1.value=256*ASC(strXPosHigh)+ASC(strXPosLow) thisform.text2.Value=256*ASC(strYPosHigh)+ASC(strYPosLow) intXPos=thisform.text1.Value intYPos=thisform.text2.Value hDcScreen=GetDC(0) LOCAL xRgbColor as Integer xRgbColor=GetPixel(hDcScreen,intXPos,intYPos)
intBlue=int(xRgbColor/65536) intGreen=INT((xRgbColor%65536)/256) intRed=xRgbColor%256 IF NOT thisform.locktext thisform.text3.Value=\"#\"+ALLTRIM(int2Hex16(intRed))+ALLTRIM(int2Hex16(intGreen))+ALLTRIM(in t2Hex16(intBlue)) thisform.text4.Value=intRed thisform.text5.Value=intGreen thisform.text6.Value=intBlue thisform.container1.BackColor=RGB(intRed,intGreen,intBlue) ENDIF CLEAR DLLS 其次,还要在将颜色取出来,放到剪切板上以便在其它
软件环境中适用 于是,在主表单的keypress中使用 if nKeyCode=CTRL+C _cliptext=thisform.text1.value endif 2008-9-26 0:25:36 疯狂代码 CrazyCoder/