カレンダーコントロール

プロパティ	メソッド	イベント	定数

キー操作	祝日の初期設定

ファイル名

KnCalendar.ocx

クラス名

KnCalendar

解説

カレンダーコントロールは、月間表示型のカレンダーです。

特徴

・	休祝日を自由に設定できます。これらの日付を他の日付と異なるカラーで表示できます。

・	日付ごとにメモ文字列を設定することができます。

・	背景に画像を貼り付けることができます。

・	日付枠の表示を、シンプルなものから３Ｄまで用途に合わせてカスタマイズできます。

・	データベースと連携して動作することができます。

・	春分の日と秋分の日を計算によって求めます。

・	振替休日や閏年を調べることができます。

・	ハッピーマンデーに対応しています。昭和23年7月20日以降に施行された日本の法定休日を正しく表示します。

・	Microsoft Internet Explorer 4.0x上で利用することができます。

イメージ


休祝日の初期設定

カレンダー コントロールには、初期設定の時点で以下の日本の法定休日が設定されています。

施行日EnforceDate	有効期限ExpiryDate	定義	振替	名前

(西暦)	(元号)	(西暦)	(元号)

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	1月1日	×	元日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	1月15日	×	成人の日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	(春分日)	×	春分の日

1948 / 07 / 20	昭和23年07月20日	1989 / 02 / 16	平成01年02月16日	4月29日	×	天皇誕生日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	5月3日	×	憲法記念日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	5月5日	×	こどもの日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	(秋分日)	×	秋分の日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	11月3日	×	文化の日

1948 / 07 / 20	昭和23年07月20日	1973 / 04 / 11	昭和48年04月11日	11月23日	×	勤労感謝の日

1966 / 06 / 25	昭和41年06月25日	1973 / 04 / 11	昭和48年04月11日	2月11日	×	建国記念の日

1966 / 06 / 25	昭和41年06月25日	1973 / 04 / 11	昭和48年04月11日	9月15日	×	敬老の日

1966 / 06 / 25	昭和41年06月25日	1973 / 04 / 11	昭和48年04月11日	10月10日	×	体育の日

1973 / 04 / 12	昭和48年04月12日	-	-	1月1日	○	元日

1973 / 04 / 12	昭和48年04月12日	1999 / 12 / 31	平成11年12月31日	1月15日	○	成人の日

1973 / 04 / 12	昭和48年04月12日	-	-	2月11日	○	建国記念の日

1973 / 04 / 12	昭和48年04月12日	-	-	(春分日)	○	春分の日

1973 / 04 / 12	昭和48年04月12日	1989 / 02 / 16	平成01年02月16日	4月29日	○	天皇誕生日

1973 / 04 / 12	昭和48年04月12日	-	-	5月3日	○	憲法記念日

1973 / 04 / 12	昭和48年04月12日	-	-	5月5日	○	こどもの日

1973 / 04 / 12	昭和48年04月12日	2002/ 12 / 31	平成14年12月31日	9月15日	○	敬老の日

1973 / 04 / 12	昭和48年04月12日	-	-	(秋分日)	○	秋分の日

1973 / 04 / 12	昭和48年04月12日	1999 / 12 / 31	平成11年12月31日	10月10日	○	体育の日

1973 / 04 / 12	昭和48年04月12日	-	-	11月3日	○	文化の日

1973 / 04 / 12	昭和48年04月12日	-	-	11月23日	○	勤労感謝の日

1985 / 12 / 27	昭和60年12月27日	-	-	(国民の休日)	×	国民の休日

1989 / 02 / 17	平成01年02月17日	-	-	4月29日	○	みどりの日

1989 / 02 / 17	平成01年02月17日	-	-	12月23日	○	天皇誕生日

1996 / 01 / 01	平成08年01月01日	2002/ 12 / 31	平成14年12月31日	7月20日	○	海の日

2000 / 01 / 01	平成12年01月01日	-	-	1月の第2月曜日	○	成人の日

2000 / 01 / 01	平成12年01月01日	-	-	10月の第2月曜日	○	体育の日

2003 / 01 / 01	平成15年01月01日	-	-	7月の第3月曜日	○	海の日

2003 / 01 / 01	平成15年01月01日	-	-	9月の第3月曜日	○	敬老の日


プロパティ一覧

Appearance	ウィンドウ境界線の表示スタイル

AutumnalEquinox	秋分点の日付と時刻

BackColor	カレンダー全体の背景色

BorderStyle	ウィンドウ境界線の種類

Caption	カレンダー下部に表示する文字列

DatePosition	カーソル位置の日付

DayFillColorA	日付枠の背景色Ａ

DayFillColorB	日付枠の背景色Ｂ

DayFormat	日付の表示フォーマット

Enabled	ユーザー操作の有効化／無効化フラグ

Font	年･月表示とキャプションの表示フォント

ForeColor	年、月、キャプション文字列の表示色

GridColorBR	日付枠の右辺と下辺の色

GridColorTL	日付枠の左辺と上辺の色

GridFillPattern	日付枠の背景色Ａ，Ｂの配置パターン

GridLine	日付枠の表示の有無

GridSpace	隣り合う日付枠どうしの隙間の間隔

InitialDate	起動直後に表示する日付の指定

MemoFont	メモの表示フォント

MonthFormat	月の表示フォーマット

NumberFont	日付の表示フォント

OnlyThisMonth	前月・次月への移動の有効化／無効化フラグ

Picture	カレンダー全体の背景に表示するピクチャ

PictureLayout	背景に表示するピクチャのレイアウト

SaturdayColor	土曜日の表示色

ShowCursor	日付カーソルの表示の有無

ShowToolTip	日付メモのツールヒント表示の有無

ShowYearMonth	年・月の表示の有無

SpecialHolidayColor	個人祝日の表示色

SundayColor	日曜日、及び法定休日の表示色

VernalEquinox	春分点の日付と時刻

WeekdayColor	平日の表示色

WeekFont	曜日の表示フォント

WeekFormat	曜日の表示フォーマット

YearFormat	年の表示フォーマット


メソッド一覧

ClearAllDayMemo	日付メモをすべて削除します

ClearAllHoliday	休祝日をすべて削除します

ClearAllLegalHoliday	法定休日の設定をすべて削除します

ClearAllSpecialHoliday	個人祝日の設定をすべて削除します

ClearDayMemo	日付メモを削除します

ClearHoliday	休祝日を削除します

EnumHoliday	休祝日を列挙します

EnumHolidayV	VBScript 対応型EnumHoliday メソッド

EnumHolidayParam	休祝日パラメータを列挙します

EnumHolidayParam2	完全な休祝日パラメータを列挙します

EnumHolidayParam2V	VBScript 対応型EnumHolidayParam2 メソッド

FindDayMemo	日付メモを検索します

GetAutumnalEquinoxDay	指定年の秋分の日を取得します

GetDayMemo	日付メモを取得します

GetDayMemoV	VBScript 対応型GetDayMemo メソッド

GetHolidayName	休祝日の名称を取得します

GetHolidayName2	休祝日の名称の配列を取得します

GetHolidayName2V	VBScript 対応型GetHoliydayName2 メソッド

GetHolidayParam	休祝日パラメータを取得します

GetHolidayParam2	休祝日パラメータ配列へのインデックスを取得します

GetHolidayParam2V	VBScript 対応型GetHoliydayParam2 メソッド

GetVernalEquinoxDay	指定年の春分の日を取得します

GoToday	今日を表示します

HitTest	マウス座標にヒットする日付、及び表示要素を調べます。

IsAutumnalEquinoxDay	秋分の日かどうか調べます

IsFurikae	振替休日かどうか調べます

IsHoliday	法定休日、又は個人祝日かどうか調べます

IsKokuminKyujitu	「国民の休日」かどうか調べます

IsLeapYear	指定年が閏年かどうか調べます

IsLegalHoliday	法定休日かどうか調べます

IsSpecialHoliday	個人祝日かどうか調べます

IsVernalEquinoxDay	春分の日か調べます

LoadDayMemo	日付メモをファイルから読みこみます

OffsetDatePosition	カーソル位置を年数、月数、週数、日数分移動します

SaveDayMemo	日付メモをファイルへ書き込みます

SetDayMemo	日付メモを設定します

SetHoliday	休祝日を日付で設定します

SetHolidayParam	休祝日パラメータを設定します

SetHolidayParam2	完全な休祝日パラメータを設定します


イベント一覧

Click	カレンダーのどこかをクリックしたことを通知します

DateClick	日付表示をクリックしたことを通知します

DblClick	カレンダーのどこかをダブルクリックしたことを通知します

KeyDown	キーボードの任意のキーを押下したことを通知します

KeyPress	キーボードの文字のキーを押下したことを通知します

KeyUp	キーボードの任意のキーの押下を離したことを通知します

MonthClick	月表示をクリックしたことを通知します

MouseDown	マウスボタンを押下したことを通知します

MouseMove	マウスを移動したことを通知します

MouseUp	マウスボタンの押下を離したことを通知します

NewMonth	月が更新されたことを通知します

NewYear	年が更新されたことを通知します

YearClick	年表示をクリックしたことを通知します


定数一覧

AppearanceConstants	ウィンドウ枠の表示スタイルを表す定数

FindDayMemoConstants	日付メモの検索方法を表す定数

GridFillPatternConstants	日付枠の背景色Ａ，Ｂの配置パターンを表す定数

HitCodeConstants	ヒットした要素を表す定数

HolidayStyleConstants	休祝日の指定方法の種類を表す定数

HolidayTypeConstants	休祝日の種類を表す定数

InitialDateConstants	起動直後に表示する日付の指定を表す定数

PictureLayoutConstants	背景グラフィクスの貼り付けパターンを表す定数


バージョン履歴

V 1.1

・	GridLineプロパティの値が保存されていなかった不具合を修正しました。

・	春分の日、及び秋分の日を計算によって求める機能を追加しました。これに伴い、春分点プロパティ(VernalEquinox)、及び秋分点プロパティ(AutumnalEquinox)を追加しました。

・	KeyDown,KeyUp,KeyPress,Click,DblClick,MouseDown,MouseMove,MouseUpイベントを追加しました。

・	前月・次月への移動を有効化／無効化するフラグを追加しました。(OnlyThisMonth)

・	年・月表示の有無を選択できるようにしました。（ShowYearMonthプロパティ）

