本帖最后由 qiang 于 2016-3-14 18:25 编辑
**************************************************************************
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"}
*************************************************************************************
这个是VBnet代码,我想指定2016.10.10变成红色,背景色是黑色,【_imd01_3】是我窗体上Inpuman Date控件的名字, 这样运行的还是每年都有。
|