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
' Get the cursor position
Dim point As Point = System.Windows.Forms.Cursor.Position
' Convert to the grid's client coordinates
point = Me.UltraGrid1.PointToClient(point)
' Get the UIElement at those coords, if there is one
Dim oUI As UIElement = Me.UltraGrid1.DisplayLayout.UIElement.ElementFromPoint(point)
Dim oCellUI As CellUIElement
If oUI Is Nothing Then
Return
End If
' Now we have the lowest level element at the given coordinates.
' To get the CellUIElement, walk up
' the parent chain until we hit a CellUIElement, or die trying
While Not oUI Is Nothing
If oUI.GetType() Is GetType(CellUIElement) Then
' Get the CellUIElement as the proper type
oCellUI = oUI
' Display the cell's value
MessageBox.Show("Cell.Value = " + oCellUI.Cell.Value.ToString())
End If
oUI = oUI.Parent
End While
End Sub