・日付毎に文字列と表示色を設定できるようになりました。（SetDayMemo,GetDayMemo,LoadDayMemo,SaveDayMemo）

・年、月、及びキャプションの表示フォントの指定をNumberFontプロパティからFontプロパティに変更しました。

・キーボードによる日付カーソルの移動パターンを増やしました。


キー操作

カレンダー コントロールの各キーの機能は次の通りです。

キー	機能

ｶｰｿﾙｷｰ	隣接する上下、及び左右の日付にカーソルを移動します。

Home	週の先頭にカーソルを移動します。

End	週の末尾にカーソルを移動します。

Ctrl +Home	月の先頭にカーソルを移動します。

Ctrl +End	月の末尾にカーソルを移動します。

PageUp	前月にカーソルを移動します。

PageDown	次月にカーソルを移動します。

Ctrl +PageUp	前年にカーソルを移動します。

Ctrl +PageDown	次年にカーソルを移動します。


Appearanceプロパティ

構文

object.Appearance[=value]

Appearanceプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

value	ウィンドウ境界線のスタイルを、整数、又は定数で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

引数valueの設定値は次のとおりです。

定数	値	内容

KnCalFlat	0	(既定値)ウィンドウ境界線について、何も施しません。

KnCal3D	1	ウィンドウ境界線を、窪んだように見せます。

解説

ウィンドウ境界線の表示スタイルを指定します。

値の取得も可能です。


関連事項


例


対象項目


AutumnalEquinoxプロパティ

関連事項

構文

object.AutumnalEquinox[=date]

AutumnalEquinoxプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

date	秋分点の日時を示す値を日付型で指定します。日付部分の指定として有効な値の範囲は、1900年1月1日から9999年12月31日です。

解説

秋分点の日時を指定します。ある年の秋分の日は、秋分点と365.2422日の倍数の加減算によって求めます。通常このプロパティを変更する必要はないと思われますが、例えばできるだけ正確に知りたい秋分の日が秋分点よりある程度(10年程度)離れている場合には、近い年の秋分点を指定します。

値の取得も可能です。


関連事項

VernalEquinoxプロパティ


例


対象項目


BackColorプロパティ

関連事項

構文

object.BackColor[=color]

BackColorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

カレンダー全体の背景色を指定します。

値の取得も可能です。


関連事項

ForeColorプロパティ


例


対象項目


BorderStyleプロパティ

構文

object.BorderStyle[=value]

BorderStyleプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

value	ウィンドウ境界線の線種を、整数で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

引数value の設定値は次のとおりです。

値	内容

0	(既定値)なし。

1	実線。

解説

ウィンドウ境界線の種類を指定します。

値の取得も可能です。


関連事項


例


対象項目


Captionプロパティ

関連事項

構文

object.Caption[=string]

Captionプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

string	テキストを示す文字列式を指定します。

解説

カレンダー下部に表示する任意の文字列を指定します。

値の取得も可能です。

Captionプロパティに文字列が設定されたときだけ、カレンダー下部に文字列を表示する領域が確保されます。


関連事項

ForeColorプロパティ


例


対象項目


DatePositionプロパティ

関連事項

構文

object.DatePosition[=date]

DatePositionプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

date	カーソルを位置づけたい日付を示す値を日付型で指定します。日付の指定として有効な値の範囲は、1900年1月1日から9999年12月31日です。

解説

カーソルを位置づける日付を指定します。

値の取得も可能です。

DatePositionプロパティを変更すると、カレンダーの表示も更新されます。


関連事項

InitialDateプロパティ


例


対象項目


DayFillColorAプロパティ

関連事項

構文

object.DayFillColorA[=color]

DayFillColorAプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

日付枠の背景色を指定します。

日付枠を背景色は、DayFillColorAプロパティとDayFillColorBプロパティを組み合わせて指定します。指定した背景色の配置は、GridFillPatternプロパティによって決まります。

値の取得も可能です。


関連事項

DayFillColorBプロパティ

GridFillPatternプロパティ


例


対象項目


DayFillColorBプロパティ

関連事項

構文

object.DayFillColorB[=color]

DayFillColorBプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

日付枠の背景色を指定します。

日付枠の背景色は、DayFillColorAプロパティとDayFillColorBプロパティを組み合わせて指定します。指定した背景色の配置は、GridFillPatternプロパティによって配色が決まります。

値の取得も可能です。


関連事項

DayFillColorAプロパティ

GridFillPatternプロパティ


例


対象項目


DayFormatプロパティ

関連事項

構文

object.DayFormat[=string]

DayFormatプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

string	日付文字列の表示書式を文字列で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

引数stringの設定値は次のとおりです。

値	内容

d	(既定値)数値の日付。

dd	先頭にゼロをともなう数値の日付

※日付文字列の表示書式として指定できる文字は、Microsoft Windowsの各国語対応で指定されたものに対応しています。

解説

日付文字列の表示書式を指定します。

値の取得も可能です。


関連事項

MonthFormatプロパティ

YearFormatプロパティ


例


対象項目


Enabledプロパティ

構文

object.Enabled[=boolean]

Enabledプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

boolean	ブール式を指定します。

設定値

引数boolean の設定値は次のとおりです。

設定値	内容

True	(既定値)object はイベントを認識します。

False	object はイベントを認識しません。

解説

カレンダーコントロールに、ユーザーの操作で発生したイベントを認識させるかどうかを設定します。

値の取得も可能です。


関連事項


例


対象項目


Fontプロパティ

関連事項

構文

object.Font

解説

年、月、及びキャプションの文字列の表示に使用するフォントを指定します。


関連事項

Captionプロパティ

MonthFormatプロパティ

YearFormatプロパティ

ForeColorプロパティ


例


対象項目


ForeColorプロパティ

関連事項

構文

object.ForeColor[=color]

ForeColorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

年や月、キャプションの文字列の表示色を指定します。

値の取得も可能です。


関連事項

Captionプロパティ

Fontプロパティ

MonthFormatプロパティ

YearFormatプロパティ


例


対象項目


GridColorBRプロパティ

関連事項

構文

object.GridColorBR[=color]

GridColorBRプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

日付枠の右辺と下辺の色を指定します。

値の取得も可能です。

日付枠線のカラーは、GridColorTLプロパティとGridColorBRプロパティの組み合わせで指定します。

日付枠線の描画方法は、GridLineプロパティとGridFillPatternプロパティとGridSpaceプロパティの３つのプロパティの値の組み合わせで決まります。

GridLineプロパティがFalseの場合、日付枠線は描画されません。

GridSpaceプロパティが０の場合、日付枠線は描画されません。また、GridSpaceプロパティが１の場合は、日付枠線の四辺ともGridColorBRプロパティで指定した色で描画されます。


関連事項

GridColorTLプロパティ

GridFillPatternプロパティ

GridLineプロパティ

GridSpaceプロパティ


例


対象項目


GridColorTLプロパティ

関連事項

構文

object.GridColorTL[=color]

GridColorTLプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

日付枠線の左辺と上辺のカラーを指定します。

値の取得も可能です。

日付枠線の色は、GridColorTLプロパティとGridColorBRプロパティの組み合わせで指定します。

日付枠線の描画方法は、GridLineプロパティとGridFillPatternプロパティとGridSpaceプロパティの３つのプロパティの値の組み合わせで決まります。

GridLineプロパティがFalseの場合、日付枠線は描画されません。

GridSpaceプロパティが０の場合、日付枠線は描画されません。また、GridSpaceプロパティが１の場合は、日付枠線の四辺ともGridColorBRプロパティで指定した色で描画されます。


関連事項

GridColorBRプロパティ

GridFillPatternプロパティ

GridLineプロパティ

GridSpaceプロパティ


例


対象項目


GridFillPatternプロパティ

関連事項

構文

object.GridFillPattern[=value]

GridFillPatternプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

value	背景色Ａ，Ｂの配置パターンを、整数、又は定数で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

定数	値	内容

KnCalNotFill	0	日付枠の中を塗りつぶさない。

KnCalHorizontal	1	横縞状に塗りつぶす。（＝週毎に交互に二つの色を配色）

KnCalVertical	2	縦縞状に塗りつぶす。（＝曜日毎に交互に二つの色を配色）

KnCalCross	3	格子状に塗りつぶす。

解説

日付枠の中の塗りつぶしの有無や、塗りつぶし時の日付枠の背景色Ａ，Ｂの配置パターンを指定します。

値の取得も可能です。


関連事項

DayFillColorAプロパティ

DayFillColorBプロパティ

GridLineプロパティ

GridSpaceプロパティ


例


対象項目


GridLineプロパティ

関連事項

構文

object.GridLine[=boolean]

GridLineプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

boolean	ブール式を指定します。

設定値

引数boolean の設定値は次のとおりです。

設定値	内容

True	(既定値)日付枠を描画します。

False	日付枠を描画しません。

解説

日付枠の表示の有無を指定します。

値の取得も可能です。

GridLineプロパティがTrueのときでも、GridSpaceプロパティが0のときは、日付枠線は表示されません。

※	GridLineプロパティがFalseのときは、縦方向の表示間隔が（年・月表示と曜日表示の間などが）狭くなります。この特性は、カレンダーの表示サイズを小さくしたい場合に役立ちます。


関連事項

DayFillColorAプロパティ

DayFillColorBプロパティ

GridSpaceプロパティ


例


対象項目


GridSpaceプロパティ

関連事項

構文

object.GridSpace[=number]

GridSpaceプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

number	隣り合う日付枠の間隔の広さを、0以上の整数で指定します。

解説

隣り合う日付枠の隙間の広さを指定します。

値の取得も可能です。

GridSpaceプロパティが０のときは、GridLineプロパティがTrueでも、日付枠線は表示されません。


関連事項

DayFillColorAプロパティ

DayFillColorBプロパティ

GridLineプロパティ


例


対象項目


InitialDateプロパティ

関連事項

構文

object.InitialDate[=value]

InitialDateプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

value	起動直後に表示する日付の指定を、整数、又は定数で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

定数	値	内容

KnCalToday	0	(既定値)コンピュータに設定されている、システム日付にカーソルを位置づけます。

KnCalPreset	1	デザイン時に、DatePositionプロパティに指定した日付にカーソルを位置づけます。

解説

