開発マイルストーン  Version 1.12

モジュール名：WND_BaseDate チャート表示設定用フォーム ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:チャート表示設定画面 【 概 要 】:チャート表示設定用フォーム 【 作 成 者 】: zudajijp 【 作 成 日 】: 2009/03/18 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 UserForm_Initialize 【機能】：ウィンドウ初期化処理 OK_Click 【機能】：ＯＫクリック処理 AdjustVal_Click 【機能】：最適値チェック ConfigVal_Click 【機能】：設定値チェック SetNextFocus 【機能】：フォーム上フォーカス移動処理 Cancel_Click 【機能】：キャンセルクリック処理 Chart_StartDay_MouseUp 【機能】：開始日エリアクリック処理 Chart_NowDate_MouseUp 【機能】：表示基準日エリアクリック処理 KeyDown 【機能】：フォーム上キーボード処理 Chart_StartDay_KeyDown Chart_Span_KeyDown Chart_Term_KeyDown Chart_NowDate_KeyDown AdjustVal_KeyDown ConfigVal_KeyDown OK_KeyDown Cancel_KeyDown  プロシジャー記述書 　関数名　 　UserForm_Initialize　 概要 【機能】：ウィンドウ初期化処理 処理 ウィンドウ初期化処理 形式 Private Sub UserForm_Initialize() 可視性 プライベート 引数 なし 　関数名　 　OK_Click　 概要 【機能】：ＯＫクリック処理 処理 チャート表示設定を変更し、フォームを閉じる(Unload) 形式 Private Sub OK_Click() 可視性 プライベート 引数 なし 　関数名　 　AdjustVal_Click　 概要 【機能】：最適値チェック 処理 形式 Private Sub AdjustVal_Click() 可視性 プライベート 引数 なし 　関数名　 　ConfigVal_Click　 概要 【機能】：設定値チェック 処理 形式 Private Sub ConfigVal_Click() 可視性 プライベート 引数 なし 　関数名　 　SetNextFocus　 概要 【機能】：フォーム上フォーカス移動処理 処理 ↑↓キーでフォーカスを移動する 形式 Private Function SetNextFocus(n As Integer) 可視性 プライベート 引数 n Integer [-1]↑,[1]↓ 戻り値 Variant 　関数名　 　Cancel_Click　 概要 【機能】：キャンセルクリック処理 処理 フォームを閉じる(Unload) 形式 Private Sub Cancel_Click() 可視性 プライベート 引数 なし 　関数名　 　Chart_StartDay_MouseUp　 概要 【機能】：開始日エリアクリック処理 処理 カレンダーフォームを表示する 形式 Private Sub Chart_StartDay_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single 　関数名　 　Chart_NowDate_MouseUp　 概要 【機能】：表示基準日エリアクリック処理 処理 カレンダーフォームを表示する 形式 Private Sub Chart_NowDate_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 可視性 プライベート 引数 Button Integer Shift Integer X Single Y Single 　関数名　 　KeyDown　 概要 【機能】：フォーム上キーボード処理 処理 押されたキーに応じて処理を行う 形式 Private Sub KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer) 可視性 プライベート 引数 KeyCode Integer キーコード Shift Integer 　関数名　 　Chart_StartDay_KeyDown　 概要 処理 形式 Private Sub Chart_StartDay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_Span_KeyDown　 概要 処理 形式 Private Sub Chart_Span_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_Term_KeyDown　 概要 処理 形式 Private Sub Chart_Term_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Chart_NowDate_KeyDown　 概要 処理 形式 Private Sub Chart_NowDate_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　AdjustVal_KeyDown　 概要 処理 形式 Private Sub AdjustVal_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): Call KeyDown(KeyCode, Shift): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　ConfigVal_KeyDown　 概要 処理 形式 Private Sub ConfigVal_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):

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