VBNet - Форум - Цвет пикселя

Вопрос: Цвет пикселя Добавлено: 18.12.02 16:16

Автор вопроса: sterling

Кто-нибудь знает, как можно получить цвет пикселя текущего экрана

Windows?

Ответить

Ответы Всего ответов: 7

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 18.12.02 22:40

Не совсем понял что означает "текущего экрана

Windows"

Попробуй

GetPixel(GetDc(GetDesktopWindow),x,y)

Ответить

Номер ответа: 2
Автор ответа:

sterling

Вопросов: 6
Ответов: 5

Профиль | | #2

Добавлено: 19.12.02 15:12

Если не затруднит, то можно поконкретнее?

Ответить

Номер ответа: 3
Автор ответа:

-=Gork=-

ICQ: 9993198

Вопросов: 8
Ответов: 229

Web-сайт: olegm.wz.cz/
Профиль | | #3

Добавлено: 19.12.02 15:21

Енто АПИ функция.......

Ответить

Номер ответа: 4
Автор ответа:

SeMa

ICQ: 166433794

Вопросов: 9
Ответов: 143

Профиль | | #4

Добавлено: 20.12.02 05:02

Вот так, только таймер влепить не забудь

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Dim D_DC, D_WND As Long
Dim curpos As POINTAPI

Private Sub Form_Load()
D_WND = Progman = FindWindow("Progman", "Program Manager")
D_DC = GetDC(D_WND)
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
GetCursorPos curpos
Me.BackColor = GetPixel(D_DC, curpos.x, curpos.y)
End Sub

Ответить

Номер ответа: 5
Автор ответа:

sterling

Вопросов: 6
Ответов: 5

Профиль | | #5

Добавлено: 20.12.02 16:40

Спасибо, конечно, но я перенёс эту прогу на VB.NET и никакого

результата. Не могу понять почему.

Ответить

Номер ответа: 6
Автор ответа:

SeMa

ICQ: 166433794

Вопросов: 9
Ответов: 143

Профиль | | #6

Добавлено: 21.12.02 01:14

Не знаю на Васике6 работает, спроси как переделать ее на VB.NET, у меня его нет, и я не его даже не видел, может там Private Sub Form_Load() не так наз. или таймер не так наз.

Ответить

Номер ответа: 7
Автор ответа:

-=Gork=-

ICQ: 9993198

Вопросов: 8
Ответов: 229

Web-сайт: olegm.wz.cz/
Профиль | | #7

Добавлено: 21.12.02 11:15

Вот догружу я последний диск...................

Ответить

Страница: 1 |