Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports Infragistics.Win.UltraWinSchedule.MonthViewSingle
Private Sub SetupActivityDisplay()
' 現在の日付で予定、メモ、および休日を追加します
Dim startTime As DateTime = New DateTime(DateTime.Today.Year, DateTime.Today.Month, DateTime.Today.Day, 9, 0, 0)
Dim endTime As DateTime = New DateTime(DateTime.Today.Year, DateTime.Today.Month, DateTime.Today.Day, 17, 30, 0)
Me.UltraMonthViewSingle1.CalendarInfo.Appointments.Add(startTime, endTime, "Today's Appointment")
Me.UltraMonthViewSingle1.CalendarInfo.Notes.Add(DateTime.Today, "Today's Note")
' ActivityDisplayStyle プロパティを予定およびメモを表示し、休日を表示しないように設定します
Me.UltraMonthViewSingle1.ActivityDisplayStyle = ActivityDisplayStyleEnum.Appointments Or ActivityDisplayStyleEnum.Notes
' TimeDisplayStyle プロパティを予定の時間をアナログ時計として表示するように設定します
Me.UltraMonthViewSingle1.TimeDisplayStyle = TimeDisplayStyleEnum.Clock
' AppointmentEndVisible プロパティを予定の終了時間を表示するように設定します
Me.UltraMonthViewSingle1.AppointmentEndTimeVisible = True
End Sub