カレンダーの表示直後に、どの日付にカーソルを位置づけるかを指定します。

値の取得も可能です。


関連事項

DatePositionプロパティ


例


対象項目


MemoFontプロパティ

関連事項

構文

object.MemoFont

解説

日付メモの表示に使用するフォントを指定します。


関連事項

ClearDayMemoメソッド

GetDayMemoメソッド

LoadDayMemoメソッド

SaveDayMemoメソッド

SetDayMemoメソッド


例


対象項目


MonthFormatプロパティ

関連事項

構文

object.MonthFormat[=string]

MonthFormatプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

string	月の表示書式を文字列で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

引数string の設定値は次のとおりです。

値	内容

M	(既定値)月

MM	先頭にゼロをともなう月

MMM	短形式の月名

MMMM	長形式の月名

他の文字	そのまま表示されます。(挿(ｼﾝｸﾞﾙｸｵｰﾃｰｼｮﾝ)を除く)

※日付文字列の表示書式として指定できる文字は、Microsoft Windowsの各国語対応で指定されたものに対応しています。

※実際に表示される値は、｢コントロールパネル｣－｢地域｣－｢日付｣ダイアログで設定されている値になります。

解説

日付の「月」を表示する書式を指定します。

値の取得も可能です。


関連事項

YearFormatプロパティ

ShowYearMonthプロパティ


例


対象項目


NumberFontプロパティ

関連事項

構文

object.NumberFont

解説

日付や曜日名の表示に使用するフォントを指定します。


関連事項

Fontプロパティ

MemoFontプロパティ

WeekdayColorプロパティ

WeekFontプロパティ


例


対象項目


OnlyThisMonthプロパティ

構文

object.OnlyThisMonth[=boolean]

OnlyThisMonthプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

boolean	ブール式を指定します。

設定値

引数boolean の設定値は次のとおりです。

設定値	内容

True	現在の表示月をキーボードやマウスで変更できるようにします。

False	現在の表示月をキーボードやマウスで変更できないようにします。

解説

マウスやキーボード操作での表示月の変更を、有効、又は無効にします。

値の取得も可能です。


関連事項


例


対象項目


Pictureプロパティ

関連事項

構文

object.Picture[=picture]

Pictureプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

picture	グラフィックスを含むファイルを示す文字列式を指定します。設定する値については、次の「設定値」を参照してください。

設定値

引数pictureの設定値は次のとおりです。

設定値	内容

(なし)	(既定値)ピクチャはありません。

(ビットマップ、アイコン)

グラフィックスを指定します。デザイン時にプロパティウィンドウでグラフィックスを指定してロードすることができます。また、実行時にはビットマップ、アイコン、メタファイルのいずれかに対してLoadPicture 関数を使うことによって、このプロパティを設定できます。

解説

カレンダーの背面に表示するグラフィックスを指定します。

グラフィックスは、カレンダー全体を覆うようにタイリングで表示されます。

Pictureプロパティにグラフィックスを設定したときは、BackColorプロパティは使用されません｡

※ 拡張子(*.dib)のファイルは正しく表示されません。


関連事項

BackColorプロパティ


例


対象項目


PictureLayoutプロパティ

関連事項

構文

object.PictureLayout[=value]

PictureLayoutプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

value	Pictureプロパティで指定したグラフィックスの配置パターンを表す値を、数式、又は定数で指定します。

設定値

定数	値	内容

KnCalCenter	0	カレンダーコントロールの中央に、グラフィックスを一つ表示します。グラフィックスのない背景領域は、BackColorプロパティの色で塗りつぶされます。

KnCalTile	1	カレンダーコントロールの全体が、グラフィックスで塗りつぶされるように、左上からグラフィックスをタイリング表示します。

KnCalStretch	2	カレンダーコントロールの全体を覆うように、グラフィックス一つを伸縮して表示します。

解説

カレンダーコントロールの背景に表示するグラフィックスの配置を指定します。

値の取得も可能です。


関連事項

DayFillColorAプロパティ

DayFillColorBプロパティ

GridLineプロパティ

GridSpaceプロパティ


例


対象項目


SaturdayColorプロパティ

構文

object.SatyrdayColor[=color]

SaturdayColorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

土曜日の表示色を指定します。

値の取得も可能です。


関連事項


例


対象項目


ShowCursorプロパティ

関連事項

日付カーソルの表示の有無を指定します。値の取得も可能です。

構文

object.ShowCursor[=boolean]

ShowCursorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

boolean	ブール式を指定します。

設定値

引数boolean の設定値は次のとおりです。

設定値	内容

True	日付カーソルを表示します。

False	日付カーソルを表示しません。

解説

Trueを指定すると、DatePositionプロパティの示す日付の日付枠内を反転表示します。

日付カーソルは、フォーカスの有無に関係なく表示されますが、次のようなプログラムを作成してフォーカスを取得している間だけ日付カーソルを表示し、フォーカスを失った状態では日付カーソル表示しないようにできます。

Private Sub KnCalendar1_GotFocus()

KnCalendar1.ShowCursor=True

End Sub

Private Sub KnCalendar1_LostFocus()

KnCalendar1.ShowCursor=False

End Sub


関連事項

DatePositionプロパティ


例


対象項目


ShowToolTipプロパティ

日付メモのツールヒント表示の有無を指定します。値の取得も可能です。

構文

object.ShowToolTip[=boolean]

ShowToolTipプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

boolean	ブール式を指定します。

設定値

引数boolean の設定値は次のとおりです。

設定値	内容

True	日付メモのツールヒントを表示します。

False	日付メモのツールヒントを表示しません。

解説

日付メモのツールヒントは、日付メモを持つ日付の日付枠内にマウスをポイントした状態で約400ミリ秒間マウスを移動しないと表示されます。


関連事項


例


対象項目


ShowYearMonthプロパティ

構文

object.ShowYearMonth[=boolean]

ShowYearMonthプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

boolean	ブール式を指定します。

設定値

引数boolean の設定値は次のとおりです。

設定値	内容

True	年、及び月を表示します。

False	年、及び月を表示しません。

解説

年、及び月の表示の有無を指定します。

値の取得も可能です。


関連事項


例


対象項目


SpecialHolidayColorプロパティ

関連事項

構文

object.SpecialHolidayColor[=color]

SpecialHolidayColorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object 	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

個人祝日として設定した日付の表示色を指定します。

値の取得も可能です。

法定休日は、日曜日と同じ色で表示されます。


関連事項

SaturdayColorプロパティ

SundayColorプロパティ

WeekdayColorプロパティ


例


対象項目


SundayColorプロパティ

構文

object.SundayColor[=color]

SundayColorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

日曜日の表示色を指定します。

値の取得も可能です。


関連事項


例


対象項目


VernalEquinoxプロパティ

関連事項

構文

object.VernalEquinox[=date]

VernalEquinoxプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

date	春分点の日時を示す値を日付型で指定します。日付部分の指定として有効な値の範囲は、1900年1月1日から9999年12月31日です。

解説

春分点の日時を指定します。ある年の春分の日は、春分点と365.2422日の倍数の加算によって求めます。通常このプロパティを変更する必要はないと思われますが、例えばできるだけ正確に知りたい春分の日が春分点よりある程度(10年程度)離れている場合には、近い年の春分点を指定します。

値の取得も可能です。


関連事項

AutumnalEquinoxプロパティ


例


対象項目


WeekdayColorプロパティ

関連事項

構文

object.WeekdayColor[=color]

WeekdayColorプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

color	カラー値を示す値を指定します。

解説

平日の表示色を指定します。

値の取得も可能です。


関連事項

NumberFontプロパティ


例


対象項目


WeekFontプロパティ

関連事項

構文

object.WeekFont

解説

曜日名の表示に使用するフォントを指定します。


関連事項

WeekFormatプロパティ


例


対象項目


WeekFormatプロパティ

関連事項

構文

object.WeekFormat[=string]

WeekFormatプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

string	曜日名の表示書式を文字列で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

引数string の設定値は次のとおりです。

値	内容

ddd	(既定値)短形式の曜日名

dddd	長形式の曜日名

他の文字	そのまま表示されます。(挿(ｼﾝｸﾞﾙｸｵｰﾃｰｼｮﾝ)を除く)

※日付文字列の表示書式として指定できる文字は、Microsoft Windowsの各国語対応で指定されたものに対応しています。

※実際に表示される値は、｢コントロールパネル｣－｢地域｣－｢日付｣ダイアログで設定されている値になります。

解説

曜日名の表示書式を指定します。

値の取得も可能です。


関連事項

WeekFontプロパティ


例


対象項目


YearFormatプロパティ

関連事項

構文

object.YearFormat[=string]

YearFormatプロパティの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

string	年の表示書式を文字列で指定します。設定する値については、次の｢設定値｣を参照してください。

設定値

引数string の設定値は次のとおりです。

値	内容

y	世紀なしの年

yy	先頭にゼロをともなう世紀なしの年

yyyy	(既定値)世紀を含む年

gg	元号(非西暦)

他の文字	そのまま表示されます。(挿(ｼﾝｸﾞﾙｸｵｰﾃｰｼｮﾝ)を除く)

※日付文字列の表示書式として指定できる文字は、Microsoft Windowsの各国語対応で指定されたものに対応しています。

解説

日付「年」の表示書式を指定します。

値の取得も可能です。


関連事項

MonthFormatプロパティ

ShowYearMonthプロパティ


例


対象項目


ClearAllDayMemoメソッド

関連事項

構文

object.ClearAllDayMemo

ClearAllDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

すべての日付メモを削除します。


関連事項

ClearDayMemoメソッド

GetDayMemoメソッド

LoadDayMemoメソッド

SaveDayMemoメソッド

SetDayMemoメソッド


例


対象項目


ClearAllHolidayメソッド

関連事項

構文

object.ClearAllHoliday

ClearAllHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

すべての休祝日の設定を削除します。


関連事項

ClearHolidayメソッド


例


対象項目


ClearAllLegalHolidayメソッド

関連事項

構文

object.ClearAllLegalHoliday

ClearAllLegalHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

すべての法定休日の設定を削除します。


関連事項

ClearHolidayメソッド


例


対象項目


ClearAllSpecialHolidayメソッド

関連事項

構文

object.ClearAllSpecialHoliday

ClearAllSpecialHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

すべての個人祝日の設定を削除します。


