Рисование точки на экране - PullRequest
Новая
       15

Рисование точки на экране

1 голос
/ 06 декабря 2008

Мне нужно прочитать цвет и нарисовать расчетную точку на экране

Что является VB.NET-эквивалентом старых команд Peek и Poke или PointSet и PointGet в более старых версиях VB.

Или, в качестве альтернативы, есть ли способ использовать метку в качестве объекта Cursor, чтобы она не стирала содержимое моего Picturebox при его перемещении. Я не могу просто создать значок курсора, потому что текст в метке должен меняться при перемещении курсора

1 Ответ

1 голос
/ 06 декабря 2008

Вы не можете использовать метку как курсор как таковой, но вы можете добавить компонент Label к вашей форме и перемещать его синхронно с курсором с помощью фильтра сообщений, например: 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        Application.AddMessageFilter(New LabelMoveFilter)

    End Sub

    Private Class LabelMoveFilter
        Implements IMessageFilter

        Public Function PreFilterMessage(ByRef m As Message) As Boolean _
            Implements IMessageFilter.PreFilterMessage

            'If the message is &H200 (WM_MOUSEMOVE), reposition the label to
            'where the cursor has moved to

            If m.Msg = &H200 Then
                Form1.Label1.Location = Form1.PointToClient(Cursor.Position)
            End If

            'Return false so that the message is passed on to the form

            Return False

        End Function

    End Class

End Class

Компонент Label (в данном примере Label1) не будет перезаписывать что-либо на вашей форме, он просто будет располагаться сверху. Просто убедитесь, что Метка находится перед всеми другими компонентами в форме, чтобы она не скользила позади чего-либо еще. Затем вы можете просто установить текст метки на все, что вам нужно, когда это уместно.

Редактировать: чтобы ответить на другую часть вашего вопроса ...

Чтобы получить и установить произвольные пиксели на экране, вы можете использовать функции Windows GDI GetPixel и SetPixel. Импортируйте их так: 

Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal crColor As Integer) As Integer

затем назовите их как: 

color = ColorTranslator.FromOle(GetPixel(GetDC(0), x, y))

и 

SetPixel(GetDC(0), x, y, ColorTranslator.ToOle(color))

Где x и y - координаты экрана (не формы), а цвет - цвет для чтения / установки. Вы можете получить X / Y курсора, используя Cursor.Position.X и Cursor.Position.Y, если это X и Y, которые вы хотите. Вы можете использовать методы PointToScreen и PointToClient для преобразования из формы в экран и из экрана в координаты формы соответственно.

Обратите внимание, что любые установленные вами пиксели будут перезаписаны, как только они будут перерисованы. И обратите внимание, что они будут читать / писать и вне вашей формы, поэтому будьте осторожны.

...