Question

vb 如何将隐藏picturebox中某一点的颜色取出来，作为另一个控件的背景色？ 希望给出详细代码！

Answer 1

Private Sub Command1_Click()
Picture2.BackColor = Picture1.Point(200, 100) / 取具体点的颜色
End Sub

Answer 2

要使用 API

追问

我使用了Getpiexls,但是所取得的结果总是-1.你能详细写出代码吗？

追答

Option Explicit
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Debug.Print GetPixel(Picture1.hdc, 30, 30)
End Sub