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 button4.Click
Me.DisableFirstDayOfMonth()
End Sub
Private Sub DisableFirstDayOfMonth()
' 月の最初日の DayOfMonth オブジェクトを取得します
' DaysOfMonth コレクションのインデックスは 1 から開始することに
' 注意してください
Dim dayOfMonth As Infragistics.Win.UltraWinSchedule.DayOfMonth
dayOfMonth = Me.ultraCalendarInfo1.DaysOfMonth(1)
' 必要な日を取得したことを確認します
Debug.Assert(dayOfMonth.DayNumber = 1, "Wrong DayOfMonth returned in 'DisableFirstDayOfMonth'!")
' 月の最初の日を無効にします
If (dayOfMonth.DayNumber = 1) Then
dayOfMonth.Enabled = False
End If
End Sub