関連事項

ClearHolidayメソッド


例


対象項目


ClearDayMemoメソッド

関連事項

構文

object.ClearDayMemo(dtDate)

ClearDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	削除したい日付メモを日付型で指定します。

解説

日付メモを削除します。


関連事項

ClearAllDayMemoメソッド

GetDayMemoメソッド

LoadDayMemoメソッド

SaveDayMemoメソッド

SetDayMemoメソッド


例


対象項目


ClearHolidayメソッド

例

構文

object.ClearHoliday(dtHoliday)

ClearHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtHoliday	削除したい休祝日を日付型で指定します。

解説

休祝日を削除します。

SetHolidayParam2メソッドで休祝日を設定している場合、同じ日付に複数の休祝日が設定される場合がありますが、その場合、引数dtHolidayに指定した日付に対するすべての休祝日を削除します。


関連事項


例

Private Sub Command1_Click()

'7/20(海の日)を削除する

KnCalendar1.ClearHoliday("1999/7/20")

'現在カーソルが位置している日付が休祝日だったら、それを削除する

KnCalendar1.ClearHoliday(KnCalendar1.DatePosition)

End Sub


対象項目


EnumHoliday メソッド、EnumHolidayV メソッド

例

構文

object.EnumHoliday (nIndex,nYear,dtHoliday)

object.EnumHolidayV (nIndex,nYear,dtHoliday)

EnumHoliday メソッド、EnumHolidayV メソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nIndex	休祝日パラメータ配列へのインデックスを、0以上の整数で指定します。

nYear	取得する日付を、どの年の日付として取得するかを1900から9999までの整数で指定します。

dtHoliday	日付を表す値が格納されます。データ型は日付型(Date)です。

解説

休祝日を列挙します。

このメソッドは、主にカレンダーに設定されている休祝日の一覧を取得したい場合に使用します。

引数nIndex に配列の範囲を超える値を指定した場合、Falseが返されます。

引数nIndex によって参照する休祝日パラメータから引数nYear に指定した年の休祝日が求められなかった場合、引数dtHoliday には、0が格納されます。例として、引数nYear に1990を指定し、引数nIndex が国民の祝日「海の日」を表わす休祝日パラメータを指す場合、1990年の時点では「海の日」は存在しないため、結果として引数dtHoliday には0が格納されます。

Internet Explorer のスクリプト(VBScript)では、EnumHolidayVメソッドを使用してください。VBScript からのEnumHolidayメソッドの呼び出しは失敗します。Visual Basic やVBA (Access97)では、どちらも使用できます。


関連事項


EnumHoliday メソッドの例(Visual Basic)

Private Sub Command1_Click()

Dim i As Integer

Dim dtHoliday As Date

Dim strHoliday As String

'2000年の休祝日の一覧をリストボックスに表示します

i =0

Do While KnCalendar1.EnumHoliday(i,2000,dtHoliday)

if dtHoliday <>0 then

strHoliday =Format(dtHoliday,"yy年MM月dd日ddd")

strHoliday =strHoliday +KnCalendar1.GetHolidayName(dtHoliday)

List1.AddItem strHoliday

end if

i =i +1

Loop

End Sub

EnumHolidayV メソッドの例(VBScript)

Sub cmdEnumHolidayV_Click()

Dim vHoliday,vMsg,i

'2000年の休祝日の一覧をメッセージボックスで表示します

i =0

Do While KnCalendar1.EnumHolidayV (i,2000,vHoliday)

If vHoliday <>0 Then

If Not IsEmpty(vMsg)Then

vMsg =vMsg &vbCrLf

End If

vMsg =vMsg &vHoliday &"-"&KnCalendar1.GetHolidayName(vHoliday)

End If

i =i +1

Loop

MsgBox vMsg

End Sub


対象項目


EnumHolidayParamメソッド

関連事項	例

このメソッドは旧バージョンとの互換性のために残しています。Version1.5以上で開発するユーザーは、EnumHolidayParam2メソッドを使ってください。

構文

object.EnumHolidayParam(nIndex,strName,nType,nStyle,nMonth,nDayOrWeekNo,nDayOfWeek)

EnumHolidayParamメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nIndex	休祝日パラメータ配列へのインデックスを、0以上の整数で指定します。

strName	休祝日の名称を表す文字列が格納されます。

nType	法定休日か、個人祝日かを表す値が格納されます。

nStyle	休祝日の設定スタイルを表す値が格納されます。

nMonth	月を表す値が格納されます。

nDayOrWeekNo	日、又は第何週を表す値が格納されます。

nDayOfWeek	曜日を表す値が格納されます。

設定値

引数nTypeの値は次のとおりです。

定数	値	内容

KnCalLegalHoliday	0	法定休日。

KnCalSpecialHoliday	1	個人祝日。

引数nStyleの値は次のとおりです。

定数	値	内容

KnCalMonthDay	0	月／日で休祝日を設定。

KnCalMonthAnyWeek	1	月／第何週／何曜日で休祝日を設定。

KnCalMonthLastWeek	2	月／一番最後の週／何曜日で休祝日を設定。

KnCalVernalEquinoxDay	3	春分の日を有効にする。

KnCalAutumnalEquinoxDay	4	秋分の日を有効にする。

KnCalKokuminKyujitu	5	「国民の休日」を有効にする。

解説

休祝日パラメータを列挙します。

休祝日パラメータを保存しておき、次の実行時にSetHolidayParamメソッドを使って再設定すれば、休祝日の復元が容易です。

引数nIndexに配列の範囲を超える値を指定した場合、Falseを返します。

使い方については、例を参照してください。


関連事項

SetHolidayParamメソッド


例　休祝日パラメータをファイル(Holiday.Tbl)に保存します

Private Sub Command1_Click()

Dim nIndex As Integer

Dim nType As Integer

Dim nStyle As Integer

Dim nMonth As Integer

Dim nDayOrWeekNo As Integer

Dim nDayOfWeek As Integer

Dim strName As String

Open "Holiday.Tbl"For Output As #1

nIndex =0

Do While KnCalendar1.EnumHolidayParam(_

nIndex,strName,nType,nStyle,nMonth,nDayOrWeekNo,nDayOfWeek)

Write #1,strName

Write #1,nType

Write #1,nStyle

Write #1,nMonth

Write #1,nDayOrWeekNo

Write #1,nDayOfWeek

nIndex =nIndex +1

Loop

Close #1

End Sub


対象項目


EnumHolidayParam2 メソッド、EnumHolidayParam2V メソッド

関連事項	例

構文

object.EnumHolidayParam2(Index,Name,Type,EnforceDate,ExpiryDate,Substitute,DatePattern,Month,DayOrWeekNo,DayOfWeek)

object.EnumHolidayParam2V(Index,Name,Type,EnforceDate,ExpiryDate,Substitute,DatePattern,Month,DayOrWeekNo,DayOfWeek)

EnumHolidayParam2 メソッド、EnumHolidayParam2V メソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

Index	休祝日パラメータ配列へのインデックスを、0以上の整数で指定します。

Name	休祝日の名称を表す文字列が格納されます。

Type	法定休日か、個人祝日かを表す値が格納されます。

EnforceDate	休祝日の施行日を表わす日付型の値が格納されます。

ExpiryDate	休祝日の有効期限を表わす日付型の値が格納されます。

Substitute	休祝日が振替休日を発生させるどうか表すブール型の値が格納されます。

DatePattern	日付の指定パターンを表す値が格納されます。

Month	月を表す値が格納されます。

DayOrWeekNo	日、又は第何週を表す値が格納されます。

DayOfWeek	曜日を表す値が格納されます。

設定値

引数Type の値は次のとおりです。

定数	値	内容

KnCalLegalHoliday	0	法定休日。

KnCalSpecialHoliday	1	個人祝日。

引数DatePattern の値は次のとおりです。

定数	値	内容

KnCalMonthDay	0	月／日で休祝日を設定。

KnCalMonthAnyWeek	1	月／第何週／何曜日で休祝日を設定。

KnCalMonthLastWeek	2	月／一番最後の週／何曜日で休祝日を設定。

KnCalVernalEquinoxDay	3	春分の日を有効にする。

KnCalAutumnalEquinoxDay	4	秋分の日を有効にする。

KnCalKokuminKyujitu	5	「国民の休日」を有効にする。

解説

休祝日パラメータを列挙します。

休祝日パラメータを保存しておき、次の実行時にSetHolidayParam2メソッドを使って再設定すれば、休祝日の復元が容易です。

引数nIndexに配列の範囲を超える値を指定した場合、Falseを返します。

使い方については、例を参照してください。

Internet Explorer のスクリプト(VBScript)では、EnumHolidayParam2Vメソッドを使用してください。VBScript からのEnumHolidayParam2メソッドの呼び出しは失敗します。Visual Basic やVBA (Access97)では、どちらも使用できます。


関連事項

GetHolidayParam2メソッド

SetHolidayParam2メソッド


EnumHolidayParam2 メソッドの例　(Visual Basic)

'休祝日パラメータをファイル(Holiday.Tbl)に保存します。

Private Sub Command1_Click()

Dim nIndex As Integer

Dim strName As String

Dim nType As Integer

Dim dtEnforceDate As Date

Dim dtExpiryDate As Date

Dim bSubstitute As Boolean

Dim nDatePattern As Integer

Dim nMonth As Integer

Dim nDayOrWeekNo As Integer

Dim nDayOfWeek As Integer

Open "Holiday.Tbl"For Output As #1

nIndex =0

Do While KnCalendar1.EnumHolidayParam2(_

nIndex,strName,nType,dtEnforceDate,dtExpiryDate,bSubstitute,_

nDatePattern,nMonth,nDayOrWeekNo,nDayOfWeek)

Write #1,strName

Write #1,nType

Write #1,dtEnforceDate

Write #1,dtExpiryDate

Write #1,bSubstitute

Write #1,nDatePattern

Write #1,nMonth

Write #1,nDayOrWeekNo

Write #1,nDayOfWeek

nIndex =nIndex +1

Loop

Close #1

End Sub

EnumHolidayParam2V メソッドの例(VBScript)

'日付カーソルが位置する日付の休祝日情報をメッセージボックスで表示します。

Sub cmdGetHolidayParam2V_Click()

Dim vIndexes

