Datetimepicker vb.net의 월간 클릭

Question

DateTimePicker의 달 화살표 클릭 이벤트를 확인하려면 어떻게해야합니까? datetimepicker의 달을 변경하려고 할 때 그 다음 달의 첫 번째 날짜를 제공하므로 그 달 클릭을 방지해야합니다.

이미지가

감사를 많이 참조하십시오.

Answer 1

근접 촬영 드롭 이벤트의 사용을 혼합 및 데이터 바인딩 솔루션

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, m_dataSale.Month, 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