ドロップダウンカレンダーを表示するには、次の方法があります。

• ドロップダウンボタンをクリック
• キーボードで［Alt＋↓］キーまたは［F4］キーを押下
• ドロップダウンに割りつけられたショートカットキーを押下

ドロップダウンボタンでドロップダウンカレンダーを表示する場合は、DropDownInfo オブジェクトのIsDefaultBehavior プロパティがTrueに設定されていることが必要です。詳細は、サイドボタンを参照してください。

サンプルコード

次のサンプル コードは、GcDateTimeセルにドロップダウンボタンを設定する方法です。

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// GcDateTimeセルにドロップダウンボタンを追加
InputManCell.GcDateTimeCellType gdt = new InputManCell.GcDateTimeCellType();
gdt.SideButtons.Add(new InputManCell.DropDownButtonInfo());
fpSpread1.ActiveSheet.Cells[0, 0].CellType = gdt;

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

' GcDateTimeセルにドロップダウンボタンを追加
Dim gdt As New InputManCell.GcDateTimeCellType
gdt.SideButtons.Add(New InputManCell.DropDownButtonInfo())
FpSpread1.ActiveSheet.Cells(0, 0).CellType = gdt

カレンダーの最初の列に表示する曜日は、FirstDayOfWeek プロパティで設定します。通常のカレンダーでは、日曜日または月曜日が最初の列に表示されます。なお、デフォルトでは、週の開始曜日はシステムから取得されます。

12か月分のカレンダーを表示している場合に、左上に配置する最初の月は、FirstMonthInView プロパティで設定します。FirstMonthInView プロパティをMonths.Default以外に設定すると、指定した月が左上に表示されます。ナビゲータのスキップボタンをクリックするか、またはマウスでドラッグすると、ScrollRate プロパティの設定にかかわらず、常に１回の操作につき１年分のカレンダーがスクロールされます。コントロール内に表示される最初の月はどんな場合にも変更されません。

カレンダーに表示する日付の最小値と最大値は、MinDate プロパティとMaxDate プロパティで設定します。この最小値と最大値を超える日付には、フォーカスを移動することはできません。

ドロップダウンカレンダーの休日設定は、HolidayStyles プロパティが参照するHolidayStyleCollection を初めとする下図のオブジェクト（着色された９つ）を使って行います。

HolidayStyleCollection コレクションには、複数の休日スタイル（複数の休日からなる集合体）を保持できます。たとえば、「国民の祝日」、「会社の休日」、「個人の休日」などを休日スタイルとして登録することで、休日を種類ごとに管理できるようになります。

休日スタイルを設定するHolidayStyle オブジェクトは、そのHolidays プロパティを経由して、複数の休日を保持するHolidayCollection にアクセスします。たとえば、「国民の祝日」と名づけた休日スタイルが参照するHolidayCollection には、「1月1日、1月15日、2月11日、・・・」などの休日が含まれることになります。

Holiday オブジェクトは、休日そのものを指定するために用意されています。国民の祝日のように１日だけの休日のほかに、会社の夏期休暇などのように期間を指定した休日も設定できます。

DayOfWeekHoliday オブジェクトもHoliday オブジェクト同様、休日そのものを指定するために用意されています。Holiday オブジェクトとの違いは、ハッピーマンデーと呼ばれる成人の日、海の日、敬老の日、体育の日のように特定の月において特定の週の月曜日が祝日になるような場合に使用することができます。

ForceHoliday オブジェクトは、Holiday オブジェクトと同じように休日を指定するためのものですが、Holiday オブジェクトの休日は毎年繰り返される永続的なものなのに対し、ForceHoliday オブジェクトの休日は特定の年にだけ適用される一時的なものという違いがあります。

ForceWorkday オブジェクトは、Holiday オブジェクトの設定に関わらず、特定の日を強制的に営業日にするときに使用します。この営業日も、ForceHoliday オブジェクトの休日と同じように、特定の年に対してのみ設定することができます。

