説明

特別時間帯は１行に複数指定可能です。

対応

対処方法は下記になります。
（１）タイムビューオブジェクトのSpecialTimeSetsオブジェクトにSpecialTimeSetオブジェクトを追加します。
（２）追加したSpecialTimeSetオブジェクトに指定したい特別時間帯分のSpecialTimeオブジェクトを追加します。
（３）それぞれのSpecialTimeオブジェクトに対してプロパティを設定します。
（４）SpecialTimeSetオブジェクトをタイムビューオブジェクトのまたは、指定のアイテムのPiecePaneオブジェクトに設定します。

(例)Itemに12：00～15:00, 18:00～20:00にSpecialTimeSetする場合
Dim spt As SpecialTime
Dim spts As SpecialTimeSet

Set spts = KnTView1.SpecialTimeSets.Add

Set spt = spts.SpecialTimes.Add
spt.Fill.BackColor = RGB(128, 255, 255)
spt.Fill.BkMode = tivTransparent
spt.Pattern = tivSpecialTimeDaily
spt.Start = “12:00”
spt.Finish = “15:00”

Set spt = spts.SpecialTimes.Add
spt.Fill.BackColor = RGB(255, 255, 128)
spt.Fill.BkMode = tivTransparent
spt.Pattern = tivSpecialTimeDaily
spt.Start = “18:00”
spt.Finish = “20:00”

Dim i As Long
Dim itm As Item
‘行の追加
For i = 1 To 5
KnTView1.Items.Add
Next
For Each itm In KnTView1.Items
itm.PiecePane.SpecialTimeSet = spts
Next