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