ForceDayOfWeekHoliday オブジェクトは、ForceHoliday オブジェクトと同様に特定の年にだけ適用される一時的な休日を設定しますが、特定の月、週、曜日が休日になるような場合に使用することができます。

ForceDayOfWeekWorkday オブジェクトは、ForceWorkday オブジェクトと同様に特定の日を強制的に営業日にするときに使用しますが、特定の月、週、曜日が営業日になるような場合に使用することができます。

休日スタイルは、HolidayStyle オブジェクトを使って設定します。HolidayStyle オブジェクトには、次の３つのプロパティが用意されており、これらを使って、休日スタイルに含まれているすべての休日の属性を設定することができます。

サンプルコード

次のサンプルコードは、HolidayStyleクラスのインスタンスを作成し、クラスのプロパティを設定します。

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// 休日スタイルを生成します。
InputManCell.HolidayStyle aHS = new InputManCell.HolidayStyle();
aHS.Name = "国民の祝日";
aHS.SubStyle = new InputManCell.SubStyle(Color.White, Color.Red, true, false);
aHS.Holidays.Add(new InputManCell.Holiday("誕生日", 10, 1));

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

' 休日スタイルを生成します。
Dim aHS As InputManCell.HolidayStyle = New InputManCell.HolidayStyle()
aHS.Name = "国民の祝日"
aHS.SubStyle = New InputManCell.SubStyle(Color.White, Color.Red, True, False)
aHS.Holidays.Add(New InputManCell.Holiday("誕生日", 10, 1))

休日は、Holiday オブジェクトで設定します。Holiday オブジェクトは、HolidayStyle オブジェクトのHolidays プロパティが参照するHolidayCollection に保持されます。このHoliday オブジェクトは、次の５つの基本属性（プロパティ）を持っています。

Name プロパティには、休日を識別するための名前を設定し、StartMonthとStartDayの２つのプロパティには休日の開始日を、また、EndMonthとEndDayの各プロパティには休日の終了日を指定します。

サンプルコード

// 休日を追加します。
aHS.Holidays.Add(new InputManCell.Holiday("新婚旅行", 6, 28, 7, 12));

' 休日を追加します。
aHS.Holidays.Add(New InputManCell.Holiday("新婚旅行", 6, 28, 7, 12))

また、ハッピーマンデーと呼ばれる特定の月、週、曜日を指定して設定する休日は、DayOfWeekHoliday オブジェクトで設定します。このDayOfWeekHoliday オブジェクトは、次の基本属性（プロパティ）を持っています。

Name プロパティには、休日を識別するための名前を設定し、Monthには休日を設定する月、DayOfWeekInMonthには週、DayOfWeekには曜日を指定します。

サンプルコード

// 成人の日を追加します。
aHS.Holidays.Add(new InputManCell.DayOfWeekHoliday("成人の日",InputManCell.MonthFlags.January, InputManCell.DayOfWeekInMonthFlags.Second, InputManCell.DayOfWeekFlags.Monday));

' 成人の日を追加します。
aHS.Holidays.Add(New InputManCell.DayOfWeekHoliday("成人の日",InputManCell.MonthFlags.January, InputManCell.DayOfWeekInMonthFlags.Second, InputManCell.DayOfWeekFlags.Monday))

休日スタイルは、HolidayStyleCollection に登録して初めて有効になります。さらに、このHolidayStyleCollection には、複数の休日スタイルが登録されるので、どの休日スタイルをカレンダーに適用するかも指定する必要があります。

HolidayStyleCollection への登録は、ドロップダウンカレンダーのHolidayStyles プロパティを経由して行います。また、休日スタイルをカレンダーに適用するには、ドロップダウンカレンダーのActiveHolidayStyles プロパティを使います。

実行時に、ドロップダウンカレンダーを右クリックすると、HolidayStyle オブジェクトのName プロパティに設定されている休日スタイル名のリストが表示されます。さらに、リストの各項目をクリックすると、それぞれの休日スタイルの有効と無効を切り替えることができます。

サンプルコード

