VB如何取得某座標色彩?

Question

如果VB的form有一張圖
怎麼取得某個點座標的rgb值各是多少?
或是該點的顏色代碼?
各位大大幫幫忙

我有試過用point
可是它的傳回值我不懂
它沒有把rgb各別是多少傳回來耶?

Answer 1

'在表單上放一個Label
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseColor = Point(X, Y)
R = Fix(MouseColor Mod 256)
G = Fix((MouseColor Mod 65536) / 256)
B = Fix(MouseColor / 65536)
Label1.Caption = "RGB = " & R & "," & G & "," & B

End Sub

Answer 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ColorValue As Long, R As Integer, G As Integer, B As Integer

ColorValue = Me.Point(X, Y)
R = ColorValue Mod 256
ColorValue = ColorValue \ 256
G = ColorValue Mod 256
ColorValue = ColorValue \ 256
B = ColorValue Mod 256
End Sub

Answer 3

Point(X As Single, Y As Single) As Long
傳回一 Long 型態的整數，表示 Form 或 PictureBox 物件上某一點的 RGB 色彩。