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