Dim vName,vType,vEnforce,vExpiry,vSubStitute,vPattern,vMonth,vDayOrWeekNo,vDayOfWeek

If KnCalendar1.GetHolidayParam2V(KnCalendar1.DatePosition,vIndexes)>0 Then

Dim vIndex

Dim vMsg

For Each vIndex In vIndexes

KnCalendar1.EnumHolidayParam2VvIndex,vName,vType,vEnforce,vExpiry,_

vSubStitute,vPattern,vMonth,vDayOrWeekNo,vDayOfWeek

MsgBox "Name:"&vName &",Type:"&vType _

&",Enforce:"&vEnforce &",Expiry:"&vExpiry _

&",SubStitute:"&vSubStitute &",Pattern:"&vPattern _

&",Month:"&vMonth &",DayOrWeekNo:"&vDayOrWeekNo &",DayOfWeek:"&vDayOfWeek _

,vbOKOnly,"祝日パラメータ("&vIndex &")"

Next

Else

MsgBox "この日付に休祝日の設定はありません"

End If

End Sub


対象項目


FindDayMemoメソッド

関連事項

構文

object.FindDayMemo(strKeyword,clrText,clrBack,nOptions)

SetDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

strKeyword	検索するキーワード文字列を指定します。検索条件にキーワード文字列を含めない場合は、粕を指定します。

clrText	メモの文字カラーをRGB値で指定します。検索条件に文字カラーを含めない場合は、&HFFFFFFFFを指定します。

clrBack	メモの背景カラーをRGB値で指定します。検索条件に背景カラーを含めない場合は、&HFFFFFFFFを指定します。

nOptions	キーワード文字列を検索する方法を表す定数、又は値を指定します。複数の方法を指定する場合はその合計で指定します。設定する値については、次の「設定値」を参照してください。

設定値

引数nOptions の値は次のとおりです。

定数	値	内容

0	引数strKeywordを部分的に含むか完全に一致する日付メモを検索します。大文字・小文字の区別は行ないません。

KnCalWholeWord	2	引数strKeywordと完全に一致する日付メモのみ検索します。

KnCalMatchCase	4	大文字・小文字を区別して検索します。

解説

引数strKeyword,clrText,clrBack,nOptions の条件の組み合わせですべての日付メモを対象に検索し、該当した日付メモの日付を表す値を配列にして返します。


関連事項

ClearAllDayMemoメソッド

ClearDayMemoメソッド

GetDayMemoメソッド

LoadDayMemoメソッド

SaveDayMemoメソッド

SetDayMemoメソッド


例


対象項目


GetAutumnalEquinoxDayメソッド

関連事項

構文

object.GetAutumnalEquinoxDay(nYear)

GetAutumnalEquinoxDayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nYear	秋分の日を求めたい年を指定します。

解説

引数nYearで指定した年の秋分の日を取得します。


関連事項

GetVernalEquinoxDayメソッド


例


対象項目


GetDayMemo メソッド、GetDayMemoV メソッド

関連事項

構文

object.GetDayMemo (dtDate,strText,clrText,clrBack)

object.GetDayMemoV (dtDate,strText,clrText,clrBack)

GetDayMemoメソッド、GetDayMemoVメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	メモを取得する日付を、日付型で指定します。

strText	メモの文字列を取得します。

clrText	メモの文字カラーをRGB値で取得します。

clrBack	メモの背景カラーをRGB値で取得します。

解説

引数dtDate で指定した日付の日付メモを取得します。

もしその日付に日付メモが無い場合は、Falseを返します。

※引数clrText の値が&HFFFFFFのときは、メモの文字カラーが日付文字のカラーと同じことを表します。

※引数clrBack の値が&HFFFFFFのときは、メモの背景カラーが日付枠の背景カラーと同じことを表します。

Internet Explorer のスクリプト(VBScript)では、GetDayMemoVメソッドを使用してください。VBScript からのGetDayMemoメソッドの呼び出しは失敗します。Visual Basic やVBA (Access97)では、どちらも使用できます。


関連事項

ClearAllDayMemoメソッド

ClearDayMemoメソッド

LoadDayMemoメソッド

SaveDayMemoメソッド

SetDayMemoメソッド


例


対象項目


GetHolidayNameメソッド

このメソッドは旧バージョンとの互換性のために残しています。Version1.5以上で開発するユーザーは、GetHolidayName2メソッドを使ってください。

関連事項

構文

object.GetHolidayName(dtHoliday)

GetHolidayNameメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtHoliday	休祝日の名称を取得したい日付を、日付型で指定します。

解説

引数dtHoliday が、休祝日として設定されている日付と一致する場合、休祝日の名称を文字列で返します。

SetHolidayParam2メソッドで休祝日を設定している場合、同じ日付に複数の休祝日が設定される場合がありますが、その場合、先に設定された休祝日の名称のみ取得します。


関連事項

SpecialHolidayColorプロパティ

SundayColorプロパティ

ClearAllHolidayメソッド

ClearHolidayメソッド

EnumHolidayメソッド

EnumHolidayParamメソッド

GetHolidayNameメソッド

GetHolidayParamメソッド

IsHolidayメソッド

IsLegalHolidayメソッド

IsSpecialHolidayメソッド

SetHolidayメソッド

SetHolidayParamメソッド


例


対象項目


GetHolidayName2メソッド、GetHolidayName2Vメソッド

関連事項　　　　例

構文

object.GetHolidayName2 (TargetDate,Names)

object.GetHolidayName2V (TargetDate,Names)

GetHolidayName2 メソッド、GetHolidayName2V メソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

TargetDate	休祝日の名称を取得したい日付を、日付型で指定します。

Names	休祝日が１つ以上対応する場合、休祝日の名称を格納した１次元配列が格納されます。

解説

引数TargetDateで指定した日付に対応する休祝日が１つ以上ある場合、引数Namesに休祝日名の１次元配列を格納し、メソッドの戻り値で配列の要素数を返します。対応する休祝日が１つも無かった場合、引数Namesには何も格納せず、戻り値に0 を返します。

Internet Explorer のスクリプト(VBScript)では、GetHolidayName2Vメソッドを使用してください。VBScript からのGetHolidayName2メソッドの呼び出しは失敗します。Visual Basic やVBA (Access97)では、どちらも使用できます。


関連事項

ClearAllHolidayメソッド

ClearHolidayメソッド

EnumHolidayメソッド

EnumHolidayParam2メソッド

GetHolidayParam2メソッド

IsHolidayメソッド

IsLegalHolidayメソッド

IsSpecialHolidayメソッド

SetHolidayメソッド

SetHolidayParam2メソッド


GetHolidayName2 メソッドの例(Visual Basic)

'日付カーソルが位置する日付に対応する休祝日の名前をテキストボックスに列挙します。

Private Sub Command1_Click()

Dim Names

Dim intCount As Integer

Dim i As Integer

Text1.Text =""

intCount =KnCalendar1.GetHolidayName2(KnCalendar1.DatePosition,Names)

For i =0 To intCount -1

If Text1.Text =""Then

Text1.Text =Names(i)

Else

Text1.Text =Text1.Text &","&Names(i)

End If

Next

End Sub

GetHolidayName2V メソッドの例(VBScript)

'日付カーソルが位置する日付の休祝日名称をメッセージボックスで表示します。

Sub cmdGetHolidayName2V_Click()

Dim vNames

If KnCalendar1.GetHolidayName2V(KnCalendar1.DatePosition,vNames)>0 Then

Dim vName,vMsg

For Each vName In vNames

If Not IsEmpty(vMsg)Then

vMsg =vMsg &","

End If

vMsg =vMsg &vName

Next

MsgBox vMsg

Else

MsgBox "この日付に休祝日の設定はありません"

End If

End Sub


対象項目


GetHolidayParamメソッド

このメソッドは旧バージョンとの互換性のために残しています。Version1.5以上で開発するユーザーは、GetHolidayParam2メソッドを使ってください。

構文

object.GetHolidayParam(dtHoliday,strName,nType,nStyle,nMonth,nDayOrWeekNo,nDayOfWeek)

GetHolidayParamメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtHoliday	詳細なパラメータを取得したい休祝日を、日付型で指定します。

strName	休祝日名を表す文字列が格納されます。

nType	法定休日か、個人祝日かを表す値が格納されます。

nStyle	休祝日の設定スタイルを表す値が格納されます。

nMonth	月を表す値が格納されます。

nDayOrWeekNo	日、又は第何週かを表す値が格納されます。

nDayOfWeek	曜日を表す値が格納されます。

設定値

引数nTypeの値は次のとおりです。

定数	値	内容

KnCalLegalHoliday	0	法定休日。

KnCalSpecialHoliday	1	個人祝日。

引数nStyleの値は次のとおりです。

定数	値	内容

KnCalMonthDay	0	月／日で休祝日を設定。

KnCalMonthAnyWeek	1	月／第何週／何曜日で休祝日を設定。

KnCalMonthLastWeek	2	月／一番最後の週／何曜日で休祝日を設定。

KnCalVernalEquinoxDay	3	春分の日を有効にする。

KnCalAutumnalEquinoxDay	4	秋分の日を有効にする。

KnCalKokuminKyujitu	5	「国民の休日」を有効にする。

解説

休祝日パラメータを取得します。

SetHolidayParam2メソッドで休祝日を設定している場合、同じ日付に複数の休祝日が設定される場合がありますが、その場合、先に設定された休祝日のパラメータのみ取得します。


関連事項


例


対象項目


GetHolidayParam2 メソッド、GetHolidayParam2V メソッド

関連事項	例

構文

object.GetHolidayParam2 (TargetDate,Indexes)

object.GetHolidayParam2V (TargetDate,Indexes)

GetHolidayParam2メソッド、GetHolidayParam2Vメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

TargetDate	休祝日パラメータを取得したい日付を、日付型で指定します。

Indexes	休祝日が１つ以上対応する場合、休祝パラメータ配列のインデックスを格納した１次元配列が格納されます。

解説

引数TargetDateで指定した日付に対応する休祝日が１つ以上ある場合、それらの休祝日に対応する休祝日パラメータを指すインデックスの１次元配列を格納し、メソッドの戻り値で配列の要素数を返します。対応する休祝日が１つも無かった場合、引数Indexesには何も格納せず、戻り値に0 を返します。

