開発マイルストーン  Version 1.12

モジュール名：WND_DispObj オブジェクト表示用フォーム ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:オブジェクト表示画面 【 概 要 】:オブジェクト表示用フォーム 【 作 成 者 】: zudajijp 【 作 成 日 】: 2009/03/24 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 UserForm_Initialize 【機能】：ウィンドウ初期化処理 SetConfValueONOFF SetConfValueList OK_Click 【機能】：ＯＫクリック処理 Cancel_Click 【機能】：キャンセルクリック処理 SetNextFocus 【機能】：フォーム上フォーカス移動処理 KeyDown 【機能】：フォーム上キーボード処理 Check_StartDay_KeyDown Check_End__Day_KeyDown Check_ConLine_KeyDown Check_NowLine_KeyDown Check_Inazuma_KeyDown Check_Coment_KeyDown Check_Jitu_KeyDown Check_Kousuu_KeyDown Chart_LineWidth_KeyDown Chart_JituPos_KeyDown Chart_FrameFix_KeyDown OK_KeyDown Cancel_KeyDown Chart_FrameFix_Change Chart_JituPos_Change Chart_LineWidth_Change Check_Coment_Change Check_ConLine_Change Check_Inazuma_Change Check_Jitu_Change Check_Kousuu_Change Check_NowLine_Change Check_StartDay_Change Check_End__Day_Change  プロシジャー記述書 　関数名　 　UserForm_Initialize　 概要 【機能】：ウィンドウ初期化処理 処理 ウィンドウ初期化処理 形式 Private Sub UserForm_Initialize() 可視性 プライベート 引数 なし 　関数名　 　SetConfValueONOFF　 概要 処理 形式 Private Sub SetConfValueONOFF(cname As String, flg As Boolean) 可視性 プライベート 引数 cname String flg Boolean 　関数名　 　SetConfValueList　 概要 処理 形式 Private Sub SetConfValueList(cname As String, val As String) 可視性 プライベート 引数 cname String val String 　関数名　 　OK_Click　 概要 【機能】：ＯＫクリック処理 処理 オブジェクト表示設定を変更し、フォームを閉じる(Unload) 形式 Private Sub OK_Click() 可視性 プライベート 引数 なし 　関数名　 　Cancel_Click　 概要 【機能】：キャンセルクリック処理 処理 フォームを閉じる(Unload) 形式 Private Sub Cancel_Click() 可視性 プライベート 引数 なし 　関数名　 　SetNextFocus　 概要 【機能】：フォーム上フォーカス移動処理 処理 ↑↓キーでフォーカスを移動する 形式 Private Function SetNextFocus(n As Integer) 可視性 プライベート 引数 n Integer [-1]↑,[1]↓ 戻り値 Variant 　関数名　 　KeyDown　 概要 【機能】：フォーム上キーボード処理 処理 押されたキーに応じて処理を行う 形式 Private Sub KeyDown(ByVal KeyCode As Integer, Shift As Integer) 可視性 プライベート 引数 KeyCode Integer キーコード Shift Integer [1]:Shift、[2]:Ctrl 　関数名　 　Check_StartDay_KeyDown　 概要 処理 形式 Private Sub Check_StartDay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): 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, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_ConLine_KeyDown　 概要 処理 形式 Private Sub Check_ConLine_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_NowLine_KeyDown　 概要 処理 形式 Private Sub Check_NowLine_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Inazuma_KeyDown　 概要 処理 形式 Private Sub Check_Inazuma_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Check_Coment_KeyDown　 概要 処理 形式 Private Sub Check_Coment_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): 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, Shift): 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, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_LineWidth_KeyDown　 概要 処理 形式 Private Sub Chart_LineWidth_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_JituPos_KeyDown　 概要 処理 形式 Private Sub Chart_JituPos_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_FrameFix_KeyDown　 概要 処理 形式 Private Sub Chart_FrameFix_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　OK_KeyDown　 概要 処理 形式 Private Sub OK_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Cancel_KeyDown　 概要 処理 形式 Private Sub Cancel_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_FrameFix_Change　 概要 処理 形式 Private Sub Chart_FrameFix_Change() 可視性 プライベート 引数 なし 　関数名　 　Chart_JituPos_Change　 概要 処理 形式 Private Sub Chart_JituPos_Change() 可視性 プライベート 引数 なし 　関数名　 　Chart_LineWidth_Change　 概要 処理 形式 Private Sub Chart_LineWidth_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_Coment_Change　 概要 処理 形式 Private Sub Check_Coment_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_ConLine_Change　 概要 処理 形式 Private Sub Check_ConLine_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_Inazuma_Change　 概要 処理 形式 Private Sub Check_Inazuma_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_Jitu_Change　 概要 処理 形式 Private Sub Check_Jitu_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_Kousuu_Change　 概要 処理 形式 Private Sub Check_Kousuu_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_NowLine_Change　 概要 処理 形式 Private Sub Check_NowLine_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_StartDay_Change　 概要 処理 形式 Private Sub Check_StartDay_Change() 可視性 プライベート 引数 なし 　関数名　 　Check_End__Day_Change　 概要 処理 形式 Private Sub Check_End__Day_Change() 可視性 プライベート 引数 なし

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