Private Sub ultraMonthViewMulti1_AfterMonthScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraMonthViewMulti1.AfterMonthScroll ' Display the new VisibleMonths to the user Dim info As String = String.Empty info += "The AfterMonthScroll event has fired. The new VisibleMonths are as follows:" + vbCrLf + vbCrLf Dim visibleMonth As Infragistics.Win.UltraWinSchedule.MonthViewMulti.VisibleMonth For Each visibleMonth In Me.ultraMonthViewMulti1.VisibleMonths ' Get the name of the visible month, append it to the string we will display Dim monthName As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(visibleMonth.Month.MonthNumber - 1) info += monthName + vbCrLf Next ' Display the message box MessageBox.Show(info, "AfterMonthScroll", MessageBoxButtons.OK) End Sub
private void ultraMonthViewMulti1_AfterMonthScroll(object sender, System.EventArgs e) { // Display the new VisibleMonths to the user string info = string.Empty; info += "The AfterMonthScroll event has fired. The new VisibleMonths are as follows:" + "\n" + "\n"; foreach ( Infragistics.Win.UltraWinSchedule.MonthViewMulti.VisibleMonth visibleMonth in this.ultraMonthViewMulti1.VisibleMonths ) { // Get the name of the visible month, append it to the string we will display string monthName = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames[ visibleMonth.Month.MonthNumber - 1 ]; info += monthName + "\n"; } // Display the message box MessageBox.Show( info, "AfterMonthScroll", MessageBoxButtons.OK ); }