Internet Explorer のスクリプト(VBScript)では、GetHolidayParam2Vメソッドを使用してください。VBScript からのGetHolidayParam2メソッドの呼び出しは失敗します。Visual Basic やVBA (Access97)では、どちらも使用できます。


関連事項

EnumHolidayParam2メソッド

SetHolidayParam2メソッド


GetHolidayParam2 メソッドの例(Visual Basic)

'日付カーソルが位置する日付に対応する休祝日の名前と休祝日の種類をテキストボックスに列挙します。

Private Sub Command1_Click()

Dim Indexes

Dim intCount As Integer

Dim i As Integer

Dim strType As String

Dim strName As String

Dim nType As Integer

Dim varEnforceDate As Variant

Dim varExpiryDate As Variant

Dim blnSubstitute As Boolean

Dim nPattern As Integer

Dim nMonth As Integer

Dim nDayOrWeekNo As Integer

Dim nDayOfWeek As Integer

Text1.Text =""

intCount =KnCalendar1.GetHolidayParam2(KnCalendar1.DatePosition,Indexes)

For i =0 To intCount -1

KnCalendar1.EnumHolidayParam2 Indexes(i),_

strName,nType,varEnforceDate,varExpiryDate,blnSubstitute,_

nPattern,nMonth,nDayOrWeekNo,nDayOfWeek

if nType =KnCalLegalHoliday then

strType ="法定休日"

else

strType ="個人祝日"

end if

If Text1.Text =""Then

Text1.Text =strName &"("&strType &")"

Else

Text1.Text =Text1.Text &","&strName &"("&strType &")"

End If

Next

End Sub

GetHolidayParam2V メソッドの例(VBScript)

'日付カーソルが位置する日付の休祝日情報をメッセージボックスで表示します。

Sub cmdGetHolidayParam2V_Click()

Dim vIndexes

Dim vName,vType,vEnforce,vExpiry,vSubStitute,vPattern,vMonth,vDayOrWeekNo,vDayOfWeek

If KnCalendar1.GetHolidayParam2V(KnCalendar1.DatePosition,vIndexes)>0 Then

Dim vIndex

Dim vMsg

For Each vIndex In vIndexes

KnCalendar1.EnumHolidayParam2V vIndex,vName,vType,vEnforce,vExpiry,_

vSubStitute,vPattern,vMonth,vDayOrWeekNo,vDayOfWeek

MsgBox "Name:"&vName &",Type:"&vType _

&",Enforce:"&vEnforce &",Expiry:"&vExpiry _

&",SubStitute:"&vSubStitute &",Pattern:"&vPattern _

&",Month:"&vMonth &",DayOrWeekNo:"&vDayOrWeekNo &",DayOfWeek:"&vDayOfWeek _

,vbOKOnly,"祝日パラメータ("&vIndex &")"

Next

Else

MsgBox "この日付に休祝日の設定はありません"

End If

End Sub


対象項目


GetVernalEquinoxDayメソッド

関連事項

構文

object.GetVernalEquinoxDay(nYear)

GetVernalEquinoxDayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nYear	春分の日を求めたい年を指定します。

解説

引数nYearで指定した年の春分の日を取得します。


関連事項

GetAutumnalEquinoxDayメソッド


例


対象項目


GoTodayメソッド

関連事項

構文

object.GoToday

GoTodayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

カレンダーの表示を、今日を含む月に変更します。


関連事項


例


対象項目


HitTestメソッド

例

マウス座標にヒットする日付、及び表示要素を調べます。

構文

object.HitTest(X,Y,aDate)

HitTestメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

X,Y	マウス座標などをコンテナ単位で指定します。

aDate	日付枠にヒットした場合に、ヒットした日付を表す値が格納されます。

戻り設定値

ヒット個所を表す、次のいずれかの値が返されます。

定数	値	内容

KnCalHitUnknown	0	カレンダーコントロール内の未定義の領域にヒットしました。

KnCalHitDay	1	日付枠にヒットしました。引数aDateに日付を表す値が格納されます。

KnCalHitMonth	2	月表示にヒットしました。

KnCalHitYear	3	年表示にヒットしました。

KnCalHitCaption	4	キャプション領域にヒットしました。


関連事項


例

次のコード例では、マウス座標を使ってヒットテストを行ない、日付枠にヒットした場合は、日付をテキストボックスに表示します。

Private Sub KnCalendar1_MouseMove(_

Button As Integer,Shift As Integer,X As Single,Y As Single)

Dim aDate

Dim nHitCode As KnCalHitCodeConstants

nHitCode =KnCalendar1.HitTest(X,Y,aDate)

If nHitCode =KnCalHitDay Then

Text1 =Str(aDate)

End If

End Sub

※	MouseMoveイベントの引数 X, Yの座標系は常にTwipsです。フォームのScaleModeプロパティの値がTwips以外のときは、ScaleX、及びScaleYメソッドを使ってX, Yの値をコンテナ単位に変換してからHitTestメソッドに渡す必要があります。


対象項目


IsAutumnalEquinoxDayメソッド

関連事項

構文

object.IsAutumnalEquinoxDay(dtDate)

IsAutumnalEquinoxDayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、秋分の日であるか調べます。

秋分の日であった場合は、戻り値としてTrueを返し、秋分の日でない場合は、Falseを返します。

このメソッドを利用するには、AutumnalEquinoxプロパティの設定、及びSetHolidayParamメソッドでの引数nType=KnCalAutumnakEquinoxDayの設定が必要です。（初期状態で設定済み）


関連事項

IsVernalEquinoxDayメソッド


例


対象項目


IsFurikaeメソッド

関連事項

構文

object.IsFurikae (dtDate)

IsFurikaeメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、振替休日であるか調べます。

振替休日であった場合は、戻り値としてTrueを返し、振替休日でない場合は、Falseを返します。


関連事項

IsHolidayメソッド


例


対象項目


IsHolidayメソッド

関連事項

構文

object.IsHoliday(dtDate)

IsHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、休祝日（法定休日、又は個人祝日）か調べます。

休祝日であった場合は、戻り値としてTrueを返し、休祝日でない場合は、Falseを返します。

振替休日であった場合も、Trueを返します。


関連事項

休祝日設定の初期値


例

例１：９６年５月５日が休祝日であるか調べる

if KnCalendar.IsHoliday("1996/5/5")then

'1996/5/5は休祝日である

end if

例２：日付カーソルが位置する日付が休祝日であるか調べる

if KnCalendar.IsHoliday(KnCalendar.DatePosition)then

'日付カーソルが位置する日付は休祝日である

end if


対象項目


IsKokuminKyujituメソッド

関連事項

構文

object.IsKokuminKyujitu (dtDate)

IsKokuminKyujituメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、「国民の休日」か調べます。

「国民の休日」であった場合は、戻り値としてTrueを返し、「国民の休日」でない場合は、Falseを返します。

このメソッドを利用するには、SetHolidayParamメソッドでのnType =KnCalVernalKokuminKyujituの設定が必要です。（初期状態で設定済み）


関連事項

IsHolidayメソッド


例


対象項目


IsLeapYearメソッド

構文

object.IsLeapYear(nYear)

IsLegalHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nYear	調べたい年を、整数で指定します。

解説

指定の年が、閏年か調べます。

閏年であった場合は、戻り値としてTrueを返し、そうでない場合は、Falseを返します。


関連事項


例


対象項目


IsLegalHolidayメソッド

構文

object.IsLegalHoliday(dtDate)

IsLegalHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、法定休日であるか調べます。

法定休日であった場合は、戻り値としてTrueを返し、そうでない場合は、Falseを返します。


関連事項


例

例１：９６年５月５日が法定休日であるか調べる

if KnCalendar.IsLegalHoliday("1999/5/15")then

'1999/5/5は、法定休日である

end if

例２：日付カーソルが位置する日付が法定休日であるか調べる

if KnCalendar.IsLegalHoliday(KnCalendar.DatePosition)then

'日付カーソルが位置する日付は、法定休日である

end if


対象項目


IsSpecialHolidayメソッド

構文

object.IsSpecialHoliday(dtDate)

IsSpecialHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、個人祝日であるか調べます。

個人祝日であった場合は、戻り値としてTrueを返し、そうでない場合は、Falseを返します。


関連事項


例

例１：９６年５月５日が個人祝日であるか調べる

if KnCalendar.IsSpecialHoliday("1999/5/15")then

'1999/5/5は、個人祝日である

end if

例２：日付カーソルが位置する日付が個人祝日であるか調べる

if KnCalendar.IsSpecialHoliday(KnCalendar.DatePosition)then

'日付カーソルが位置する日付は、個人祝日である

end if


対象項目


IsVernalEquinoxDayメソッド

関連事項

構文

object.IsVernalEquinoxDay(dtDate)

IsVernalEquinoxDayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	調べたい日付を、日付型で指定します。

解説

指定の日付が、春分の日であるか調べます。

春分の日であった場合は、戻り値としてTrueを返し、春分の日でない場合は、Falseを返します。

このメソッドを利用するには、VernalEquinoxプロパティの設定、及びSetHolidayParamメソッドでの引数nType=KnCalVernalEquinoxDayの設定が必要です。（初期状態で設定済み）


関連事項

IsAutumnalEquinoxDayメソッド


例


対象項目


LoadDayMemoメソッド

関連事項

構文

object.LoadDayMemo(strFilename)

LoadDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

strFilename	日付メモの書き込まれたファイルへのパスを、文字列で指定します。

解説

日付メモをファイルから読みこみます。

ファイルが存在しないなどの何らかのエラーが発生した場合、Falseを返します。

ファイルフォーマット

日付、文字列、文字カラー、背景からをカンマで区切って列挙した文字列を、1行ずつ並べたもので、具体的には次のようなになります。

1997/2/20,第２会議室でPM3:00より打合せ,0xFFFFFF,0xFF0000

1997/3/10,本場のカレー屋に行く,0xFFFF00,0x000000

1997/3/14,White day,0xFFFFFFFF,0xFFFFFFFF

※	このファイルの中にコメントなどは書き込めません。

※	メモの文字列の中にカンマ(,)やダブルクオーテーション(“)を使用するときは、文字列全体をダブルクオーテションで囲んでください。また文字列中のダブルクオーテーションは、続けて2回入力してください。例を示します。

1997/3/10,“交通費\3,500”,0xFFFF00,0x000000

