特別時間帯の日付指定で、曜日指定で無く、３日以上の任意の日付を指定する事は出来ないのですか。

説明

下記のバージョンにて対応しました。

対応

簡単なサンプルコードを記載しますので、ご参考になさって下さい。

(例)
Private Sub Form_Load()
Dim i As Integer
Dim spts As SpecialTimeSet
Dim spt As SpecialTime

With KnTView1
.ViewTopTime = “2000/6/4”
With .TimeScale
.Large.Unit = tivScaleUnitWeek
.Large.Format = “yyyy/m/d”
.Medium.Unit = tivScaleUnitDay
.Medium.Format = “aaa”
.Small.Hidden = True
.WidthPerScale = ScaleX(32, vbPixels, Me.ScaleMode)
End With
.ColumnHeaders(1).Width = ScaleX(32, vbPixels, Me.ScaleMode)
For i = 1 To 10
.Items.Add.Cells(1).Value = i
Next

‘特別時間帯の設定例(tivSpecialTimeDirectの使い方)
‘注意：tivSpecialTimeDirectは、KnTView1.Miscプロパティに
‘ tivMiscSpecialTimeNewModeを設定していないと動作しません。
Set spts = .SpecialTimeSets.Add
Set spt = spts.SpecialTimes.Add
With spt
.Pattern = tivSpecialTimeDirect
.Start = “2000/6/5 18:00”
.Finish = “2000/6/8 12:00”
.Fill.BackColor = RGB(255, 255, 128)
End With
.PiecePane.SpecialTimeSet = spts
End With
End Sub

対応バージョン：KnTView.ocx V1.5 R.00