Question

vb 取一张图片一点上的RGB

一张图片 尺寸1440*900
如何获取100*100这个点的RGB

Answer 1

用Photosho多方便，先选用取色工具，移动时注意信息窗口中X，Y坐标到你需要的位置时按下鼠标，在颜色窗口中就显示出该点的RGB色

Answer 2

你指的图片取色是显示于屏幕上后再取色，相当与屏幕上指定点取色；还是读取文件内容，再自己分析，从而得到指定点的颜色？

Answer 3

Private Sub Command1_Click()
Dim c As Long, r As Byte, g As Byte, b As Byte
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.Appearance = 0
Picture1.BorderStyle = 0
Picture1.ScaleMode = 3
Picture1.Picture = LoadPicture("e:\tmp\cd1.gif")
c = Picture1.Point(100, 100)
r = c And &HFF&
g = (c And &HFF00&) / &H100&
b = (c And &HFF0000) / &H10000
MsgBox "点(100,100)的颜色值为" & c & vbCrLf & "分解后的RGB分量分别是：R=" & r & " G=" & g & " B=" & b
End Sub