Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports Infragistics.Win.UltraWinSchedule.WeekView
Private Sub GetVisibleWeekInfo()
Dim info As String = String.Empty
' 表示されている各有効な曜日に予定を追加します
Dim dow As Infragistics.Win.UltraWinSchedule.DayOfWeek
Dim i As Integer
For i = 0 To 6
Dim temp As DateTime = Me.ultraWeekView.VisibleWeek.FirstDate.AddDays(i)
' この日に対応する曜日を取得します
dow = Me.ultraWeekView.CalendarInfo.DaysOfWeek(Me.ultraWeekView.VisibleWeek.FirstDate.DayOfWeek)
' DayOfWeek が非表示の場合はスキップします
If dow.Visible Then
' 日に予定を追加します
Me.ultraWeekView.CalendarInfo.Appointments.Add(temp, "Appointment for " + temp.ToString("d"))
End If
Next
' 週の最初の日付および最後の日付を取得します
info += "VisibleWeek information:" + vbCrLf
info += "The first date in the VisibleWeek is " + Me.ultraWeekView.VisibleWeek.FirstDate.ToLongDateString() + vbCrLf
info += "The last date in the VisibleWeek is " + Me.ultraWeekView.VisibleWeek.LastDate.ToLongDateString() + vbCrLf
' 週にアクティビティがあるかどうかを確認します
' アクティビティがある場合、各アクティビティ コレクションのカウントを表示します
If (Me.ultraWeekView.VisibleWeek.HasActivity) Then
info += "There is activity for the week of " + Me.ultraWeekView.VisibleWeek.FirstDate.ToShortDateString() + ":" + vbCrLf
If Me.ultraWeekView.VisibleWeek.Appointments.Count > 0 Then
info += vbCrLf + Me.ultraWeekView.VisibleWeek.Appointments.Count.ToString() + " Appointment(s)" + vbCrLf
End If
If (Me.ultraWeekView.VisibleWeek.Holidays.Count > 0) Then
info += vbCrLf + Me.ultraWeekView.VisibleWeek.Holidays.Count.ToString() + " Holiday(s)" + vbCrLf
End If
If (Me.ultraWeekView.VisibleWeek.Notes.Count > 0) Then
info += vbCrLf + Me.ultraWeekView.VisibleWeek.Notes.Count.ToString() + " Note(s)" + vbCrLf
End If
info += vbCrLf
End If
' 週が有効かどうかを確認します
If Me.ultraWeekView.VisibleWeek.Enabled Then
info += "The week is enabled." + vbCrLf
Else
info += "The week is disabled." + vbCrLf
End If
' その年の週番号を取得します
info += "This week is week number " + Me.ultraWeekView.VisibleWeek.WeekNumber.ToString() + " in the year " + Me.ultraWeekView.VisibleWeek.Year.YearNumber.ToString() + "." + vbCrLf
' 情報を表示します
MessageBox.Show(info, "GetVisibleWeekInfo")
End Sub