VB.NET WinForms DateTimePicker基类按键事件无响应问题求助

DateTimePicker控件的内部编辑区域由隐藏子控件负责处理输入，直接重写OnKeyUp、OnKeyDown等方法无法捕获按键事件。要在子类中实现按键逻辑，需重写WndProc方法拦截Windows消息，修改后的类代码如下：

Class mydtp
    Inherits DateTimePicker

    Protected Overrides Sub OnCreateControl()
        MyBase.OnCreateControl()
        Me.Format = DateTimePickerFormat.Custom
        Me.CustomFormat = "--/--/----"
        Me.Value = New DateTime(1900, 1, 1)  ' 直接用DateTime构造函数，避免字符串转换异常
    End Sub

    Protected Overrides Sub WndProc(ByRef m As Message)
        ' 拦截WM_KEYUP消息（消息码：&H101）
        If m.Msg = &H101 Then
            Dim keyCode As Keys = CType(m.WParam, Keys)
            Select Case keyCode
                Case Keys.Delete
                    Me.CustomFormat = "--/--/----"
                    Me.Value = New DateTime(1900, 1, 1)
                    ' 标记消息已处理，避免基类重复处理
                    m.Result = IntPtr.Zero
                    Return
                Case Keys.Space
                    Me.CustomFormat = "d"  ' 对应Short格式的自定义格式字符串
                    Me.Value = DateTime.Now
                    m.Result = IntPtr.Zero
                    Return
            End Select
        End If
        ' 未处理的消息交给基类处理
        MyBase.WndProc(m)
    End Sub

End Class

补充说明： #

• 用DateTime(1900,1,1)替代字符串赋值，规避类型转换可能引发的异常。
• 通过WM_KEYUP消息（&H101）捕获按键操作，确保逻辑能被触发。
• 处理完按键后设置m.Result = IntPtr.Zero并返回，防止基类重复响应该消息。
• 若需添加其他按键逻辑，直接在Select Case中补充对应Keys枚举值即可。

修改后，自定义DateTimePicker可正常响应Delete和Space按键，同时满足基类封装核心逻辑、窗体仅设置MinDate/MaxDate的需求。

内容的提问来源于stack exchange，提问作者Graham