vb.net - DateTimePicker 的 MonthCalendar 的日期未更新
问题描述
在启动时,我将 DateTimePicker Value 设置为 Minimum Date 值。当用户使用事件
单击 DateTimePicker 时,日期将更改为当前日期。
TextBox 更改为当前日期,但弹出的日历没有更新,仍然显示原始日期。MouseDown
Private Sub frm1_Load(sender As Object, e As EventArgs) Handles Me.Load
dtpReceiveDate.Value = clsCommon.NULL_DATE
End Sub
Private Sub dtpReceiveDate_MouseDown(sender As Object, e As MouseEventArgs) Handles dtpReceiveDate.MouseDown
dtpReceiveDate.Value = Today
End Sub
解决方案
MouseDown
在使用当前 DateTime 值更新 DateTimePicker 的 MonthCalendar 控件后引发该事件。
如果在打开 MonthCalendar 的 Button 上生成了 MouseDown 事件。
单击控件的日期部分不会导致打开 MonthCalendar。
我建议不要使用 MouseDown 事件来更新 DateTimePicker 的值,因为这将导致每次用户单击控件上的任何位置时重置日期。这可能会令人不安(这取决于你)。
您可以改用该DropDown
事件:仅当用户单击向下箭头按钮时才会引发该事件。
▶ 您不能将ValueChanged
事件与此处显示的代码一起使用:这可能会导致死锁(鉴于所涉及的 Win32 控件的性质和 SendMessage 的使用,它是可能传播到整个系统的死锁类型,所以,不要)。
DtpUpdateMonthCalendardDate()
此处的方法将DTM_GETMONTHCAL消息发送到作为参数传递的 DateTimePicker。
如果MonthCalendar 的Handle 获取成功,它会向MonthCalendar 控件发送一条MCM_SETCURSEL消息,以将其Date 与父DateTimePicker 的Date 对齐。
新的日期是使用用DateTimePicker 的值初始化的SYSTEMTIME结构传递的。
Private Sub dtpReceiveDate_DropDown(sender As Object, e As EventArgs) Handles dtpReceiveDate.DropDown
dtpReceiveDate.Value = Date.Today
' If result is False, something went wrong and the Date is not set
Dim result = DtpUpdateMonthCalendardDate(dtpReceiveDate)
End Sub
Private Function DtpUpdateMonthCalendardDate(dtp As DateTimePicker) As Boolean
If Not dtp.IsHandleCreated OrElse dtp.ShowUpDown Then Return False
Dim hWndCal = SendMessage(dtp.Handle, DTM_GETMONTHCAL, 0, 0)
If hWndCal = IntPtr.Zero Then Return False
Dim sysTime = New SYSTEMTIME(dtp.Value)
Return SendMessage(hWndCal, MCM_SETCURSEL, 0, sysTime) <> 0
End Function
Win32 声明:
Friend Const DTM_FIRST As Integer = &H1000
Friend Const DTM_GETMONTHCAL As Integer = DTM_FIRST + 8
Friend Const MCM_FIRST As Integer = &H1000
Friend Const MCM_GETCURSEL As Integer = MCM_FIRST + 1
Friend Const MCM_SETCURSEL As Integer = MCM_FIRST + 2
<StructLayout(LayoutKind.Sequential)>
Friend Structure SYSTEMTIME
Public Year As Short
Public Month As Short
Public DayOfWeek As Short
Public Day As Short
Public Hour As Short
Public Minute As Short
Public Second As Short
Public Milliseconds As Short
Public Sub New(dt As Date)
Year = CShort(dt.Year)
Month = CShort(dt.Month)
DayOfWeek = CShort(dt.DayOfWeek)
Day = CShort(dt.Day)
Hour = CShort(dt.Hour)
Minute = CShort(dt.Minute)
Second = CShort(dt.Second)
Milliseconds = CShort(dt.Millisecond)
End Sub
Public Function ToDateTime() As Date
Return New DateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds)
End Function
End Structure
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Friend Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As IntPtr
End Function
<DllImport("User32", SetLastError:=True, CharSet:=CharSet.Auto)>
Friend Shared Function SendMessage(hWnd As IntPtr, msg As Integer, wParam As Integer, lParam As SYSTEMTIME) As Integer
End Function
推荐阅读
- ruby-on-rails - 如何在单个文件上运行 rdoc 而不会覆盖所有其他文件?
- java - 使用上拉刷新时 Android Studio 中的 ScrollView
- python - 如何在 Python 中将字典拆分为迭代器对象
- asp.net-mvc - TempData 在发布到 Azure 时不起作用
- vba - VBA:将一个集合附加到另一个集合上,例如 VB.NET 中的“.AddRange”
- cassandra - 为什么即使指定了主键,Cassandra 也不允许对没有二级索引的列进行查询/过滤
- macros - 如何为所有数值变量设置缺失值
- docker - Docker:如何获取现有容器的完整容器 ID?
- atom-editor - Atom 编辑器中的 Atom Beautify 包快捷方式/热键不起作用
- sql-server - SQL 删除查询。100000 行要删除