1997/2/18,“今日のよる“”白魚屋“”で飲む“,0xFFFFFF,0xFF0000

※	カラーを指定する場所に値を書かずカンマだけ書くと、0xFFFFFFFFの指定と同様に解釈します。例を示します。

1997/3/3,V1.1発売日,,←文字カラー、背景カラーとも省略

1997/3/3,V1.1発売日,0xFF,←文字カラーに赤、背景カラーは省略

1997/3/3,V1.1発売日,,0xFF0000    ←文字カラーは省略、背景カラーに青を指定

Tips:このフォーマットの基本はCSVフォーマットなので、CSVファイルを出力できるアプリケーションなどでデータを作成し、CSVフォーマットで出力したファイルをLoadDayMemoメソッドに指定すると簡単です。


関連事項

ClearAllDayMemoメソッド

ClearDayMemoメソッド

GetDayMemoメソッド

SaveDayMemoメソッド

SetDayMemoメソッド


例


対象項目


OffsetDatePositionメソッド

関連事項

構文

object.OffsetDatePosition(nYears,nMonths,nWeeks,nDays)

SetDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nYears	移動したい年数を正値、又は負値で指定します。

nMonths	移動したい月数を正値、又は負値で指定します。

nWeeks	移動したい週数を正値、又は負値で指定します。

nDays	移動したい日数を正値、又は負値で指定します。

解説

日付カーソルの位置を、指定の年数、月数、週数、日数分移動します。


関連事項

DatePositionプロパティ


例


対象項目


SaveDayMemoメソッド

関連事項

構文

object.SaveDayMemo(strFilename)

SaveDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

strFilename	日付メモの書き込み先ファイルへのパスを、文字列で指定します。

解説

日付メモをファイルに書き込みます。

ファイルがすでに開かれているなどの何らかのエラーが発生した場合、Falseを返します。


関連事項

ClearAllDayMemoメソッド

ClearDayMemoメソッド

GetDayMemoメソッド

LoadDayMemoメソッド

SetDayMemoメソッド


例


対象項目


SetDayMemoメソッド

関連事項

構文

object.SetDayMemo(dtDate,strText,clrText,clrBack)

SetDayMemoメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	メモを取得する日付を、日付型で指定します。

strText	メモの文字列を指定します。

clrText	メモの文字カラーをRGB値で指定します。

clrBack	メモの背景カラーをRGB値で指定します。

解説

引数dtDateで指定した日付に日付メモを設定します。

設定に失敗した場合は、Falseを返します。

※引数clrTextの値を&HFFFFFFFFにすると、メモの文字カラーを日付文字のカラーと同じにします。

※引数clrBackの値を&HFFFFFFFFにすると、メモの背景カラーを日付枠の背景カラーと同じにします。


関連事項

ClearAllDayMemoメソッド

ClearDayMemoメソッド

GetDayMemoメソッド

LoadDayMemoメソッド

SaveDayMemoメソッド


例


対象項目


SetHolidayメソッド

構文

object.SetHoliday(dtDate,strName,nType)

SetHolidayメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	休祝日として設定したい日付を、日付型で指定します。

strName	休祝日名を、文字列式で指定します。

nType	法定休日、又は個人祝日を表す値を指定します。

設定値

引数nType の値は次のとおりです。

定数	値	内容

KnCalLegalHoliday	0	法定休日。

KnCalSpecialHoliday	1	個人祝日。

解説

休祝日を日付で設定します。

このメソッド設定する休祝日のパラメータは次のようになります。

日付パラメータ	法定休日	個人祝日

Name	<strName>	<strName>

Type	<nType>	<nType>

EnforceDate	Null	Null

ExpiryDate	Null	Null

Substitute	True	False

DatePattern	KnCalMonthDay	KnCalMonthDay

Month	Month(<dtDate>)	Month(<dtDate>)

DayOrWeekNo	Day(<dtDate>)	Day(<dtDate>)

DayOfWeek	0	0

すでに設定されている日付と同じ日付を指定した場合は、引数nType に関係なく新しい設定内容で置き換えます。同じ日付に複数の休祝日を設定するには、SetHolidayParam2メソッドを使用します。


関連事項


例


対象項目


SetHolidayParamメソッド

関連事項	例

このメソッドは旧バージョンとの互換性のために残しています。Version1.5以上で開発するユーザーは、SetHolidayParam2メソッドを使ってください。

構文

object.SetHolidayParam(strName,nType,nStyle,nMonth,nDayOrWeekNo,nDayOfWeek)

SetHolidayParamメソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

strName	休祝日名を表す文字列が格納されます。

nType	法定休日、又は個人祝日を表す値が格納されます。

nStyle	休祝日の設定スタイルを表す値が格納されます。

nMonth	月を表す値が格納されます。引数nTypeがKnCalVernalEquinoxDay、KnCalAutumnalEquinoxDay、KnCalKokuminKyujituの場合、この値は使用しません。

nDayOrWeekNo	日、又は第何週を表す値が格納されます。nTypeがKnCalMonthDayの場合は、日を指定します。nTypeがKnCalMonthAnyWeekの場合は、第何週を指定します。引数nTypeがnCalMonthLastWeek、KnCalVernalEquinoxDay、KnCalAutumnalEquinoxDay、KnCalKokuminKyujituの場合、この値は使用しません。

nDayOfWeek	曜日を表す値が格納されます。有効な値は1 から7 までの範囲で、日曜 =1 です。引数nTypeがKnCalMonthDay、KnCalVernalEquinoxDay、KnCalAutumnalEquinoxDay、KnCalKokuminKyujituの場合、この値は使用しません。

設定値

引数nTypeの値は次のとおりです。

定数	値	内容

KnCalLegalHoliday	0	法定休日。

KnCalSpecialHoliday	1	個人祝日。

引数nStyleの値は次のとおりです。

定数	値	内容

KnCalMonthDay	0	月／日で休祝日を設定。

KnCalMonthAnyWeek	1	月／第何週／何曜日で休祝日を設定。

KnCalMonthLastWeek	2	月／一番最後の週／何曜日で休祝日を設定。

KnCalVernalEquinoxDay	3	春分の日を有効にする。

KnCalAutumnalEquinoxDay	4	秋分の日を有効にする。

KnCalKokuminKyujitu	5	「国民の休日」を有効にする。

解説

休祝日を詳細なパラメータで設定します。

すでに設定されている日付と同じ日付を指定した場合は、引数nType に関係なく新しい設定内容で置き換えます。

SetHolidayParamメソッドは、EnumHolidayParamメソッドで取得した値を再設定する場合にも使用します。

KnCalLegalHolidayを指定した場合、その日付の曜日が日曜日であった場合は、次の日は振替休日になります。


関連事項

EnumHolidayParamメソッド


例　Holiday.Tblファイルを読み込んで、休祝日を設定します。

Private Sub Command1_Click()

Dim nType As Integer

Dim nStyle As Integer

Dim nMonth As Integer

Dim nDayOrWeekNo As Integer

Dim nDayOfWeek As Integer

Dim strName As String

'EnumHolidayParamメソッドを使って保存しておいた休祝日パラメータを読み込みます。

Open "Holiday.Tbl"For Input As #1

Do While Not EOF(1)

Input #1,strName

Input #1,nType

Input #1,nStyle

Input #1,nMonth

Input #1,nDayOrWeekNo

Input #1,nDayOfWeek

KnCalendar1.SetHolidayParamstrName,nType,nStyle,nMonth,nDayOrWeekNo,nDayOfWeek

Loop

Close #1

End Sub


対象項目


SetHolidayParam2メソッド

関連事項	例

構文

object.SetHolidayParam2 (Name,Type,EnforceDate,ExpiryDate,Substitute,DatePattern,Month,DayOrWeekNo,DayOfWeek)

SetHolidayParam2メソッドの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

Name	休祝日の名称を表す値を文字列型で指定します。

Type	法定休日、又は個人祝日を表す値を数値型で指定します。

EnforceDate	この休祝日が有効になる日付（施行日）を指定します。休祝日は指定の日付より有効になります。期限の開始側に制限を設けない場合は、Nullを指定します。

ExpiryDate	この休祝日が無効になる日付（有効期限）を指定します。休祝日は指定の日付まで有効になります。期限の終了側に制限を設けない場合は、Nullを指定します。

Substitute	日曜日と重なるときに振替休日を発生させるかどうかを表す値をブール型で指定します。

DatePattern	日付の指定パターンを表す値を数値型で指定します。

Month	月を表す値を1から12の間で数値型で指定します。

DayOrWeekNo	日、又は第何週かを表す値を数値型で指定します。日の場合は1～31の間で指定します。

DayOfWeek	曜日を表す値を1(日曜日)～7(土曜日)の間で数値型で指定します。

設定値

引数Type の値は次のとおりです。

定数	値	内容

KnCalLegalHoliday	0	法定休日。

KnCalSpecialHoliday	1	個人祝日。引数Typeにこれを指定した場合、引数Styleには、KnCalMonthDay 、KnCalMonthAnyWeek 、KnCalMonthLastWeek が指定できます。又、引数SubstituteにはFalse を指定してください。

引数Style の値は次のとおりです。

定数	値	内容

KnCalMonthDay	0	月／日で休祝日を設定。引数Styleにこれを指定した場合、引数Monthに月,DayOrWeekNoに日を指定してください。また引数DayOfWeekには0 を指定してください。

KnCalMonthAnyWeek	1	月／第何週／何曜日で休祝日を設定。引数Styleにこれを指定した場合、引数Monthに月,DayOrWeekNoに第何周か、DayOfWeekに曜日を指定してください。曜日は、

KnCalMonthLastWeek	2	月／一番最後の週／何曜日で休祝日を設定。引数Styleにこれを指定した場合、引数Monthに月,DayOfWeekに曜日を指定してください。また引数DayOrWeekNoには0 を指定してください。

KnCalVernalEquinoxDay	3	春分の日を有効にする。引数Styleにこれを指定した場合、引数Month,DayOrWeekNo,DayOfWeekには0 を指定してください。

KnCalAutumnalEquinoxDay	4	秋分の日を有効にする。引数Styleにこれを指定した場合、引数Month,DayOrWeekNo,DayOfWeekには0 を指定してください。

KnCalKokuminKyujitu	5	「国民の休日」を有効にする。引数Styleにこれを指定した場合、引数Month,DayOrWeekNo,DayOfWeekには0 を指定してください。

