'//クラス内のグローバル変数//
Private calObject As Object 'カレンダーを描画するオブジェクト
Private TargetYear As Long '描画するカレンダーの年
Private TargetMonth As Long '描画するカレンダーの月
'//クラス内のグローバル定数//
'//これらの定数値を変数にして自在性のあるものにしても面白い//
Private Const C_WIDTH = 30& '1つの日付の領域の幅
Private Const C_HEIGHT = 30& '1つの日付の領域の高さ
Private Const G_LENGTH = 1& '枠線の太さ
Private Const SUNDAY_COLOR = &HFF '日曜日と祝日の色
Private Const SUTURDAY_COLOR = &HFF0000 '土曜日の色
Private Const OTHER_COLOR = &H0 'その他の曜日の色
Private Const DAYS_FONT = "MS ゴシック" 'フォント
Private Const FONT_SIZE = 12& 'フォントの大きさ
Private Const GRID_COLOR = &HC0C0C0 '枠線の色
Private Const HGRID = True '横方向の枠線の有無
Private Const VGRID = False '縦方向の枠線の有無
'-----あまり意味をなさない定数,一応つけておきました-----
Private Const START_X = 0& 'カレンダー描画開始点
Private Const START_Y = 0&
Private Const END_X = 0& '右部分の余白
Private Const END_Y = 0& '下部分の余白
|