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
' プロパティを Default に設定します
Me.ultraCalendarInfo1.FirstDayOfWeek = Infragistics.Win.UltraWinSchedule.FirstDayOfWeek.Default
' 実際の週の最初の曜日を決定するには、
' FirstDayOfWeekResolved プロパティを使用します
Dim firstDayOfWeek As DayOfWeekEnum = Me.ultraCalendarInfo1.FirstDayOfWeekResolved
' 週の解決された最初の曜日が日曜日の場合、月曜日に変更します
If (firstDayOfWeek = DayOfWeekEnum.Sunday) Then
Me.ultraCalendarInfo1.FirstDayOfWeek = Infragistics.Win.UltraWinSchedule.FirstDayOfWeek.Monday
End If
End Sub