Question

vb getpixel函数的问题，哪位大侠知道请告诉我！妈妈说标题要长……

问题如下：
窗体上有两个形状，我用midx和midy表示这两个形状连线的中心的位置。窗体上是有背景图画的，我要想实现用getpixel函数获取这个中心点处的颜色值。
但是不知道为什么，s的值是-1，颜色无法取到，label1的背景颜色不变。
还有就是me.hwnd的值每次都会变（小弟对句柄从未接触，是不是每次运行系统都会给窗体一个随机的句柄？）。
代码如下：
Private Sub Command1_Click()
midx = Val(((Shape1.Left) + (Shape2.Left)) / 2)
midy = Val(((Shape1.Top) + (Shape2.Top)) / 2)
s = GetPixel(Me.hwnd,midx,midy)

r = Val(a) And &HFF '分离出红色
g = (Val(a) And 65280) \ 256 '分离出绿色
b = (Val(a) And &HFF0000) \ 65536 '分离出蓝色
Label1.BackColor = RGB(r, g, b)
End Sub

Answer 1

不用API看看
Private Sub Command1_Click()
Dim midx As Long
Dim midy As Long
Dim s As Long
Dim r As Long
Dim g As Long
Dim b As Long
midx = Val(((Shape1.Left) + (Shape2.Left)) / 2)
midy = Val(((Shape1.Top) + (Shape2.Top)) / 2)

s = Form1.Point(midx, midy)
r = s Mod 256 '分离出红色
g = (s \ 256) Mod 256 '分离出绿色
b = s \ 256 \ 256 '分离出蓝色
Label1.BackColor = RGB(r, g, b)
End Sub

Answer 2

你为什么不获取背景图片的那个对象 然后获取背景的长宽然后取得中间点的像素啊 me.hwnd值的是窗体 不一定就包含那个背景的

追问

可以给出代码吗，给出这分数就给你了！
我的背景图是设置成窗体的背景图，难道这个也有句柄？

追答

已经改好了 发到你的QQ邮箱了 没有做太大的改动 在虚拟机里面做的VB 在WIN7下面能运行 显示的颜色 是你的那个标题上的像素的颜色