開発マイルストーン  Version 1.12

モジュール名：M22_TSK_TaskPaintProc スケジュール表の日付および罫線描画 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:日付ベース作成処理モジュール 【 概 要 】:スケジュール表の日付および罫線描画 【 作 成 者 】: zudajijp 【 作 成 日 】: 2007/06/20 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 TSK_BaseDateMake 【機能】：一覧表罫線の描画およびチャート図形を再表示する TSK_ItemDispSwitch 【機能】：項目の表示切替 TSK_LastLineGet 【機能】：最終行取得処理 TSK_TaskTableAllDel 【機能】：タスク一覧表を全て削除する TSK_ClmRange 【機能】：列範囲オブジェクト取得 TSK_TaskTableLineInit 【機能】：タスク一覧表の罫線を初期化する TSK_TaskTableOneLineInit 【機能】：タスク一覧表(個別)の罫線を初期化する TSK_TaskTableLinePaint 【機能】：タスク一覧表の罫線を描画する TSK_DateClear 【機能】：チャートタイトルの日付クリア TSK_DatePaint 【機能】：チャート表示部のタイトル(日付)表示 TSK_DatePaint_Time 【機能】：チャート表示部のタイトル(日時)表示  プロシジャー記述書 　関数名　 　TSK_BaseDateMake　 概要 【機能】：一覧表罫線の描画およびチャート図形を再表示する 処理 一覧表罫線の描画およびチャート図形を再表示する 主に「設定シート」の「再描画」押下時、「表示単位」変更時などで呼び出される 形式 Sub TSK_BaseDateMake() 可視性 パブリック 引数 なし 　関数名　 　TSK_ItemDispSwitch　 概要 【機能】：項目の表示切替 処理 「スケジュール」シートの項目の表示/非表示を切り替える 形式 Sub TSK_ItemDispSwitch() 可視性 パブリック 引数 なし 　関数名　 　TSK_LastLineGet　 概要 【機能】：最終行取得処理 処理 有効な最終行を取得する 形式 Function TSK_LastLineGet(ByVal w As Worksheet) As Long 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト 戻り値 Long 最終行 　関数名　 　TSK_TaskTableAllDel　 概要 【機能】：タスク一覧表を全て削除する 処理 開始行から最終行までの行を削除して上に詰める 形式 Sub TSK_TaskTableAllDel(ByVal w As Worksheet) 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト 　関数名　 　TSK_ClmRange　 概要 【機能】：列範囲オブジェクト取得 処理 列範囲のオブジェクトを返す 形式 Function TSK_ClmRange(ByVal w As Worksheet, Clm As Variant, last As Long, Optional st As Long) As Range 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト Clm Variant 列番号 last Long 最終行番号 st Long 開始行番号(Option) 戻り値 Range Rangeオブジェクト 　関数名　 　TSK_TaskTableLineInit　 概要 【機能】：タスク一覧表の罫線を初期化する 処理 タスク一覧表の罫線を含むセル書式を設定する(担当者の色も設定する) 形式 Sub TSK_TaskTableLineInit(ByVal w As Worksheet) 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト 　関数名　 　TSK_TaskTableOneLineInit　 概要 【機能】：タスク一覧表(個別)の罫線を初期化する 処理 タスク一覧表の罫線を含むセル書式を設定する(担当者の色も設定する) 形式 Sub TSK_TaskTableOneLineInit(ByVal w As Worksheet, St_L As Long, Ed_L As Long) 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト St_L Long 開始行 Ed_L Long 最終行 　関数名　 　TSK_TaskTableLinePaint　 概要 【機能】：タスク一覧表の罫線を描画する 処理 タスク一覧表の中間線などの罫線を描画する 形式 Sub TSK_TaskTableLinePaint(ByVal w As Worksheet, lngDayCnt As Long) 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト lngDayCnt Long 表示日数 　関数名　 　TSK_DateClear　 概要 【機能】：チャートタイトルの日付クリア 処理 チャートタイトルの日付部分(タイトルの2行目)をクリアする 形式 Sub TSK_DateClear() 可視性 パブリック 引数 なし 　関数名　 　TSK_DatePaint　 概要 【機能】：チャート表示部のタイトル(日付)表示 処理 チャート表示部のタイトル(日付)を描画する 形式 Sub TSK_DatePaint() 可視性 パブリック 引数 なし 　関数名　 　TSK_DatePaint_Time　 概要 【機能】：チャート表示部のタイトル(日時)表示 処理 チャート表示部のタイトル(日時)を描画する 形式 Sub TSK_DatePaint_Time() 可視性 パブリック 引数 なし

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