Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
...
Private Sub UltraGrid1_DoubleClickCell(ByVal sender As Object, _
ByVal e As Infragistics.Win.UltraWinGrid.DoubleClickCellEventArgs) _
Handles UltraGrid1.DoubleClickCell
' カーソル位置を取得します
Dim point As Point = Cursor.Position
' グリッドのクライアント座標に変換します
point = Me.UltraGrid1.PointToClient(point)
' クライアント座標で UIElement を取得します(ある場合)
Dim oUI As UIElement = Me.UltraGrid1.DisplayLayout.UIElement.ElementFromPoint(point)
Dim oCellUI As CellUIElement
If oUI Is Nothing Then
Return
End If
' 指定された座標に最低レベルの要素があります。
' CellUIElement を取得するには、CellUIElement にヒットするまで
' 親チェーンをたどります
While Not oUI Is Nothing
If oUI.GetType() Is GetType(CellUIElement) Then
' 適切なタイプとして CellUIElement を取得します
oCellUI = oUI
' セルの値を表示します
MessageBox.Show("Cell.Value = " + oCellUI.Cell.Value.ToString())
End If
oUI = oUI.Parent
End While
End Sub