如花,如题
解决方案 »
- 操作MYSQL的一个字段属性问题
- 能够 "直接" 列举出 Collection Object 的所有 Key 吗?
- vb程序启动后调用了SpywareRemover的安装程序怎么回事,紧急!!大家多帮忙!
- 请问如何 将 shell 调用的程序界面显示在 当前 的mid窗口内呢?
- 一段判断输入是否为空的程序
- 大白鲨 总代理 销售 CSDN-BCB 自动放分机 To VB
- 怎样把字母转换成二进制的序列,很难吗?
- Access数据库应该用什么数据库引擎驱动?
- vb编写的窗体文件损坏,代码丢失,请问怎么修复?
- 有谁知道 Farpoint Spread 3.0.32的注册码?
- 收藏夹功能怎么还没有恢复啊!!!强烈要求恢复收藏夹功能!!!
- 关于程序打包问题 !急,在线等……
不过兄弟,要这个干嘛啊?!
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Type POINTAPI
x As Long
y As Long
End TypePrivate Sub Timer1_Timer()
Dim Cur As POINTAPI
Dim Ret As Long
GetCursorPos Cur
Ret = GetPixel(GetDC(0), Cur.x, Cur.y)
Text1.Text = Ret Mod 256 'R
Text2.Text = (Ret \ 256) Mod 256 'G
Text3.Text = Ret \ 65536 'B
Picture1.BackColor = Ret
End Sub
------------------
一个TIMER、一个PICTURE、三个TEXT。
大哥,你的敬业精神确实可嘉,但你这好像不是我想要的结果吧?
RGB(0,128,128)就可以啦。