解説

休祝日を完全なパラメータで設定します。

同じ日付に対応する休祝日も設定できます。特定の日付に複数の休祝日が対応する場合の日付文字の色は、先に設定された休祝日のうちで、且つ法定休日を優先して判断します。

SetHolidayParam2メソッドは、EnumHolidayParam2メソッドで取得した値を再設定する場合にも使用することができます。


関連事項

EnumHolidayParam2メソッド

GetHolidayParam2メソッド


例　父の日(６月の第３日曜日)を設定します。

Private Sub Command1_Click()

'1972年にアメリカでは国民の祝日になりましたので、法定祝日で設定。

KnCalendar1.SetHolidayParam2 _

"父の日",0,"1972/1/1",Null,False,1,6,3,1

'日本の場合、個人祝日で設定。(年代は適当)

KnCalendar1.SetHolidayParam2 _

"父の日",1,"1980/1/1",Null,False,1,6,3,1

End Sub


対象項目


Clickイベント

構文

PrivateSubobject_Click()

Clickイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

カレンダーの任意の場所をクリックしたことを通知します。


関連事項


例


対象項目


DateClickイベント

構文

PrivateSubobject_DateClick(ByValdtDate AsDate)

DateClickイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

dtDate	クリックされた日付を表す、日付型の値を格納します。

解説

日付がクリックされたことを通知します。


関連事項


例


対象項目


DblClickイベント

構文

PrivateSubobject_DblClick()

DblClickイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

解説

カレンダーの任意の場所をダブルクリックしたことを通知します。


関連事項


例


対象項目


KeyDownイベント

構文

PrivateSubobject_KeyDown(keycodeAs Integer,shiftAs Integer)

KeyDownイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

keycode	押下したキーの仮想キーコードです。

shift	イベント発生時のShift、Ctrl、Alt の各キーの状態を示す値です。１はShift、２はCtrl、4はAltが、それぞれ押下中であることを示します。もしCtrlとAltの両方が押下中ならば、２＋４で６という値を得られます。

解説

キーボードの任意のキーを押下したことを通知します。

KeyDownイベントHIDO_KEYUPの詳細は、コンテナアプリケーションのヘルプなどご参照ください。


関連事項


例


対象項目


KeyPressイベント

構文

PrivateSubobject_KeyPress(keycodeAs Integer,shiftAs Integer)

KeyPressイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

keycode	標準のANSI コード、又はシフトJIS コードの数値です。

解説

キーボードの文字のキーを押下したことを通知します。

KeyPressイベントの詳細は、コンテナアプリケーションのヘルプなどご参照ください。


関連事項


例


対象項目


KeyUpイベント

構文

PrivateSubobject_KeyUp(keycodeAs Integer,shiftAs Integer)

KeyUpイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

keycode	押下したキーの仮想キーコードです。

shift	イベント発生時のShift、Ctrl、Alt の各キーの状態を示す値です。１はShift、２はCtrl、4はAltが、それぞれ押下中であることを示します。もしCtrlとAltの両方が押下中ならば、２＋４で６という値を得られます。

解説

キーボードの任意のキーの押下を離したことを通知します。

KeyUpイベントの詳細は、コンテナアプリケーションのヘルプなどご参照ください。


関連事項


例


対象項目


MonthClickイベント

構文

PrivateSubobject_MonthClick(ByValnMonth AsInteger)

MonthClickイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nMonth	現在カレンダーが表示している月を表す、整数を格納します。

解説

月表示がクリックされたことを通知します。


関連事項


例


対象項目


MouseDownイベント

構文

PrivateSubobject_MouseDown(buttonAs Integer,shift As Integer,x As Single,yAs Single)

MouseDownイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

button	押下したマウスボタンを識別する値です。１は左、２は中央、４は右ボタンです。１(左)と４(右)で５といった合成値はありません。

shift	イベント発生時のShift、Ctrl、Alt の各キーの状態を示す値です。１はShift、２はCtrl、4はAltが、それぞれ押下中であることを示します。もしCtrlとAltの両方が押下中ならば、２＋４で６という値を得られます。

x	マウスボタン押下時のマウスのｘ座標です。

y	マウスボタン押下時のマウスのｙ座標です。

解説

マウスのマウスボタンを押下したことを通知します。

MouseDownイベントの詳細は、コンテナアプリケーションのヘルプなどご参照ください。


関連事項


例


対象項目


MouseMoveイベント

構文

PrivateSubobject_MouseMove(buttonAs Integer,shift As Integer,x As Single,yAs Single)

MouseMoveイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

button	押下中のマウスボタンを識別する値です。１は左、２は中央、４は右ボタンです。１(左)と４(右)で５といった合成値はありません。

shift	イベント発生時のShift、Ctrl、Alt の各キーの状態を示す値です。１はShift、２はCtrl、4はAltが、それぞれ押下中であることを示します。もしCtrlとAltの両方が押下中ならば、２＋４で６という値を得られます。

x	マウスボタン押下時のマウスのｘ座標です。

y	マウスボタン押下時のマウスのｙ座標です。

解説

マウスを移動したことを通知します。

MouseMoveイベントの詳細は、コンテナアプリケーションのヘルプなどご参照ください。


関連事項


例


対象項目


MouseUpイベント

構文

PrivateSubobject_MouseUp(buttonAs Integer,shift As Integer,x As Single,yAs Single)

MouseUpイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

button	押下したマウスボタンを識別する値です。１は左、２は中央、４は右ボタンです。１(左)と４(右)で５といった合成値はありません。

shift	イベント発生時のShift、Ctrl、Alt の各キーの状態を示す値です。１はShift、２はCtrl、4はAltが、それぞれ押下中であることを示します。もしCtrlとAltの両方が押下中ならば、２＋４で６という値を得られます。

x	マウスボタン押下時のマウスのｘ座標です。

y	マウスボタン押下時のマウスのｙ座標です。

解説

マウスのマウスボタンの押下を離したことを通知します。

MouseUpイベントの詳細は、コンテナアプリケーションのヘルプなどご参照ください。


関連事項


例


対象項目


NewMonthイベント

構文

PrivateSubobject_NewMonth(ByValnMonthAsInteger)

NewMonthイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nMonth	新しい月を表す、整数を格納します。

解説

表示月が更新されたことを通知します。


関連事項


例


対象項目


NewYearイベント

構文

PrivateSubobject_NewYear(ByValnYearAsInteger)

NewYearイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nYear	新しい年を表す、整数を格納します。

解説

表示年が更新されたことを通知します。


関連事項


例


対象項目


YearClickイベント

構文

PrivateSubobject_YearClick(ByValnYear AsInteger)

YearClickイベントの構文の指定項目は次のとおりです。

指定項目	内容

object	オブジェクトへの参照を表すオブジェクト式を指定します。

nYear	現在カレンダーが表示している年を表す、整数を格納します。

解説

年表示がクリックされたことを通知します。


関連事項


例


対象項目


AppearanceConstants

対象項目

定数	値	内容

KnCalFlat	0	ウィンドウ境界線について、何も施しません。

KnCal3D	1	ウィンドウ境界線を、窪んだように見せます。


対象項目

Appearanceプロパティ


FindDayMemoConstants

対象項目

定数	値	内容

KnCalWholeWord	2	完全に一致する日付メモのみ検索します。

KnCalMatchCase	4	大文字・小文字を区別して検索します。


対象項目

FindDayMemoメソッド


GridFillPatternConstants

対象項目

定数	値	内容

KnCalNotFill	0	日付枠の中を塗りつぶさない。

KnCalHorizontal	1	横縞状に塗りつぶす。（＝週毎に交互に二つの色を配色）

KnCalVertical	2	縦縞状に塗りつぶす。（＝曜日毎に交互に二つの色を配色）

KnCalCross	3	格子状に塗りつぶす。（＝チェス盤のように）


対象項目

GridFillPatternプロパティ


HitCodeConstants

対象項目

定数	値	内容

KnCalHitUnknown	0	カレンダーコントロール内の未定義の領域にヒットしました。

KnCalHitDay	1	日付枠にヒットしました。引数aDateに日付を表す値が格納されます。

KnCalHitMonth	2	月表示にヒットしました。

KnCalHitYear	3	年表示にヒットしました。

KnCalHitCaption	4	キャプション領域にヒットしました。


対象項目

HitTestプロパティ


HolidayStyleConstants

対象項目

定数	値	内容

KnCalMonthDay	0	月／日で休祝日を設定。

KnCalMonthAnyWeek	1	月／第何週／何曜日で休祝日を設定。

KnCalMonthLastWeek	2	月／一番最後の週／何曜日で休祝日を設定。

KnCalVernalEquinoxDay	3	春分の日を有効にする。

KnCalAutumnalEquinoxDay	4	秋分の日を有効にする。

KnCalKokuminKyujitu	5	「国民の休日」を有効にする。


対象項目

EnumHolidayParamメソッド

EnumHolidayParam2メソッド

GetHolidayParamメソッド

SetHolidayParamメソッド

SetHolidayParam2メソッド


HolidayTypeConstants

対象項目

定数	値	内容

KnCalLegalHoliday	0	法定休日

KnCalSpecialHoliday	1	個人祝日


対象項目

EnumHolidayParamメソッド

EnumHolidayParam2メソッド

GetHolidayParamメソッド

SetHolidayメソッド

SetHolidayParamメソッド

SetHolidayParam2メソッド


InitialDateConstants

対象項目

定数	値	内容

KnCalToday	0	コンピュータに設定されている、今日に日付にカーソルを位置づけます。

KnCalPreset	1	デザイン時に、DatePositionプロパティに指定した日付にカーソルを位置づけます。


対象項目

InitialDateプロパティ


PictureLayoutConstants

対象項目

定数	値	内容

KnCalCenter	0	カレンダーコントロールの中央に、グラフィックスを一つ表示します。グラフィックスのない背景領域は、BackColorプロパティの色で塗りつぶされます。

KnCalTile	1	カレンダーコントロールの全体が、グラフィックスで塗りつぶされるように、左上からグラフィックスをタイリング表示します。

KnCalStretch	2	カレンダーコントロールの全体を覆うように、グラフィックス一つを伸縮して表示します。


対象項目

PictureLayoutプロパティ