開発マイルストーン  Version 1.12

モジュール名：WND_DispItem 項目表示用フォーム ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:項目表示画面 【 概 要 】:項目表示用フォーム 【 作 成 者 】: zudajijp 【 作 成 日 】: 2009/03/24 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 UserForm_Initialize 【機能】：ウィンドウ初期化処理 SetNextFocus 【機能】：フォーム上フォーカス移動処理 KeyDown 【機能】：フォーム上キーボード処理 Check_AllSet_KeyDown Check_Jitu_KeyDown Check_Yotei_KeyDown Check_TopItem_KeyDown Check_SecItem_KeyDown Check_Item_No_KeyDown Check_ItemName_KeyDown Check_StartDay_KeyDown Check_DateDiff_KeyDown Check_End__Day_KeyDown Check_StrtJitu_KeyDown Check_DiffJitu_KeyDown Check_End_Jitu_KeyDown Check_OkureDay_KeyDown Check_Progress_KeyDown Check_Kousuu_KeyDown Check_Conect_KeyDown Check_Config_KeyDown Check_Member_KeyDown Check_Status_KeyDown Check_AllSet_Click 【機能】：「全項目」チェック処理 Check_Jitu_Change 【機能】：「実績」チェック処理 Check_Yotei_Change 【機能】：「予定」チェック処理 ChangeFlag 【機能】：チェックON/OFF処理 Check_TopItem_Change Check_SecItem_Change Check_Item_No_Change Check_ItemName_Change Check_StartDay_Change Check_DateDiff_Change Check_End__Day_Change Check_StrtJitu_Change Check_DiffJitu_Change Check_End_Jitu_Change Check_OkureDay_Change Check_Progress_Change Check_Kousuu_Change Check_Conect_Change Check_Config_Change Check_Member_Change Check_Status_Change UserForm_Terminate 【機能】：ウィンドウ終了処理  プロシジャー記述書 　関数名　 　UserForm_Initialize　 概要 【機能】：ウィンドウ初期化処理 処理 ウィンドウ初期化処理 形式 Private Sub UserForm_Initialize() 可視性 プライベート 引数 なし 　関数名　 　SetNextFocus　 概要 【機能】：フォーム上フォーカス移動処理 処理 ↑↓キーでフォーカスを移動する 形式 Private Function SetNextFocus(n As Integer) 可視性 プライベート 引数 n Integer [-1]↑,[1]↓ 戻り値 Variant 　関数名　 　KeyDown　 概要 【機能】：フォーム上キーボード処理 処理 押されたキーに応じて処理を行う 形式 Private Sub KeyDown(ByVal KeyCode As Integer) 可視性 プライベート 引数 KeyCode Integer キーコード 　関数名　 　Check_AllSet_KeyDown　 概要 処理 形式 Private Sub Check_AllSet_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Jitu_KeyDown　 概要 処理 形式 Private Sub Check_Jitu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Yotei_KeyDown　 概要 処理 形式 Private Sub Check_Yotei_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_TopItem_KeyDown　 概要 処理 形式 Private Sub Check_TopItem_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_SecItem_KeyDown　 概要 処理 形式 Private Sub Check_SecItem_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Item_No_KeyDown　 概要 処理 形式 Private Sub Check_Item_No_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_ItemName_KeyDown　 概要 処理 形式 Private Sub Check_ItemName_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_StartDay_KeyDown　 概要 処理 形式 Private Sub Check_StartDay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_DateDiff_KeyDown　 概要 処理 形式 Private Sub Check_DateDiff_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_End__Day_KeyDown　 概要 処理 形式 Private Sub Check_End__Day_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_StrtJitu_KeyDown　 概要 処理 形式 Private Sub Check_StrtJitu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_DiffJitu_KeyDown　 概要 処理 形式 Private Sub Check_DiffJitu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_End_Jitu_KeyDown　 概要 処理 形式 Private Sub Check_End_Jitu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_OkureDay_KeyDown　 概要 処理 形式 Private Sub Check_OkureDay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Progress_KeyDown　 概要 処理 形式 Private Sub Check_Progress_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Kousuu_KeyDown　 概要 処理 形式 Private Sub Check_Kousuu_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Conect_KeyDown　 概要 処理 形式 Private Sub Check_Conect_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Config_KeyDown　 概要 処理 形式 Private Sub Check_Config_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Member_KeyDown　 概要 処理 形式 Private Sub Check_Member_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Status_KeyDown　 概要 処理 【機能】：「全項目」チェック処理 形式 Private Sub Check_Status_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_AllSet_Click　 概要 【機能】：「全項目」チェック処理 処理 「全項目」チェック処理 形式 Private Sub Check_AllSet_Click() 可視性 プライベート 引数 なし 　関数名　 　Check_Jitu_Change　 概要 【機能】：「実績」チェック処理 処理 「実績」チェック処理 形式 Private Sub Check_Jitu_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_Yotei_Change　 概要 【機能】：「予定」チェック処理 処理 「予定」チェック処理 形式 Private Sub Check_Yotei_Change() 可視性 プライベート 引数 なし 　関数名　 　ChangeFlag　 概要 【機能】：チェックON/OFF処理 処理 チェックON/OFF処理 形式 Private Sub ChangeFlag(cname As String, obj As Object, flg As Boolean) 可視性 プライベート 引数 cname String セル名 obj Object チェックボックス flg Boolean Hiddenフラグ 　関数名　 　Check_TopItem_Change　 概要 処理 形式 Private Sub Check_TopItem_Change(): Call ChangeFlag("DEFC_DspFlg_TopItem", Check_TopItem, GL_Disp.TopItem_Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_SecItem_Change　 概要 処理 形式 Private Sub Check_SecItem_Change(): Call ChangeFlag("DEFC_DspFlg_SecItem", Check_SecItem, GL_Disp.TopItem2Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Item_No_Change　 概要 処理 形式 Private Sub Check_Item_No_Change(): Call ChangeFlag("DEFC_DspFlg_Item_No", Check_Item_No, GL_Disp.Item_No_Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_ItemName_Change　 概要 処理 形式 Private Sub Check_ItemName_Change(): Call ChangeFlag("DEFC_DspFlg_ItemName", Check_ItemName, GL_Disp.ItemNameHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_StartDay_Change　 概要 処理 形式 Private Sub Check_StartDay_Change(): Call ChangeFlag("DEFC_DspFlg_StartDay", Check_StartDay, GL_Disp.StartDayHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_DateDiff_Change　 概要 処理 形式 Private Sub Check_DateDiff_Change(): Call ChangeFlag("DEFC_DspFlg_DateDiff", Check_DateDiff, GL_Disp.DateDiffHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_End__Day_Change　 概要 処理 形式 Private Sub Check_End__Day_Change(): Call ChangeFlag("DEFC_DspFlg_End__Day", Check_End__Day, GL_Disp.End__DayHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_StrtJitu_Change　 概要 処理 形式 Private Sub Check_StrtJitu_Change(): Call ChangeFlag("DEFC_DspFlg_StrtJitu", Check_StrtJitu, GL_Disp.StrtJituHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_DiffJitu_Change　 概要 処理 形式 Private Sub Check_DiffJitu_Change(): Call ChangeFlag("DEFC_DspFlg_DiffJitu", Check_DiffJitu, GL_Disp.DiffJituHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_End_Jitu_Change　 概要 処理 形式 Private Sub Check_End_Jitu_Change(): Call ChangeFlag("DEFC_DspFlg_End_Jitu", Check_End_Jitu, GL_Disp.End_JituHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_OkureDay_Change　 概要 処理 形式 Private Sub Check_OkureDay_Change(): Call ChangeFlag("DEFC_DspFlg_OkureDay", Check_OkureDay, GL_Disp.OkureDayHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Progress_Change　 概要 処理 形式 Private Sub Check_Progress_Change(): Call ChangeFlag("DEFC_DspFlg_Progress", Check_Progress, GL_Disp.ProgressHidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Kousuu_Change　 概要 処理 形式 Private Sub Check_Kousuu_Change(): Call ChangeFlag("DEFC_DspFlg_Kousuu", Check_Kousuu, GL_Disp.Kousuu__Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Conect_Change　 概要 処理 形式 Private Sub Check_Conect_Change(): Call ChangeFlag("DEFC_DspFlg_Conect", Check_Conect, GL_Disp.Conect__Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Config_Change　 概要 処理 形式 Private Sub Check_Config_Change(): Call ChangeFlag("DEFC_DspFlg_Config", Check_Config, GL_Disp.Config__Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Member_Change　 概要 処理 形式 Private Sub Check_Member_Change(): Call ChangeFlag("DEFC_DspFlg_Member", Check_Member, GL_Disp.Member__Hidden): End Sub 可視性 プライベート 引数 　関数名　 　Check_Status_Change　 概要 処理 -------------------------------------------------------- 【機能】：ウィンドウ終了処理 形式 Private Sub Check_Status_Change(): Call ChangeFlag("DEFC_DspFlg_Status", Check_Status, GL_Disp.Status__Hidden): End Sub 可視性 プライベート 引数 　関数名　 　UserForm_Terminate　 概要 【機能】：ウィンドウ終了処理 処理 ウィンドウ終了処理 形式 Private Sub UserForm_Terminate() 可視性 プライベート 引数 なし

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