VB.NET中如何让Datetimepicker仅支持年月选择而非日期？

方法一：自定义格式+限制日期选择范围 #

这是最常用的轻量实现方式，无需额外控件，仅通过属性设置和事件处理即可达成需求：

1. 设置显示格式
   在设计器或代码中，将DateTimePicker的Format属性设为Custom，CustomFormat设为"yyyy-MM"（也可根据需求改为"yyyy年MM月"这类中文格式），控件显示内容就只会保留年月。

2. 处理下拉与关闭事件，锁定日期范围
   当用户点击下拉箭头时，把内部日历的可选日期限制在当前选中月份内；关闭下拉后，自动将选中值修正为当月第一天，确保显示的年月准确。

   VB.NET代码示例：

   Private Sub DateTimePicker1_DropDown(sender As Object, e As EventArgs) Handles DateTimePicker1.DropDown
       ' 获取当前选中年月的当月第一天
       Dim currentMonthFirstDay As Date = New Date(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)
       ' 限制日历可选范围为当月
       DateTimePicker1.MinDate = currentMonthFirstDay
       DateTimePicker1.MaxDate = currentMonthFirstDay.AddMonths(1).AddDays(-1)
   End Sub
   
   Private Sub DateTimePicker1_CloseUp(sender As Object, e As EventArgs) Handles DateTimePicker1.CloseUp
       ' 重置选中值为当月第一天
       DateTimePicker1.Value = New Date(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)
       ' 恢复全局日期限制（可选，根据业务需求调整）
       DateTimePicker1.MinDate = Date.MinValue
       DateTimePicker1.MaxDate = Date.MaxValue
   End Sub
   

方法二：通过Windows API隐藏日期选择区域 #

如果希望下拉时完全看不到具体日期选项，仅保留年月切换栏，可以通过Windows API修改内部日历控件的显示状态：

1. 先声明所需API函数：

   Private Const MCM_FIRST As Integer = &H1000
   Private Const MCM_SETMONTHDAYSTATE As Integer = MCM_FIRST + 8
   Private Const DTM_GETMONTHCAL As Integer = &H100F
   
   <DllImport("user32.dll", CharSet:=CharSet.Auto)>
   Private Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
   End Function
   
   Private Function GetMonthCalendarHandle(dtp As DateTimePicker) As IntPtr
       ' 获取DateTimePicker内部MonthCalendar控件的句柄
       Return SendMessage(dtp.Handle, DTM_GETMONTHCAL, IntPtr.Zero, IntPtr.Zero)
   End Function
   

2. 处理DropDown事件，隐藏所有日期：

   Private Sub DateTimePicker1_DropDown(sender As Object, e As EventArgs) Handles DateTimePicker1.DropDown
       Dim mcHandle As IntPtr = GetMonthCalendarHandle(DateTimePicker1)
       If mcHandle <> IntPtr.Zero Then
           ' 创建状态数组，标记所有日期为不可见
           Dim dayStates(59) As Byte
           Array.Fill(dayStates, CByte(&H80)) ' 0x80代表日期隐藏
           SendMessage(mcHandle, MCM_SETMONTHDAYSTATE, IntPtr.Zero, Marshal.UnsafeAddrOfPinnedArrayElement(dayStates, 0))
       End If
   End Sub
   

   这种方式下拉后只会显示年月选择栏，用户只能通过点击月份、年份来切换，完全屏蔽日期选择操作，体验更贴合纯年月选择的需求。

注意事项 #

• 方法一无需依赖API，兼容性更好；方法二更直观，但需要处理API调用的细节，适合对交互体验要求更高的场景。
• 若要支持年份快速切换，确保DateTimePicker的ShowUpDown属性设为False，保留下拉日历的年份选择功能即可。

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