開発マイルストーン  Version 1.12

モジュール名：WND_Calender カレンダー入力用フォーム ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:カレンダー入力画面 【 概 要 】:カレンダー入力用フォーム 【 作 成 者 】: zudajijp 【 作 成 日 】: 2008/01/07 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 UserForm_Initialize 【機能】：フォーム初期化(繰り返し表示の場合はHideのみのためInitializeは起きない) UserForm_KeyDown 【機能】：フォーム上キーボード処理 UserForm_MouseMove 【機能】：フォーム上マウス移動 UserForm_QueryClose_ 【機能】：フォーム終了 UserForm_Terminate 【機能】：フォーム終了 UserForm_Activate 【機能】：フォームがアクティブになった時の処理 CBO_MONTH_Change 【機能】：「月」コンボの操作イベント CBO_YEAR_Change 【機能】：「年」コンボの操作イベント LBL_PREV_Click 【機能】：「←(前月)」Clickイベント LBL_NEXT_Click 【機能】：「→(翌月)」Clickイベント LBL_MONTH_Click 【機能】：「月」Clickイベント LBL_YEAR_Click 【機能】：「年」Clickイベント GP_MakeCalendar 【機能】：カレンダー表示処理 GP_MOVE_DAY 【機能】：カレンダー上の移動処理 GP_ClickCalendar 【機能】：カレンダークリック処理 ERASE_YEAR_MONTH 【機能】：「年」「月」コンボの非表示化 ERASE_YEAR 【機能】：「年」コンボの非表示化 ERASE_MONTH 【機能】：「月」コンボの非表示化 LBL_01_Click 各日付ラベル(7曜×6週=42件、対応日付は表示時点で配列化されている) LBL_02_Click LBL_03_Click LBL_04_Click LBL_05_Click LBL_06_Click LBL_07_Click LBL_08_Click LBL_09_Click LBL_10_Click LBL_11_Click LBL_12_Click LBL_13_Click LBL_14_Click LBL_15_Click LBL_16_Click LBL_17_Click LBL_18_Click LBL_19_Click LBL_20_Click LBL_21_Click LBL_22_Click LBL_23_Click LBL_24_Click LBL_25_Click LBL_26_Click LBL_27_Click LBL_28_Click LBL_29_Click LBL_30_Click LBL_31_Click LBL_32_Click LBL_33_Click LBL_34_Click LBL_35_Click LBL_36_Click LBL_37_Click LBL_38_Click LBL_39_Click LBL_40_Click LBL_41_Click LBL_42_Click LBL_43_Click 昨日、今日、明日ラベル LBL_44_Click LBL_45_Click LBL_01_MouseMove 可変ガイドメッセージ LBL_02_MouseMove LBL_03_MouseMove LBL_04_MouseMove LBL_05_MouseMove LBL_06_MouseMove LBL_07_MouseMove LBL_08_MouseMove LBL_09_MouseMove LBL_10_MouseMove LBL_11_MouseMove LBL_12_MouseMove LBL_13_MouseMove LBL_14_MouseMove LBL_15_MouseMove LBL_16_MouseMove LBL_17_MouseMove LBL_18_MouseMove LBL_19_MouseMove LBL_20_MouseMove LBL_21_MouseMove LBL_22_MouseMove LBL_23_MouseMove LBL_24_MouseMove LBL_25_MouseMove LBL_26_MouseMove LBL_27_MouseMove LBL_28_MouseMove LBL_29_MouseMove LBL_30_MouseMove LBL_31_MouseMove LBL_32_MouseMove LBL_33_MouseMove LBL_34_MouseMove LBL_35_MouseMove LBL_36_MouseMove LBL_37_MouseMove LBL_38_MouseMove LBL_39_MouseMove LBL_40_MouseMove LBL_41_MouseMove LBL_42_MouseMove LBL_43_MouseMove LBL_44_MouseMove LBL_45_MouseMove LBL_SUN_MouseMove 固定ガイド(曜日ラベル等) LBL_MON_MouseMove LBL_TUE_MouseMove LBL_WED_MouseMove LBL_THU_MouseMove LBL_FRI_MouseMove LBL_SAT_MouseMove LBL_PREV_MouseMove LBL_NEXT_MouseMove LBL_YM_MouseMove LBL_YEAR_MouseMove LBL_MONTH_MouseMove  プロシジャー記述書 　関数名　 　UserForm_Initialize　 概要 【機能】：フォーム初期化(繰り返し表示の場合はHideのみのためInitializeは起きない) 処理 値の初期化および日付ラベルなどをセットする 形式 Private Sub UserForm_Initialize() 可視性 プライベート 引数 なし 　関数名　 　UserForm_KeyDown　 概要 【機能】：フォーム上キーボード処理 処理 押されたキーに応じて処理を行う 形式 Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger キーコード Shift Integer [1]:Shift、[2]:Ctrl 　関数名　 　UserForm_MouseMove　 概要 【機能】：フォーム上マウス移動 処理 フォーム上をマウス移動した時のキャプション表示 形式 Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 可視性 プライベート 引数 Button Integer (未使用) Shift Integer (未使用) X Single (未使用) Y Single (未使用) 　関数名　 　UserForm_QueryClose_　 概要 【機能】：フォーム終了 処理 フォーム終了(CloseではなくHide) 形式 Private Sub UserForm_QueryClose_(Cancel As Integer, CloseMode As Integer) 可視性 プライベート 引数 Cancel Integer キャンセル CloseMode Integer (未使用) 　関数名　 　UserForm_Terminate　 概要 【機能】：フォーム終了 処理 フォーム終了時の処理 形式 Private Sub UserForm_Terminate() 可視性 プライベート 引数 なし 　関数名　 　UserForm_Activate　 概要 【機能】：フォームがアクティブになった時の処理 処理 フォーム表示(繰り返し表示の場合はHideのみのためInitializeは起きない) 形式 Private Sub UserForm_Activate() 可視性 プライベート 引数 なし 　関数名　 　CBO_MONTH_Change　 概要 【機能】：「月」コンボの操作イベント 処理 「月」コンボ変更時の操作およびカレンダー作成を行う 形式 Private Sub CBO_MONTH_Change() 可視性 プライベート 引数 なし 　関数名　 　CBO_YEAR_Change　 概要 【機能】：「年」コンボの操作イベント 処理 「年」コンボ変更時の操作およびカレンダー作成を行う 形式 Private Sub CBO_YEAR_Change() 可視性 プライベート 引数 なし 　関数名　 　LBL_PREV_Click　 概要 【機能】：「←(前月)」Clickイベント 処理 「←(前月)」クリック時の「年月」コンボの操作およびカレンダー作成を行う 形式 Private Sub LBL_PREV_Click() 可視性 プライベート 引数 なし 　関数名　 　LBL_NEXT_Click　 概要 【機能】：「→(翌月)」Clickイベント 処理 「→(翌月)」クリック時の「年月」コンボの操作およびカレンダー作成を行う 形式 Private Sub LBL_NEXT_Click() 可視性 プライベート 引数 なし 　関数名　 　LBL_MONTH_Click　 概要 【機能】：「月」Clickイベント 処理 「月」クリック時の「月」コンボ操作を行う 形式 Private Sub LBL_MONTH_Click() 可視性 プライベート 引数 なし 　関数名　 　LBL_YEAR_Click　 概要 【機能】：「年」Clickイベント 処理 「年」クリック時の「年」コンボ操作を行う 形式 Private Sub LBL_YEAR_Click() 可視性 プライベート 引数 なし 　関数名　 　GP_MakeCalendar　 概要 【機能】：カレンダー表示処理 処理 カレンダーを表示する 形式 Private Sub GP_MakeCalendar() 可視性 プライベート 引数 なし 　関数名　 　GP_MOVE_DAY　 概要 【機能】：カレンダー上の移動処理 処理 カレンダー上移動での選択、反転処理を行う 形式 Private Sub GP_MOVE_DAY(intIDOU As Integer) 可視性 プライベート 引数 intIDOU Integer 移動位置 　関数名　 　GP_ClickCalendar　 概要 【機能】：カレンダークリック処理 処理 カレンダークリック時の閉じる(Hide)処理 形式 Private Sub GP_ClickCalendar(dteDate As Date) 可視性 プライベート 引数 dteDate Date 現在の選択日付(シリアル値) 　関数名　 　ERASE_YEAR_MONTH　 概要 【機能】：「年」「月」コンボの非表示化 処理 「年」「月」コンボを非表示にする 形式 Private Sub ERASE_YEAR_MONTH() 可視性 プライベート 引数 なし 　関数名　 　ERASE_YEAR　 概要 【機能】：「年」コンボの非表示化 処理 「年」コンボを非表示にする 形式 Private Sub ERASE_YEAR() 可視性 プライベート 引数 なし 　関数名　 　ERASE_MONTH　 概要 【機能】：「月」コンボの非表示化 処理 「月」コンボを非表示にする 形式 Private Sub ERASE_MONTH() 可視性 プライベート 引数 なし 　関数名　 　LBL_01_Click　 概要 各日付ラベル(7曜×6週=42件、対応日付は表示時点で配列化されている) 処理 形式 Private Sub LBL_01_Click(): Call GP_ClickCalendar(tblDate2(1)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_02_Click　 概要 処理 形式 Private Sub LBL_02_Click(): Call GP_ClickCalendar(tblDate2(2)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_03_Click　 概要 処理 形式 Private Sub LBL_03_Click(): Call GP_ClickCalendar(tblDate2(3)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_04_Click　 概要 処理 形式 Private Sub LBL_04_Click(): Call GP_ClickCalendar(tblDate2(4)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_05_Click　 概要 処理 形式 Private Sub LBL_05_Click(): Call GP_ClickCalendar(tblDate2(5)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_06_Click　 概要 処理 形式 Private Sub LBL_06_Click(): Call GP_ClickCalendar(tblDate2(6)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_07_Click　 概要 処理 形式 Private Sub LBL_07_Click(): Call GP_ClickCalendar(tblDate2(7)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_08_Click　 概要 処理 形式 Private Sub LBL_08_Click(): Call GP_ClickCalendar(tblDate2(8)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_09_Click　 概要 処理 形式 Private Sub LBL_09_Click(): Call GP_ClickCalendar(tblDate2(9)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_10_Click　 概要 処理 形式 Private Sub LBL_10_Click(): Call GP_ClickCalendar(tblDate2(10)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_11_Click　 概要 処理 形式 Private Sub LBL_11_Click(): Call GP_ClickCalendar(tblDate2(11)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_12_Click　 概要 処理 形式 Private Sub LBL_12_Click(): Call GP_ClickCalendar(tblDate2(12)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_13_Click　 概要 処理 形式 Private Sub LBL_13_Click(): Call GP_ClickCalendar(tblDate2(13)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_14_Click　 概要 処理 形式 Private Sub LBL_14_Click(): Call GP_ClickCalendar(tblDate2(14)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_15_Click　 概要 処理 形式 Private Sub LBL_15_Click(): Call GP_ClickCalendar(tblDate2(15)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_16_Click　 概要 処理 形式 Private Sub LBL_16_Click(): Call GP_ClickCalendar(tblDate2(16)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_17_Click　 概要 処理 形式 Private Sub LBL_17_Click(): Call GP_ClickCalendar(tblDate2(17)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_18_Click　 概要 処理 形式 Private Sub LBL_18_Click(): Call GP_ClickCalendar(tblDate2(18)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_19_Click　 概要 処理 形式 Private Sub LBL_19_Click(): Call GP_ClickCalendar(tblDate2(19)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_20_Click　 概要 処理 形式 Private Sub LBL_20_Click(): Call GP_ClickCalendar(tblDate2(20)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_21_Click　 概要 処理 形式 Private Sub LBL_21_Click(): Call GP_ClickCalendar(tblDate2(21)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_22_Click　 概要 処理 形式 Private Sub LBL_22_Click(): Call GP_ClickCalendar(tblDate2(22)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_23_Click　 概要 処理 形式 Private Sub LBL_23_Click(): Call GP_ClickCalendar(tblDate2(23)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_24_Click　 概要 処理 形式 Private Sub LBL_24_Click(): Call GP_ClickCalendar(tblDate2(24)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_25_Click　 概要 処理 形式 Private Sub LBL_25_Click(): Call GP_ClickCalendar(tblDate2(25)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_26_Click　 概要 処理 形式 Private Sub LBL_26_Click(): Call GP_ClickCalendar(tblDate2(26)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_27_Click　 概要 処理 形式 Private Sub LBL_27_Click(): Call GP_ClickCalendar(tblDate2(27)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_28_Click　 概要 処理 形式 Private Sub LBL_28_Click(): Call GP_ClickCalendar(tblDate2(28)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_29_Click　 概要 処理 形式 Private Sub LBL_29_Click(): Call GP_ClickCalendar(tblDate2(29)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_30_Click　 概要 処理 形式 Private Sub LBL_30_Click(): Call GP_ClickCalendar(tblDate2(30)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_31_Click　 概要 処理 形式 Private Sub LBL_31_Click(): Call GP_ClickCalendar(tblDate2(31)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_32_Click　 概要 処理 形式 Private Sub LBL_32_Click(): Call GP_ClickCalendar(tblDate2(32)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_33_Click　 概要 処理 形式 Private Sub LBL_33_Click(): Call GP_ClickCalendar(tblDate2(33)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_34_Click　 概要 処理 形式 Private Sub LBL_34_Click(): Call GP_ClickCalendar(tblDate2(34)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_35_Click　 概要 処理 形式 Private Sub LBL_35_Click(): Call GP_ClickCalendar(tblDate2(35)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_36_Click　 概要 処理 形式 Private Sub LBL_36_Click(): Call GP_ClickCalendar(tblDate2(36)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_37_Click　 概要 処理 形式 Private Sub LBL_37_Click(): Call GP_ClickCalendar(tblDate2(37)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_38_Click　 概要 処理 形式 Private Sub LBL_38_Click(): Call GP_ClickCalendar(tblDate2(38)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_39_Click　 概要 処理 形式 Private Sub LBL_39_Click(): Call GP_ClickCalendar(tblDate2(39)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_40_Click　 概要 処理 形式 Private Sub LBL_40_Click(): Call GP_ClickCalendar(tblDate2(40)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_41_Click　 概要 処理 形式 Private Sub LBL_41_Click(): Call GP_ClickCalendar(tblDate2(41)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_42_Click　 概要 処理 ------------------------------------------------------------------------------- 昨日、今日、明日ラベル 形式 Private Sub LBL_42_Click(): Call GP_ClickCalendar(tblDate2(42)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_43_Click　 概要 昨日、今日、明日ラベル 処理 形式 Private Sub LBL_43_Click(): Call GP_ClickCalendar(tblDate2(43)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_44_Click　 概要 処理 形式 Private Sub LBL_44_Click(): Call GP_ClickCalendar(tblDate2(44)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_45_Click　 概要 処理 ------------------------------------------------------------------------------- 可変ガイドメッセージ 形式 Private Sub LBL_45_Click(): Call GP_ClickCalendar(tblDate2(45)): End Sub 可視性 プライベート 引数 　関数名　 　LBL_01_MouseMove　 概要 可変ガイドメッセージ 処理 形式 Private Sub LBL_01_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(1): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_02_MouseMove　 概要 処理 形式 Private Sub LBL_02_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(2): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_03_MouseMove　 概要 処理 形式 Private Sub LBL_03_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(3): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_04_MouseMove　 概要 処理 形式 Private Sub LBL_04_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(4): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_05_MouseMove　 概要 処理 形式 Private Sub LBL_05_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(5): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_06_MouseMove　 概要 処理 形式 Private Sub LBL_06_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(6): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_07_MouseMove　 概要 処理 形式 Private Sub LBL_07_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(7): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_08_MouseMove　 概要 処理 形式 Private Sub LBL_08_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(8): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_09_MouseMove　 概要 処理 形式 Private Sub LBL_09_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(9): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_10_MouseMove　 概要 処理 形式 Private Sub LBL_10_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(10): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_11_MouseMove　 概要 処理 形式 Private Sub LBL_11_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(11): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_12_MouseMove　 概要 処理 形式 Private Sub LBL_12_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(12): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_13_MouseMove　 概要 処理 形式 Private Sub LBL_13_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(13): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_14_MouseMove　 概要 処理 形式 Private Sub LBL_14_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(14): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_15_MouseMove　 概要 処理 形式 Private Sub LBL_15_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(15): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_16_MouseMove　 概要 処理 形式 Private Sub LBL_16_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(16): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_17_MouseMove　 概要 処理 形式 Private Sub LBL_17_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(17): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_18_MouseMove　 概要 処理 形式 Private Sub LBL_18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(18): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_19_MouseMove　 概要 処理 形式 Private Sub LBL_19_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(19): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_20_MouseMove　 概要 処理 形式 Private Sub LBL_20_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(20): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_21_MouseMove　 概要 処理 形式 Private Sub LBL_21_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(21): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_22_MouseMove　 概要 処理 形式 Private Sub LBL_22_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(22): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_23_MouseMove　 概要 処理 形式 Private Sub LBL_23_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(23): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_24_MouseMove　 概要 処理 形式 Private Sub LBL_24_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(24): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_25_MouseMove　 概要 処理 形式 Private Sub LBL_25_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(25): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_26_MouseMove　 概要 処理 形式 Private Sub LBL_26_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(26): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_27_MouseMove　 概要 処理 形式 Private Sub LBL_27_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(27): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_28_MouseMove　 概要 処理 形式 Private Sub LBL_28_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(28): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_29_MouseMove　 概要 処理 形式 Private Sub LBL_29_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(29): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_30_MouseMove　 概要 処理 形式 Private Sub LBL_30_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(30): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_31_MouseMove　 概要 処理 形式 Private Sub LBL_31_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(31): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_32_MouseMove　 概要 処理 形式 Private Sub LBL_32_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(32): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_33_MouseMove　 概要 処理 形式 Private Sub LBL_33_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(33): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_34_MouseMove　 概要 処理 形式 Private Sub LBL_34_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(34): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_35_MouseMove　 概要 処理 形式 Private Sub LBL_35_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(35): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_36_MouseMove　 概要 処理 形式 Private Sub LBL_36_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(36): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_37_MouseMove　 概要 処理 形式 Private Sub LBL_37_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(37): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_38_MouseMove　 概要 処理 形式 Private Sub LBL_38_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(38): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_39_MouseMove　 概要 処理 形式 Private Sub LBL_39_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(39): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_40_MouseMove　 概要 処理 形式 Private Sub LBL_40_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(40): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_41_MouseMove　 概要 処理 形式 Private Sub LBL_41_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(41): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_42_MouseMove　 概要 処理 形式 Private Sub LBL_42_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(42): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_43_MouseMove　 概要 処理 形式 Private Sub LBL_43_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(43): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_44_MouseMove　 概要 処理 形式 Private Sub LBL_44_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(44): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_45_MouseMove　 概要 処理 ------------------------------------------------------------------------------- 固定ガイド(曜日ラベル等) 形式 Private Sub LBL_45_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = tblGuide(45): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_SUN_MouseMove　 概要 固定ガイド(曜日ラベル等) 処理 形式 Private Sub LBL_SUN_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_MON_MouseMove　 概要 処理 形式 Private Sub LBL_MON_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_TUE_MouseMove　 概要 処理 形式 Private Sub LBL_TUE_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_WED_MouseMove　 概要 処理 形式 Private Sub LBL_WED_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_THU_MouseMove　 概要 処理 形式 Private Sub LBL_THU_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_FRI_MouseMove　 概要 処理 形式 Private Sub LBL_FRI_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_SAT_MouseMove　 概要 処理 形式 Private Sub LBL_SAT_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(0): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_PREV_MouseMove　 概要 処理 形式 Private Sub LBL_PREV_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(1): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_NEXT_MouseMove　 概要 処理 形式 Private Sub LBL_NEXT_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(2): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_YM_MouseMove　 概要 処理 形式 Private Sub LBL_YM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(3): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_YEAR_MouseMove　 概要 処理 形式 Private Sub LBL_YEAR_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(4): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single): 　関数名　 　LBL_MONTH_MouseMove　 概要 処理 形式 Private Sub LBL_MONTH_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): LBL_GUIDE.Caption = cnsDefaultGuide(5): End Sub 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single):

Copyright (c) 2007-2009 zudajijp. All Rights Reserved.