説明

特別時間帯は、全体に対しても複数個、アイテム毎にも複数個を設定可能です。(ただV1.4xまででは、複数設定の場合すべての特別時間帯のパターン(SpecialTime.Pattern)が同じでなければいけないという、制限がありました。)

対応

特定の日付に対する特別時間帯の設定は、次のようなコーディングで設定できます。
一つの特別時間帯セット(SpecialTimeSet)から複数の特別時間帯(SpecialTime)を作成することで、複数の特別時間帯を設定することができます。

(例)
Dim spts As SpecialTimeSet
Dim spt As SpecialTime

With KnTView1
‘特別時間帯セットを一つ作成する
Set spts = .SpecialTimeSets.Add
‘一つ目の特別時間帯を作成する
Set spt = spts.SpecialTimes.Add
With spt
.Pattern = tivSpecialTimeDate
.Target = “2000/6/12”
.Start = “0:00”
.Finish = “0:00”
.Fill.BackColor = RGB(255, 255, 128)
End With
‘二つ目の特別時間帯を作成する
Set spt = spts.SpecialTimes.Add
With spt
.Pattern = tivSpecialTimeDate
.Target = “2000/6/16”
.Start = “0:00”
.Finish = “0:00”
.Fill.BackColor = RGB(255, 128, 255)
End With
‘三つ目の特別時間帯を作成する
Set spt = spts.SpecialTimes.Add
With spt
.Pattern = tivSpecialTimeDate
.Target = “2000/6/21”
.Start = “0:00”
.Finish = “0:00”
.Fill.BackColor = RGB(128, 255, 255)
End With
‘特別時間帯セットを全体を対象に割り当てる
.PiecePane.SpecialTimeSet = spts
End With