Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
   Private Sub UltraGrid1_BeforeSelectChange(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.BeforeSelectChangeEventArgs) Handles ultraGrid1.BeforeSelectChange
       ' ユーザーが行、列、またはセルを選択したときに BeforeSelectChange を発生します
       ' 渡されたイベント引数の NewSelections プロパティは新しい選択を含みます
       ' Type は行、列、またはセルの選択が変更したかどうかを
       ' 指定します新しい選択をキャンセルするには、
       ' イベント引数の Cancel プロパティを設定しますキャンセルした場合、UltraGrid は
       ' 以前の選択に戻ります
       Debug.Write("BeforeSelectChange: ")
       ' タイプを使用して、行、列、またはセルが選択されたかどうかを確認します
       If e.Type Is GetType(UltraGridGroupByRow) Then
           ' 項目タイプはグループ行のため、その項目にアクセスするには Selected の Rows プロパティを使用します
           If e.NewSelections.Rows.Count = 0 Then
               Debug.WriteLine("Group-by rows are being unselected.")
           Else
               Debug.WriteLine(e.NewSelections.Rows.Count & " group-by rows are being selected.")
           End If
       ElseIf e.Type Is GetType(UltraGridRow) Then
           ' 項目タイプは行のため、その項目にアクセスするには Selected の Rows プロパティを使用します
           If e.NewSelections.Rows.Count = 0 Then
               Debug.WriteLine("Rows are being unselected.")
           Else
               Debug.WriteLine(e.NewSelections.Rows.Count & " rows are being selected.")
           End If
       ElseIf e.Type Is GetType(UltraGridColumn) Then
           ' 項目タイプは列のため、その項目にアクセスするには Selected の Columns プロパティを使用します
           If e.NewSelections.Columns.Count = 0 Then
               Debug.WriteLine("Columns are being unselected.")
           Else
               Debug.WriteLine(e.NewSelections.Columns.Count & " columns are being selected.")
           End If
       ElseIf e.Type Is GetType(UltraGridCell) Then
           ' 項目タイプはセルのため、その項目にアクセスするには Selected の Cells プロパティを使用します
           If e.NewSelections.Cells.Count = 0 Then
               Debug.WriteLine("Columns are being unselected.")
           Else
               Debug.WriteLine(e.NewSelections.Cells.Count & " cells are being selected.")
           End If
       End If
   End Sub