**************************************************************************
Dim maxDate As New Date(2016, 10, 10)
Me._imd01_3.DropDownCalendar.HolidayStyles.Add("PublicHolidays", holidayStyle)
holidayStyle.SubStyle = New SubStyle(Color.Black, Color.Red)
'注释掉下面这句。
'holidayStyle.Holidays.Add(New GrapeCity.Win.Editors.Holiday(10, 10))
holidayStyle.Holidays.Add(New GrapeCity.Win.Editors.ForceWorkday(maxDate))
Me._imd01_3.DropDownCalendar.ActiveHolidayStyles = New String() {"PublicHolidays"}
*************************************************************************************
拷贝粘贴大法,再试 |