' ultraTimeSpanEditor の初期値を設定するためにタイム スパン値を作成します。 Dim toStartWithValue As New TimeSpan(4, 0, 0, 0) ' 最小および最大のタイム スパン値を作成します。 Dim minValue As New TimeSpan(1, 0, 0, 0) Dim maxValue As New TimeSpan(20, 0, 0, 0) ' 初期のタイム スパン値を設定します。 Me.ultraTimeSpanEditor1.TimeSpan = toStartWithValue ' ultraTimeSpanEditor の最小および最大のタイム スパン値を作成します。 Me.ultraTimeSpanEditor1.MinValue = minValue Me.ultraTimeSpanEditor1.MaxValue = maxValue ' 時間の単位を日にちに設定します。 Me.ultraTimeSpanEditor1.Format = TimeSpanFormat.Days ' 日数が 1 よりも大きい時に表示される文字列を設定します。 Me.ultraTimeSpanEditor1.FormatInfo.DayDisplayStringPlural = "DAYS" ' スピン ボタンを表示しないでください。 ' this.ultraTimeSpanEditor1.HasSpinButton = false; ' ultraTimeSpanEditor 内の値が変わる時にイベントを発生させます。 AddHandler Me.ultraTimeSpanEditor1.ValueChanged, AddressOf ultraTimeSpanEditor1_ValueChanged Private Sub ultraTimeSpanEditor1_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) ' TODO:変更される値の実装ロジック End Sub