// コレクションに登録します。
gdt.DropDownCalendar.HolidayStyles.Add("個人の休日", aHS);
// カレンダーに反映させます。
gdt.DropDownCalendar.ActiveHolidayStyles = new string[] {"個人の休日"};

' コレクションに登録します。
gdt.DropDownCalendar.HolidayStyles.Add("個人の休日", aHS)
' カレンダーに反映させます。
gdt.DropDownCalendar.ActiveHolidayStyles = New string() {"個人の休日"}

上記の「休日の追加」での説明では、新婚旅行をHoliday オブジェクトに設定しましたが、これは適切ではありませんでした。通常、新婚旅行は、毎年繰り返されるものではなく、特定の年だけに行われるものです。

このように、特定の年にしか適用できないものや、年によって日付が異なるものについては、Holiday オブジェクトではなくForceHoliday オブジェクトを使用します。下のサンプルコードでは、次の祝日をForceHoliday オブジェクトを使って登録しています。

• 成人の日
• 体育の日
• 春分の日
• 秋分の日

また、Holiday オブジェクトで設定された休日にも関わらず、その年だけは営業日になるということもあります。このような場合、ForceWorkday オブジェクトを使うことで、Holiday オブジェクトを削除することなく、臨時に営業日に設定することが可能です。

以下は、休日スタイルの生成で設定した誕生日（10月1日）を2012年に限って臨時営業日（仕事）にし、翌日を臨時休日（代休）に設定する例です。

サンプルコード

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// 2012年10月1日を臨時営業日（仕事）に設定します。
DateTime aDateA = DateTime.Parse("2012/10/1");
gdt.DropDownCalendar.HolidayStyles["個人の休日"].Holidays.Add(new InputManCell.ForceWorkday("仕事", aDateA));
// 2012年10月2日を臨時休日（代休）に設定します。
DateTime aDateB = DateTime.Parse("2012/10/2");
gdt.DropDownCalendar.HolidayStyles["個人の休日"].Holidays.Add(new InputManCell.ForceHoliday("代休", aDateB));

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

' 2012年10月1日を臨時営業日（仕事）に設定します。
Dim aDateA As DateTime = DateTime.Parse("2012/10/1")
gdt.DropDownCalendar.HolidayStyles("個人の休日").Holidays.Add(New InputManCell.ForceWorkday("仕事", aDateA))
' 2012年10月2日を臨時休日（代休）に設定します。
Dim aDateB As DateTime = DateTime.Parse("2012/10/2")
gdt.DropDownCalendar.HolidayStyles("個人の休日").Holidays.Add(New InputManCell.ForceHoliday("代休", aDateB))

国民の祝日が日曜日に重なったとき、翌日を休日にするという気が利いたシステムに対応して、ドロップダウンカレンダーには、この振替休日を自動的に設定する機能があります。

振替休日は、HolidayCollection のWeekdays プロパティを経由してDayOfWeekHolidayPolicy 構造体にアクセスすることで、設定できます。以下にその例を示します。

サンプルコード

Using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

aHS.Holidays.Weekdays.Sunday = new InputManCell.DayOfWeekHolidayPolicy(
InputManCell.WeekFlags.All, InputManCell.HolidayOverride.NextWorkDay);

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

aHS.Holidays.Weekdays.Sunday = New InputManCell.DayOfWeekHolidayPolicy( _
InputManCell.WeekFlags.All, InputManCell.HolidayOverride.NextWorkDay)

ドロップダウンカレンダーでは、カレンダー上に表示された休日が、休日そのものか振替休日かを示すためにツールチップ機能が用意されています。

カレンダー上の振替休日にマウスカーソルが位置したときに表示するツールチップをOverrideTipText プロパティで設定できます。また、ツールチップを表示するタイミングは、TipInterval プロパティで指定します。

HolidayCollection のIsHoliday メソッドを使うと、特定の日付が休日（営業日でない日）に設定されているかどうかを確認することができます。IsHoliday メソッドがTrueを戻すのは、以下の３種類の日です。

• 臨時営業日でない休日
• 臨時休日
• 休業日

