Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.IO
Imports System.Globalization
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' DateTime 型の 2 つの変数を宣言します (年の最初日および最後日)
Dim earliest As DateTime = New DateTime(DateTime.Today.Year, 1, 1)
Dim latest As DateTime = New DateTime(DateTime.Today.Year, 12, 31)
' ForceEarliestTimeOfDay メソッドおよび ForceLatestTimeOfDay メソッドを使用すると、
' 日付の Hour、Minute、Second などのプロパティを変更します
' これによって、日付範囲を年の最初日の 00:00:00 から
' 年の最後日の 11:59:59 までに設定できます
earliest = UltraCalendarInfo.ForceEarliestTimeOfDay(DateTime.Today)
latest = UltraCalendarInfo.ForceLatestTimeOfDay(DateTime.Today)
' MinDate プロパティおよび MaxDate プロパティを設定します
Me.ultraCalendarInfo1.MinDate = earliest
Me.ultraCalendarInfo1.MaxDate = latest
End Sub