怎么导出一个已知点的颜色,用井字的那种

有两种办法，一种是用point方法，一种用getpixel API

1.假设有Picture1，里面有一张图片，鼠标移动过去就显示出鼠标所指点的颜色
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim c As Long
c = Picture1.Point(x, y)
me.caption=c
End Sub

2.若要使用GetPixel，必须把对象的ScaleMode设置为3

还是上述功能，代码如下
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
private sub form_load()
picture1.scalemode=3
end sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim c As Long
c = GetPixel(Picture1.hdc, x, y)
me.caption=c
End Sub

这种方法只需要hDC即可获得像素点颜色

zfcsl 说的对。