2013-09-23
展开全部
.版本 2.DLL命令 取坐标颜色, 整数型, "gdi32.dll", "GetPixel"
.参数 设备场景, 整数型
.参数 x坐标, 整数型
.参数 y坐标, 整数型.DLL命令 取设备场景, 整数型, "user32.dll", "GetDC", , 获取指定窗口的设备场景,出错则为0
.参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0,则要获取整个屏幕的DC
.版本 2.子程序 _时钟1_周期事件
.局部变量 颜色值, 整数型
.局部变量 红, 整数型
.局部变量 绿, 整数型
.局部变量 蓝, 整数型颜色值 = 取坐标颜色 (取设备场景 (0), 取鼠标水平位置 (), 取鼠标垂直位置 ())
编辑框1.内容 = 到文本 (颜色值)
' 红 = 位与 (颜色值, 255)
' 绿 = 右移 (位与 (颜色值, 65280), 8)
' 蓝 = 右移 (位与 (颜色值, 16711680), 16) 标签7.背景颜色 = 颜色值红 = 取字节集数据 (到字节集 (颜色值), #字节型, 1)
绿 = 取字节集数据 (到字节集 (颜色值), #字节型, 2)
蓝 = 取字节集数据 (到字节集 (颜色值), #字节型, 3)
编辑框3.内容 = 到文本 (红)
编辑框4.内容 = 到文本 (绿)
编辑框5.内容 = 到文本 (蓝)
.子程序 _按钮1_被单击时钟1.时钟周期 = 到整数 (编辑框2.内容) × 1000.子程序 _按钮2_被单击时钟1.时钟周期 = 0
.参数 设备场景, 整数型
.参数 x坐标, 整数型
.参数 y坐标, 整数型.DLL命令 取设备场景, 整数型, "user32.dll", "GetDC", , 获取指定窗口的设备场景,出错则为0
.参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0,则要获取整个屏幕的DC
.版本 2.子程序 _时钟1_周期事件
.局部变量 颜色值, 整数型
.局部变量 红, 整数型
.局部变量 绿, 整数型
.局部变量 蓝, 整数型颜色值 = 取坐标颜色 (取设备场景 (0), 取鼠标水平位置 (), 取鼠标垂直位置 ())
编辑框1.内容 = 到文本 (颜色值)
' 红 = 位与 (颜色值, 255)
' 绿 = 右移 (位与 (颜色值, 65280), 8)
' 蓝 = 右移 (位与 (颜色值, 16711680), 16) 标签7.背景颜色 = 颜色值红 = 取字节集数据 (到字节集 (颜色值), #字节型, 1)
绿 = 取字节集数据 (到字节集 (颜色值), #字节型, 2)
蓝 = 取字节集数据 (到字节集 (颜色值), #字节型, 3)
编辑框3.内容 = 到文本 (红)
编辑框4.内容 = 到文本 (绿)
编辑框5.内容 = 到文本 (蓝)
.子程序 _按钮1_被单击时钟1.时钟周期 = 到整数 (编辑框2.内容) × 1000.子程序 _按钮2_被单击时钟1.时钟周期 = 0
2013-09-23
展开全部
用别人写好的模块,作坊模块等好多都有这个功能。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-23
展开全部
这孩子敢敢的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询