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
' 現在の年に対応する Year オブジェクトを取得します
Dim year As Infragistics.Win.UltraWinSchedule.Year
year = Me.ultraCalendarInfo1.GetYear(DateTime.Today.Year)
' 年がうるう年かどうかを決定するには、Year オブジェクトの IsLeapYear プロパティを使用します
If (year.IsLeapYear) Then
MessageBox.Show("The current year, " + year.YearNumber + " is a leap year.", "GetYear", MessageBoxButtons.OK)
Else
MessageBox.Show("The current year, " + year.YearNumber + " is not a leap year.", "GetYear", MessageBoxButtons.OK)
End If
End Sub