Imports System.Diagnostics
Imports System.Collections
Imports Infragistics.Win
Imports System.Windows.Forms
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' グリッドで配列データを生成します
Dim list As New ArrayList()
list.AddRange(New Object() {"One", "Two"})
Me.UltraGrid1.DataSource = list
End Sub
Private Sub UltraGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles UltraGrid1.MouseDown
PrintAdjustableElementFromPt(New Point(e.X, e.Y))
End Sub
Private Sub PrintAdjustableElementFromPt(ByVal pt As Point)
'渡されたポイントの下に AdjustableElement があるかどうかを確認します
Dim element As UIElement = Me.UltraGrid1.DisplayLayout.UIElement.AdjustableElementFromPoint(pt)
If Not element Is Nothing Then
Debug.WriteLine(element.GetType().ToString())
'AdjustableElement がある場合、その関連付けられたカーソルを取得します
Dim cursor As Cursor = element.GetAdjustableCursor(pt)
If (Not cursor Is Nothing) Then
Debug.WriteLine("Cursor is adjustable")
End If
Debug.WriteLine("Not Adjustable")
End If
End Sub