Imports GrapeCity.Web.Input.Core
Imports GrapeCity.Web.IMCalendar
' 日付の選択モードを複数選択に設定します。
GcCalendar1.SelectionMode = SelectionMode.MultiSimple
GcCalendar1.MaxSelectionCount = 31
' カレントの年を取得します。
Dim aYear As Integer = GcCalendar1.FocusDate.Year
' カレントの月を取得します。
Dim aMonth As Integer = GcCalendar1.FocusDate.Month
' 翌月1日の日付を取得します。
Dim firstDay As DateTime = New DateTime(aYear, aMonth + 1, 1)
' カレント月の最終日を取得します。
Dim maxDay As Integer = firstDay.AddDays(-1).Day
' カレント月の1日から最終日までをコレクションに追加します。
Dim i As Integer
For i = 1 To maxDay
Dim dt As DateTime = New DateTime(aYear, aMonth, i)
GcCalendar1.Selections.Add(New DateTimeEx(dt))
Next i
using GrapeCity.Web.Input.Core;
using GrapeCity.Web.IMCalendar;
// 日付の選択モードを複数選択に設定します。
GcCalendar1.SelectionMode = SelectionMode.MultiSimple;
GcCalendar1.MaxSelectionCount = 31;
// カレントの年を取得します。
int aYear = GcCalendar1.FocusDate.Year;
// カレントの月を取得します。
int aMonth = GcCalendar1.FocusDate.Month;
// 翌月1日の日付を取得します。
DateTime firstDay = new DateTime(aYear,aMonth + 1,1);
// カレント月の最終日を取得します。
int maxDay = firstDay.AddDays(-1).Day;
// カレント月の1日から最終日までをコレクションに追加します。
for (int i=1;i <= maxDay;i++)
{
DateTime dt = new DateTime(aYear, aMonth, i);
GcCalendar1.Selections.Add(new DateTimeEx(dt));
}