vb.net - 如何在我的应用程序中显示月份选择日历

Question

我有兴趣以与日期选择器的月份选择控件类似的方式显示 12 个月的列表。但我也不喜欢显示日期选择器来显示该月的日期...只有月 View 可以，这样我就可以从列表中选择月份。

我想要的输出:

Answer 1

这将需要一些 pinvoke 来发送消息以使日历切换 View 。像这样实现 DateTimePicker 的 DropDown 事件处理程序:

    private void dateTimePicker1_DropDown(object sender, EventArgs e) {
        IntPtr cal = SendMessage(dateTimePicker1.Handle, DTM_GETMONTHCAL, IntPtr.Zero, IntPtr.Zero);
        SendMessage(cal, MCM_SETCURRENTVIEW, IntPtr.Zero, (IntPtr)1);
    }

    // pinvoke:
    private const int DTM_GETMONTHCAL = 0x1000 + 8;
    private const int MCM_SETCURRENTVIEW = 0x1000 + 32;

    [System.Runtime.InteropServices.DllImport("user32.dll")]
    private static extern IntPtr SendMessage(IntPtr hWnd, int msg, IntPtr wp, IntPtr lp);

View 切换是动画的，用户可以看到。这不适用于 Vista 之前的 Windows 版本。如有必要，请使用在线翻译器将此 C# 代码翻译为 VB.NET