16,721
社区成员
发帖
与我相关
我的任务
分享
Private Sub monthCalendar_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles monthCalendar.DateChanged
monthComboBox.SelectedIndex = monthCalendar.SelectionStart.Month - 1
End Sub
Public Class Form1
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
ComboBox1.SelectedIndex = MonthCalendar1.SelectionStart.Month - 1
End Sub
End Class