開発マイルストーン  Version 1.12

モジュール名：WND_FilePutSel ファイル出力用フォーム ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:ファイル出力画面 【 概 要 】:ファイル出力用フォーム 【 作 成 者 】: zudajijp 【 作 成 日 】: 2007/06/20 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 UserForm_Initialize 【機能】：フォーム初期化処理 OK_Click 【機能】：ＯＫクリック処理 Cancel_Click 【機能】：キャンセルクリック処理 AllMemberSelFlag_AllSel 【機能】：ListBox「ファイル出力選択リスト」全選択/全解除 AllMemberSelFlag_ManSel 【機能】：ListBox「ファイル出力選択リスト」選択/解除 AllMemberSelFlag_Change 【機能】：CheckBox「ファイル全担当選択」変更イベント ExtractStDay_MouseUp 【機能】：ExtractStDayクリック処理 ExtractEdDay_MouseUp 【機能】：ExtractEdDayクリック処理 ExtractStDay_KeyDown 【機能】：開始日エリアキー処理 ExtractEdDay_KeyDown 【機能】：終了日エリアキー処理 KeyDownEv List_MemberSel_KeyDown AllMemberSelFlag_KeyDown OneMemberSelFlag_KeyDown TabFormFlag_KeyDown ExtractFlag_KeyDown OK_KeyDown Cancel_KeyDown  プロシジャー記述書 　関数名　 　UserForm_Initialize　 概要 【機能】：フォーム初期化処理 処理 「ファイル出力_全担当セット」を実行する 形式 Private Sub UserForm_Initialize() 可視性 プライベート 引数 なし 　関数名　 　OK_Click　 概要 【機能】：ＯＫクリック処理 処理 ファイル出力選択画面を閉じる(Unload) 選択された担当者をリストにセットし、期間抽出の場合は開始/終了日をセットする 形式 Private Sub OK_Click() 可視性 プライベート 引数 なし 　関数名　 　Cancel_Click　 概要 【機能】：キャンセルクリック処理 処理 ファイル出力選択画面を閉じる(Unload) 形式 Private Sub Cancel_Click() 可視性 プライベート 引数 なし 　関数名　 　AllMemberSelFlag_AllSel　 概要 【機能】：ListBox「ファイル出力選択リスト」全選択/全解除 処理 ListBox「List_MemberSel」の選択状態を変更する 形式 Private Sub AllMemberSelFlag_AllSel(flg As Boolean) 可視性 プライベート 引数 flg Boolean [True]:選択、[False]:非選択 　関数名　 　AllMemberSelFlag_ManSel　 概要 【機能】：ListBox「ファイル出力選択リスト」選択/解除 処理 ListBox「List_MemberSel」の選択状態を変更する 形式 Sub AllMemberSelFlag_ManSel(Name As String, flg As Boolean) 可視性 パブリック 引数 Name String 担当者名 flg Boolean [True]:選択、[False]:非選択 　関数名　 　AllMemberSelFlag_Change　 概要 【機能】：CheckBox「ファイル全担当選択」変更イベント 処理 ListBox「List_MemberSel」全選択/全解除 形式 Private Sub AllMemberSelFlag_Change() 可視性 プライベート 引数 なし 　関数名　 　ExtractStDay_MouseUp　 概要 【機能】：ExtractStDayクリック処理 処理 ExtractStDayのカレンダー入力 形式 Private Sub ExtractStDay_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 　関数名　 　ExtractEdDay_MouseUp　 概要 【機能】：ExtractEdDayクリック処理 処理 ExtractEdDayのカレンダー入力 形式 Private Sub ExtractEdDay_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 　関数名　 　ExtractStDay_KeyDown　 概要 【機能】：開始日エリアキー処理 処理 カレンダーフォームを表示する 形式 Private Sub ExtractStDay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer 　関数名　 　ExtractEdDay_KeyDown　 概要 【機能】：終了日エリアキー処理 処理 カレンダーフォームを表示する 形式 Private Sub ExtractEdDay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer 　関数名　 　KeyDownEv　 概要 処理 形式 Private Sub KeyDownEv(ByVal KeyCode As Integer) 可視性 プライベート 引数 KeyCode Integer 　関数名　 　List_MemberSel_KeyDown　 概要 処理 形式 Private Sub List_MemberSel_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　AllMemberSelFlag_KeyDown　 概要 処理 形式 Private Sub AllMemberSelFlag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　OneMemberSelFlag_KeyDown　 概要 処理 形式 Private Sub OneMemberSelFlag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　TabFormFlag_KeyDown　 概要 処理 形式 Private Sub TabFormFlag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　ExtractFlag_KeyDown　 概要 処理 形式 Private Sub ExtractFlag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　OK_KeyDown　 概要 処理 形式 Private Sub OK_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer): 　関数名　 　Cancel_KeyDown　 概要 処理 形式 Private Sub Cancel_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub 可視性 プライベート 引数 KeyCode MSForms.ReturnInteger Shift Integer):

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