開発マイルストーン  Version 1.12

 モジュール名:WND_ManAdjust

工数調整用フォーム
■■■■■■■■■■■■■■■■■■■■■■■■■■■■

【モジュール】:工数調整画面
【 概 要 】:工数調整用フォーム
【 作 成 者 】: zudajijp
【 作 成 日 】: 2007/06/20
【 特記事項 】:

■■■■■■■■■■■■■■■■■■■■■■■■■■■■
  一覧へ

 プロシジャー一覧


 プロシジャー名   概要 
UserForm_Initialize 【機能】:ウィンドウ初期化処理
OK_Click 【機能】:OKクリック処理
Cancel_Click 【機能】:キャンセルクリック処理
KeyDownEv
MemberSelFlag_KeyDown
NonPreTaskFlag_KeyDown
AdjustKind1_KeyDown
AdjustKind2_KeyDown
AdjustKind5_KeyDown
OK_KeyDown
Cancel_KeyDown




 プロシジャー記述書


 関数名   UserForm_Initialize 
概要 【機能】:ウィンドウ初期化処理
処理 ウィンドウ初期化処理
形式 Private Sub UserForm_Initialize()
可視性 プライベート
引数 なし

 関数名   OK_Click 
概要 【機能】:OKクリック処理
処理 「MAN_ManPowerAdjust」を実行する(現在行位置を渡す)
工数調整画面を閉じて(Unload)、「CHA_ChartReDisp」を実行する
形式 Private Sub OK_Click()
可視性 プライベート
引数 なし

 関数名   Cancel_Click 
概要 【機能】:キャンセルクリック処理
処理 工数調整画面を閉じる(Unload)
形式 Private Sub Cancel_Click()
可視性 プライベート
引数 なし

 関数名   KeyDownEv 
概要
処理
形式 Private Sub KeyDownEv(ByVal KeyCode As Integer)
可視性 プライベート
引数
KeyCode Integer

 関数名   MemberSelFlag_KeyDown 
概要
処理
形式 Private Sub MemberSelFlag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub
可視性 プライベート
引数
KeyCode MSForms.ReturnInteger
Shift Integer):

 関数名   NonPreTaskFlag_KeyDown 
概要
処理
形式 Private Sub NonPreTaskFlag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub
可視性 プライベート
引数
KeyCode MSForms.ReturnInteger
Shift Integer):

 関数名   AdjustKind1_KeyDown 
概要
処理
形式 Private Sub AdjustKind1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub
可視性 プライベート
引数
KeyCode MSForms.ReturnInteger
Shift Integer):

 関数名   AdjustKind2_KeyDown 
概要
処理
形式 Private Sub AdjustKind2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyDownEv (KeyCode): End Sub
可視性 プライベート
引数
KeyCode MSForms.ReturnInteger
Shift Integer):

 関数名   AdjustKind5_KeyDown 
概要
処理
形式 Private Sub AdjustKind5_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.