Узнать цвет точки на невидимой картинке?

[Juriev]

Подскажите, как узнать цвет точки на картинке в данный момент закрытой другим окном или находящейся за границей окна?
Спасибо!

[Faust]

И я таким был... Забудь про .Point , он будет стабильно сообщать тебе о том, что точка имеет цвет -1. Советую использовать API-функцию GetPixel, которая работает с hDC. Если "не дружишь" с API - то где-то на форуме была ссылка на полезную программу API Guide.

[A.A.Z.]

Кто-то сказал API?

где-то на форуме была ссылка на полезную программу API Guide.

Подробные описания и объявления API-функций:

API-Guide
Есть 900 с чем-то функций и процедур, есть описания параметров и возвращаемых значений, есть на каждую функцию / процедуру пример.
http://users.chello.be/cr27630/3.7/agsetup.exe
Для новых функций:
File->Internet Update->Next->New Data Pack->Next->Finish
Для русского языка:
File->Internet Update->Next->Russian Language Pack->Next->Finish

API-Viewer
Больше функций и процедур (ок. 5000), есть константы (ок. 50000), но нет описаний и примеров.
http://www.activevb-archiv.de/downloads ... pv2003.exe
Русский язык:
http://www.activevb-archiv.de/downloads ... ussian.exe

API-List
Есть функции / процедуры .NET; он-лайн.
http://www.mentalis.org/apilist/apilist.php

API-справочник на русском
Функции самые основные, т.е. их не очень много. Но всё равно полезно.
http://bbs.vbstreets.ru/download.php?id=703


ЗЫ зайти на http://www.allapi.net (http://www.mentalis.org) - там очень много интересного!

ЗЗЫ зайти в секретное место

ЗЗЗЫ зайти в еще одно секретное место

[Juriev]

Private Declare Function GetPicsel Lib "gdi32.dll" (ByVal hds As Long, ByVal x As Long, ByVal y As Long)

Private Sub pic_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Label1.Caption = GetPicsel(pic.hDC, x, y)
End Sub
'Сообщает - не могу найти точку входа в gdi32.dll
'Прошу помощи!!! Что в коде не так?

[Cyrax]

Private Declare Function GetPicsel Lib "gdi32.dll" (ByVal hds As Long, ByVal x As Long, ByVal y As Long)

Private Sub pic_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Label1.Caption = GetPicsel(pic.hDC, x, y)
End Sub
'Сообщает - не могу найти точку входа в gdi32.dll
'Прошу помощи!!! Что в коде не так?

должно быть GetPixel

[Amed]

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub pic_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Label1.Caption = GetPixel(pic.hdc, x / 15, y / 15)
End Sub

Cyrax: его код даже с GetPixel не работает

[Cyrax]

а он и не будет работать, потому что x и y, скорее всего, в твипах
а, черт с ним, с кодом... я домой пошел - спать

[Amed]

Ну да, точно, в твипах... Спокойной ночи, Cyrax!

А Juriev я могу посоветовать поподробнее изучить синтаксис вызова API-функций... Он очень строгий, и "вариации", как в Вашем коде, недопустимы.

[A.A.Z.]

Нет, почему, допустимы, но тогда нужно настоящий Alias указывать.
Declare Function GetPicsel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

[Juriev]

Господа, спасибо!
Посмеялся я над своим GetPicsel-ом (ляп от недосыпания, наверно).
И еще для меня польза от этой беседы - очень доходчиво объяснили, зачем и что такое Alias. В книге у меня это описано не понятно.

[Кирюха]

Люди, кто знает помогите с тойже проблемой только GetPixel ни в твипах ни в пикселях не работает когда картинке невидна, освобождаю часть картинки. Эта часть работает, закрытая -> нет.
Пишу контрол.....

[ALX_2002]

Отец, объясни - зачем доставать цвет картинки из под закрытого окна ??? Дело в том, что это тебе придётся с памятью работать. Потому что по идее. И это то ещё парево.

А с помощью GetPixel я думаю ты этого не добьёшся.

Может в кратце объяснишь, для чего это нужно и чего ты хочешь добиться, вот тогда получишь вразумительные ответы и предложения как более удобно решить эту задачу.

[ALX_2002]

Да, кстати - забыл сказать.
Тут пара нюансов есть.

Если ты берёшь пиксель со своей формы то это одно дело.
Тогда тебе надо её состояние в Autoredraw перевести и картинку сделать на ней как Picture.

А если с чужой формы, то это уже другое дело. Если у неё AutoRedraw стоит как True, то тебе надо получить её HDC и тогда ты сможешь брать цвета и с неё. А если у неё Autoredraw=False, то облом.

[Кирюха]

всё это я знаю, вот у меня и неполучается.
В конце концов остановился на массиве в котором буду хранить значение цвета в маске.
Вот так вот

[Кирюха]

короче говоря люди подскажите где можна достать исходник, если он есть.
Как делать MouseMove по только белому цвету в маске

[ALX_2002]

Кирюх.. Может я чего то не понимаю, но вроде это то что нужно. Или если нет, то объясни подробнее.

Копируй код в форму. Вставляй на неё рисунок и смотри на заголовок формы

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

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Dim PX As Long
Dim PY As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PX = X / Screen.TwipsPerPixelX
PY = Y / Screen.TwipsPerPixelY
If GetPixel(Me.hdc, PX, PY) = vbWhite Then
Me.Caption = "! White !"
Else
Me.Caption = "Another color"
End If
End Sub


[Кирюха]

уже можно не беспокоится, усё сделал сам.
Контрол работает как нельзя лучше...
Всё равно спасибо....

[Кирюха]

Ещё раз лично спасибо за беспокойство ALX_2002

[ALX_2002]

Дык... Если что - обращайтесь. Всегда рады