Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub UltraGrid1_AfterSelectChange(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.AfterSelectChangeEventArgs) Handles ultraGrid1.AfterSelectChange
Debug.Write("AfterSelectChange: ")
' タイプを使用すると、行、列、またはセルが選択されたかどうかを確認します
If e.Type Is GetType(UltraGridGroupByRow) Then
' 項目タイプはグループ行のため、その項目にアクセスするには Selected の Rows プロパティを使用します
If Me.ultraGrid1.Selected.Rows.Count = 0 Then
Debug.WriteLine("No group-by rows selected.")
Else
Debug.WriteLine(Me.ultraGrid1.Selected.Rows.Count & " group-by rows selected.")
End If
ElseIf e.Type Is GetType(UltraGridRow) Then
' 項目タイプは行のため、その項目にアクセスするには Selected の Rows プロパティを使用します
If Me.ultraGrid1.Selected.Rows.Count = 0 Then
Debug.WriteLine("No rows selected.")
Else
Debug.WriteLine(Me.ultraGrid1.Selected.Rows.Count & " rows selected.")
End If
ElseIf e.Type Is GetType(UltraGridColumn) Then
' 項目タイプは列のため、その項目にアクセスするには Selected の Columns プロパティを使用します
If Me.ultraGrid1.Selected.Columns.Count = 0 Then
Debug.WriteLine("Columns are being unselected.")
Else
Debug.WriteLine(Me.ultraGrid1.Selected.Columns.Count & " columns are being selected.")
End If
ElseIf e.Type Is GetType(UltraGridCell) Then
' 項目タイプはセルのため、その項目にアクセスするには Selected の Cells プロパティを使用します
If Me.ultraGrid1.Selected.Cells.Count = 0 Then
Debug.WriteLine("Columns are being unselected.")
Else
Debug.WriteLine(Me.ultraGrid1.Selected.Cells.Count & " cells are being selected.")
End If
End If
End Sub