Как определить интенсивность красного точки пикчербокса?

[Makavelli]

Помогите! Есть пикчербокс, в нем загружена какая-то картинка. Мне надо узнать сколько красного (от 1 до 255) в цвете пикселя этой картинки.
Другими словами: какого цвета определенный пиксель пикчербокса.

[Faust]

c=Picture1.Point (x,y) 'возвращает цвет точки
r=c mod 256 'компонента красного

[ALX_2002]

Ну хоть уже и написали, всё равно добавлю. Может это понятнее будет.

Код: Выделить всё

Option Explicit
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Sub Form_Load()
Picture = LoadPicture("C:\windows\Рододендрон.bmp")
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim PIX As Long
PIX = GetPixel(Me.hdc, X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
       
Debug.Print "Красного " & PIX Mod 256
Debug.Print "Зелёного " & PIX Mod 256
Debug.Print "Синего " & PIX Mod 256

End Sub

http://nsft.narod.ru/Programming/colprog.htm

[Faust]

Код: Выделить всё

Debug.Print "Красного " & PIX Mod 256
Debug.Print "Зелёного " & PIX Mod 256
Debug.Print "Синего " & PIX Mod 256


Может быть, так:

Код: Выделить всё

Debug.Print "Красного " & PIX Mod 256
Debug.Print "Зелёного " & (PIX\256 ) mod 256
Debug.Print "Синего " & (PIX\65536) mod 256