また、HolidayCollection のGetTypeOfDay メソッドを使うと、指定した日付が次のどれに該当するかを簡単に調べられます。

以下は、GetTypeOfDay メソッドを使って日付の種類を調べるプログラムの例です。

サンプルコード

using System.Diagnostics;
using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// 対象の日付を設定します。
DateTime aDate = DateTime.Parse("2012/10/01");
// 日付の種類を調べます。
InputManCell.HolidayStyle aHS = gdt.DropDownCalendar.HolidayStyles[gdt.DropDownCalendar.ActiveHolidayStyles[0]];
object dayInCollection;
Debug.WriteLine(aHS.Holidays.GetTypeOfDay(aDate, out dayInCollection).ToString());
// 休日、臨時休日、臨時営業日の場合は、その名称を調べます。
if (dayInCollection != null)
{
  Debug.WriteLine(((InputManCell.IHoliday)dayInCollection).Name);
}

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType
' 対象の日付を設定します。
Dim aDate As DateTime = DateTime.Parse("2012/10/01")
' 日付の種類を調べます。
Dim aHS As InputManCell.HolidayStyle = gdt.DropDownCalendar.HolidayStyles(gdt.DropDownCalendar.ActiveHolidayStyles(0))
Dim dayInCollection As Object
Debug.WriteLine(aHS.Holidays.GetTypeOfDay(aDate, dayInCollection).ToString())
' 休日、臨時休日、臨時営業日の場合は、その名称を調べます。
If Not IsNothing(dayInCollection) Then
  Debug.WriteLine(CType(dayInCollection, InputManCell.IHoliday).Name)
End If

さらに、IHolidayインタフェースを持つ３つのオブジェクト（Holiday、ForceHoliday、ForceWorkday）のIsHoliday メソッドとIsYearly プロパティを調べることで、臨時営業日の内容を判別することができます。

言葉だけをみると、表の中の「通常は臨時休日（臨時休日を臨時営業日に設定する）」は無意味ですが、「臨時休日」には毎年変化する祝日（成人の日、体育の日、春分の日、秋分の日）なども含まれます。そのため、ドロップダウンカレンダー内では意味のある設定になります。

以下は、上の表を使って日付を判別するプログラムの例です。少なくとも１つのHolidayStyleが設定されていることを前提にしています。また、休日、臨時休日、および休業日なども事前に設定しておく必要があります。

サンプルコード

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// チェック用の変数
int checkValue = 0;
// 対象の日付を設定します。
DateTime aDate = DateTime.Parse("2012/10/01");
// 各オブジェクトのIsHoliday メソッドがTrueを返したときに、
// IsYearlyプロパティを調べます。
InputManCell.HolidayStyle aHS = gdt.DropDownCalendar.HolidayStyles[gdt.DropDownCalendar.ActiveHolidayStyles[0]];
foreach (InputManCell.IHoliday item in aHS.Holidays)
{
    if (item.IsHoliday(aDate))
    {
        checkValue += 1;
        if (item.IsYearly) checkValue += 3;
    }
}
// 調べた結果を表示します。
switch (checkValue)
{
    case 1:
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休業日");
        break;
    case 2:
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は臨時休日");
        break;
    case 5:
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休日");
        break;
}

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType
' チェック用の変数
Dim checkValue As Integer = 0
' 対象の日付を設定します。
Dim aDate As DateTime = DateTime.Parse("2012/10/01")
' 各オブジェクトのIsHoliday メソッドがTrueを返したときに、
' IsYearlyプロパティを調べます。
Dim aHS As InputManCell.HolidayStyle = gdt.DropDownCalendar.HolidayStyles(gdt.DropDownCalendar.ActiveHolidayStyles(0))
Dim item As InputManCell.IHoliday
For Each item In aHS.Holidays
    If item.IsHoliday(aDate) Then
        checkValue += 1
        If item.IsYearly Then checkValue += 3
    End If
Next
' 調べた結果を表示します。
Select checkValue
    Case 1
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休業日")
    Case 2
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は臨時休日")
    Case 5
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休日")
End Select