在VB.net中获取DateTimePicker的月份单击
发布时间:2020-12-17 07:11:03 所属栏目:百科 来源:网络整理
导读:如何检查DateTimePicker的月份箭头单击事件.当我试图更改datetimepicker的月份时,它会给出下个月的第一个日期,所以我要阻止那个月点击. 请看图片: 非常感谢. 解决方法 混合使用CloseUp和DropDown事件以及绑定数据可能是解决方案 Imports System.Windows.For
如何检查DateTimePicker的月份箭头单击事件.当我试图更改datetimepicker的月份时,它会给出下个月的第一个日期,所以我要阻止那个月点击.
请看图片: 非常感谢. 解决方法
混合使用CloseUp和DropDown事件以及绑定数据可能是解决方案
Imports System.Windows.Forms Namespace WindowsFormsApplication1 Public Partial Class Form1 Inherits Form Private isDropedDown As Boolean Private m_dataSale As DateTime = DateTime.Now Public Property DataSale() As DateTime Get Return m_dataSale End Get Set If isDropedDown Then If m_dataSale.[Date].AddMonths(1).[Date] = value.[Date] OrElse m_dataSale.[Date].AddMonths(-1).[Date] = value.[Date] OrElse New DateTime(m_dataSale.Year,m_dataSale.Month,1).AddMonths(1).[Date] = value.[Date] OrElse New DateTime(m_dataSale.Year,1).AddMonths(-1).[Date] = value.[Date] Then MessageBox.Show("Month is changing") End If End If m_dataSale = value End Set End Property Public Sub New() InitializeComponent() Dim binding = dateTimePicker1.DataBindings.Add("Value",Me,"DataSale") binding.DataSourceUpdateMode = DataSourceUpdateMode.OnPropertyChanged End Sub Private Sub dateTimePicker1_CloseUp(sender As Object,e As EventArgs) isDropedDown = False End Sub Private Sub dateTimePicker1_DropDown(sender As Object,e As EventArgs) isDropedDown = True End Sub End Class End Namespace (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |