PrivateSub UltraMonthViewSingle1_AfterScroll(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterScrollEventArgs) Handles ultraMonthViewSingle.AfterScroll
'----------------------------------------------------------------------------------------------------
' 説明
' AfterScroll
'
' コントロールがスクロールされた後に発生します
' BeforeScroll イベントをキャンセルしないと、AfterScroll イベントが発生します
'
'----------------------------------------------------------------------------------------------------
' 以前の値および新しい値をデバッガーに出力します
Dim info AsString = String.Empty
info += "The control was vertically scrolled. The type of scrolling operation was: "
info += e.ScrollAction.ToString()
Debug.WriteLine(info)
End Sub
privatevoid ultraMonthViewSingle1_AfterScroll(object sender, Infragistics.Win.UltraWinSchedule.AfterScrollEventArgs e)
{
//----------------------------------------------------------------------------------------------------
// 説明
// AfterScroll
//
// コントロールがスクロールされた後に発生します
// BeforeScroll イベントをキャンセルしないと、AfterScroll イベントが発生します
//
//----------------------------------------------------------------------------------------------------
// 以前の値および新しい値をデバッガーに出力します
string info = string.Empty;
info += "The control was vertically scrolled. The type of scrolling operation was: ";
info += e.ScrollAction.ToString();
Debug.WriteLine( info );
}