使用 WM_PAINT 绘制无效矩形

Question

为了在ComboBox（或其他任何东西）上绘制文本，我覆盖WndProc() 并捕获0x000F 消息——即WM_PAINT。

代码如下：

Protected Overrides Sub WndProc(ByRef m As Message)
    MyBase.WndProc(m)

    If m.Msg = &HF Then
        TextRenderer.DrawText(CreateGraphics, "The text over my control.", Font, _
                              ClientRectangle, ForeColor)
    End If
End Sub

效果很好，但是有一个问题：如果我将父窗口拖到屏幕的一侧（为了隐藏窗口窗体的一部分），我的控件的可见部分会被无限重绘。这会使文本重新绘制在自身之上！

我想有一种方法可以只绘制控件的无效（隐藏）部分。我该怎么办？

编辑

这是一张图片中的问题：http://i.stack.imgur.com/WqGfI.png（这是一个链接，因为我现在无法发布图片。）

更新

我尝试使用 BeginPaint API，但返回的 PAINTSTRUCT 结构中包含的 RECT 结构只包含零。

If m.Msg = WM_PAINT Then
    Dim ps As PAINTSTRUCT = New PAINTSTRUCT
    BeginPaint(Handle, ps)
    Console.WriteLine(ps.rcPaint.right)

    'painting goes here

    EndPaint(Handle, ps)
End If

我可以用它做点什么吗？我不知道如何继续，以便仅绘制无效区域。

Answer 1

一个好的经验法则是，永远不要使用 Me.CreateGraphics。

尝试将您的代码更改为：

<DllImport("User32.dll")> _
Public Shared Function GetWindowDC(ByVal hWnd As IntPtr) As IntPtr
End Function

<DllImport("user32.dll")> _
Private Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Boolean
End Function

Protected Overrides Sub WndProc(ByRef m As Message)
  MyBase.WndProc(m)

  If m.Msg = &HF Then
    Dim dc As IntPtr = GetWindowDC(m.HWnd)
    Using g As Graphics = Graphics.FromHdc(dc)
      TextRenderer.DrawText(g, "The text over my control.", Font, _
                          ClientRectangle, ForeColor)
    End Using
    ReleaseDC(m.HWnd, dc)
  End If
End Sub

Answer 2

您可能会在没有实际更新时尝试绘画。 PAINTSTRUCT 的一部分指示是否应该实际擦除窗口。

这是我过去使用过的。 GetUpdateRect 让您可以轻松查看是否有任何实际更新以及获取更新的区域，而无需致电 BeginPaint。请记住，BeginPaint 仅在您不将消息传递给基类时才使用。 （我在这个 sn-p 中使用 NativeWindow 类进行子类化。）

Dim hasUpdates As Boolean
Dim updRect As RECT
Dim r As Rectangle

hasUpdates = GetUpdateRect(_parentControl.Handle, updRect, False)
With updRect
    r = New Rectangle(.Left, .Top, .Right - .Left, .Bottom - .Top)
End With

' Invalidate the control so that the whole thing will be redrawn since
' our custom painting routine could redraw the entire client area.
If hasUpdates Then _parentControl.Invalidate(r)

' Pass the message along to be handled by the default paint event.
MyBase.DefWndProc(m)

' Now draw extras over the existing control.
If hasUpdates Then Me.PaintExtras(r)

因此，如果 hasUpdates 为 False，您要做的就是退出例程。

就用于绘制的图形而言，我已经成功使用Graphics.FromHwnd(ctrl.Handle)