DateTimePicker 和 UserPaint...文本和按钮丢失

Question

我有一个 DateTimePicker，我“动态”分配 Paint-Event，不幸的是，只要分配了此事件，文本和 DropDown-Button 都不会呈现（但正在工作）。

我编写了一个组件，它接受另一个控件并在其上绘制一些内容。

Public Sub New(Byval parent As Control)
    Me._parent = parent
    Me._setStyle = Me._parent.GetType().GetMethod("SetStyle", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
    Me._setStyle.Invoke(Me._parent, New Object() {ControlStyles.UserPaint, True})
    Me._setStyle.Invoke(Me._parent, New Object() {ControlStyles.OptimizedDoubleBuffer, True})

    AddHandler Me._parent.Paint, AddressOf RemotePaintHandler
End Sub

Private Sub RemotePaintHandler(ByVal sender As Object, ByVal e As PaintEventArgs)
    'draw something here'
End Sub

在处理该组件时，我将删除处理程序并重置样式。但只要分配了处理程序，DateTimePicker 就会像普通的文本框一样呈现，没有内容，但按钮正在工作，我也可以输入值。如果我覆盖了 OnPaint() 方法，我只需调用 MyBase.OnPaint() 或类似方法...但这是一个事件处理程序...我现在在这里完全无能为力。

Answer 1

DateTimePicker 没有 OnPaint 方法来绘制自身。它实际上是 Windows 控件 SysDateTimePick32 的包装，因此当您设置 UserPaint = true 时，控件（真正的控件）不再绘制自身，并且只有您的绘图。

您可以继承DateTimePicker，重写WndProc，通过执行Paint事件订阅者来响应WM_PAINT消息。这里有一个例子：

Public Class DTP
    Inherits DateTimePicker

    ' Events '
    Public Event Paint2 As PaintEventHandler

    ' Methods '
    Protected Overrides Sub WndProc(ByRef m As Message)

        MyBase.WndProc((m))

        If ((m.Msg = &HF) AndAlso (Not Me.Paint2 Is Nothing)) Then

            Dim g As Graphics = MyBase.CreateGraphics
            Me.Paint2.Invoke(Me, New PaintEventArgs( _
                                       g, _
                                       Rectangle.Round(g.VisibleClipBounds) _
                                     ) _
                            )
        End If

    End Sub

End Class

然后使用这个新控件代替常规的 DateTimePicker &订阅它的 Paint2 事件来绘制您需要的内容：

（您不需要设置 UserPaint = True，您无论如何都会捕获 WM_PAINT） >

Public Sub New(Byval parent As Control)
    Me._parent = parent
    Me._setStyle = Me._parent.GetType().GetMethod("SetStyle", _
                               Reflection.BindingFlags.Instance _
                               Or Reflection.BindingFlags.NonPublic)
    'Me._setStyle.Invoke(Me._parent, New Object(){ControlStyles.UserPaint,True})'
    Me._setStyle.Invoke(Me._parent,  _
                        New Object() {ControlStyles.OptimizedDoubleBuffer, True})

    AddHandler Me._parent.Paint2, AddressOf RemotePaintHandler
End Sub

Private Sub RemotePaintHandler(ByVal sender As Object, ByVal e As PaintEventArgs)
    'draw something here'
End Sub

希望这有帮助，

Answer 2

我想出了一些办法。看来 UserPaint 发生在底层控件中，而不是在 DateTimePicker 本身中，导致它呈现错误。只要设置了 Style UserPaint，就会发生这种情况。

一种解决方法是让它在 Paint-Event 中正确渲染...我担心这并不容易，但可能：

Private Sub RemotePaintHandler(ByVal sender As Object, ByVal e As PaintEventArgs)
    RemoveHandler Me._parent.Paint, AddressOf RemotePaintHandler
    Me._setStyle.Invoke(Me._parent, New Object() {ControlStyles.UserPaint, False})

    Me._parent.Refresh()
    ' now draw something '

    Me._setStyle.Invoke(Me._parent, New Object() {ControlStyles.UserPaint, True})
    AddHandler Me._parent.Paint, AddressOf RemotePaintHandler
End Sub

我们删除 Paint-Event 的处理程序和样式，刷新控件（'导致它正确渲染） ），然后在新渲染的控件之上绘制我们的东西，并重新添加样式和 Paint-Eventhandler。
缺点是，当有人输入一些信息时，我们绘制的所有内容都会消失（如果您使用日历框，它就在那里），并且在 some_one_ 刷新控件之前可能不会回来。所以这似乎是一个丑陋的黑客，然后是一个真正的解决方法，甚至是一个解决方案[1]。

不过，我只使用 DateTimePicker 对此进行了测试，并且不知道这是否也适用于其他控件（但看起来是这样）。

[1]我的意思是，我知道解决方案，在框架内重写控件...