Получить цвет точки

[Sun07]

Люди, можно ли получить цвет точки внутри формы, но если эта точка зарисована контролом, надо её цвет отображения (а не BackСolor формы). Me.Point(X,Y) выдаёт -1 почему-то при разных X, Y.
И ещё - есть системный цвет контролов (серый), можно поменять сам системный цвет (как в стилях Windows), но только в пределах моей формы?

[Matew]

1. GetPixel попробуй. (Api)
2. Не совсем понял вопрос. Но цвета типо &H8000000F& (которые ты выбираешь в свойствах формы)- это относительные цвета и они меняются при разных настройках темы.

[pronto]

Во-первых, Me.ScaleMode = 3 - Pixel.
Во-вторых,

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

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

Option Explicit

Private Sub Command1_Click()
Dim c As Long

c = GetPixel(Me.hdc, 200, 300)
Debug.Print c
End Sub

.

И, в-третьих, под контролом цвет нигде не сохраняется, если не применять хитрых методов перерисовки перекрываемых частей окна.