Есть картинка, в файле.
надо узнать цвет определенного пикселя в ней.

Подскажите как???
Цвет точки на экране уже могу узнать,

автор
Option Compare Database
Private Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any)
Private Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


Private Type POINTAPI
x As Long
y As Long
End Type
Dim z As POINTAPI


Private Sub Кнопка0_Click()
GetCursorPos z
screendc = CreateDC("DISPLAY", "", "", 0&)
Поле2.Value = Hex(GetPixel(screendc, z.x, z.y))
DeleteDC (screendc)
End Sub




но мне надо именно из файла

orunbekа если загрузить рисунок в PictureBox и через его DC узнать?
Просто рисунков много... около 60-80
и пикселей, по которым идет проверка будет около 10-20
и это для каждого изображения.. :(
если загружать в PictureBox я думаю намного дольше будет идти процесс..

а от экрана никак не зависит....
ведь файл не меняется от экрана к экрану..

формат изображения .jpg

AntonariyЛибо грузить в пикчербокс, либо разобраться с форматом jpeg. Первое проще.

А можно небольшой пример.....
пожалуйста...
уже перерыл весь форум...

orunbekв коде формы объявляте
и потом код получения цвета из PictureBox
выдает в шестнадцитиричном коде цвет пикселя в точке 0,0 элемента Picture1
на сайте www.allapi.net есть прога API-Guide, в котором куча примеров по работе с API на VB, справочная и т.д.

а не подскажите тогда как получить hdc ?

вот мой код, где ошибка или чего не хватает?
авторOption Compare Database
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long


Private Sub Кнопка2_Click()
Dim hdcRef As Long

Set img = CreateObject("WIA.ImageFile")
img.LoadFile "p:\ISSLED\issled_result\1.jpg"
Set v = img.FileData

Set Image3.Picture = v.Picture

'GetCursorPos z
'screendc = CreateDC("DISPLAY", "", "", 0&)
'screendc = CreateDC(Image7, "", "", 0&)
'Поле2.Value = Hex(GetPixel(screendc, 10, 10))
'Поле2.Value = Hex(GetPixel(screendc, z.x, z.y))
'Поле2.Value = Hex(GetPixel(screendc, 10, 10))
'Поле2.Value = Hex(GetPixel(screendc, z.x, z.y))
'DeleteDC (screendc)
'image_dc = CreateDC(Image7.Parent.hdc, "", "", 0&)
'Поле2.Value = Hex(GetPixel(Image7.hdc, 10, 10))
'DeleteDC (image_dc)

hdcRef = GetDC(Image3.Parent.hdcWnd)

MsgBox Hex(GetPixel(hdcRef, 0, 0))
End Sub
спасибо

Можно какой нибудь файл примера?
у меня ничего не получаеться ((

мне это надо в аксесовской форме....
создал форму, на ней поместил Рисунок.

создал кнопку и приклике на нее обр. события

Option Compare Database
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Кнопка2_Click()
MsgBox Hex(GetPixel(Picture8.hdc, 0, 0))
End Sub

Выдает "Method or data member not found"

где ошибка???

упс......
да уж....
попал...
а не подскажете как???
никогда этим не занимался....
а проект интересный попался...