Question

vb image 里面的图片某点的像素颜色如何获取?

image拉伸的图片，把一个小图片放大了，然后如何获得XY处的颜色值？

Answer 1

Dim str As String
Private Sub Image1_Click()
MsgBox str
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
str = "你选取的所在点的颜色值是" & Hex(Point(X, Y))
End Sub

Answer 2

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim p As POINTAPI

Private Sub Timer1_Timer()
GetCursorPos p
l = GetDC(0)
Me.Caption = GetPixel(l, p.x, p.y)
Label1.BackColor = Me.Caption
End Sub