本文整理汇总了VB.NET中System.Windows.Automation.GridPattern.GetItem方法的典型用法代码示例。如果您正苦于以下问题：VB.NET GridPattern.GetItem方法的具体用法？VB.NET GridPattern.GetItem怎么用？VB.NET GridPattern.GetItem使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了GridPattern.GetItem方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: SetGridItemEventListeners
'''--------------------------------------------------------------------
''' <summary>
''' Set up grid item event listeners.
''' </summary>
''' <param name="targetControl">
''' The grid item container of interest.
''' </param>
'''--------------------------------------------------------------------
Private Sub SetGridItemEventListeners( _
ByVal targetControl As AutomationElement)
Dim gridItemFocusChangedListener As AutomationFocusChangedEventHandler = _
AddressOf OnGridItemFocusChange
Automation.AddAutomationFocusChangedEventHandler( _
gridItemFocusChangedListener)
End Sub示例2: OnGridItemFocusChange
'''--------------------------------------------------------------------
''' <summary>
''' Event handler for grid item focus change.
''' Can be used to track traversal of individual grid items
''' within a grid.
''' </summary>
''' <param name="src">Object that raised the event.</param>
''' <param name="e">Event arguments.</param>
'''--------------------------------------------------------------------
Private Sub OnGridItemFocusChange( _
ByVal src As Object, ByVal e As AutomationFocusChangedEventArgs)
' Make sure the element still exists. Elements such as tooltips
' can disappear before the event is processed.
Dim sourceElement As AutomationElement
Try
sourceElement = DirectCast(src, AutomationElement)
Catch exc As ElementNotAvailableException
Return
End Try
' Gets a GridItemPattern from the source of the event.
Dim gridItemPattern As GridItemPattern = _
GetGridItemPattern(sourceElement)
If gridItemPattern Is Nothing Then
Return
End If
' Gets a GridPattern from the grid container.
Dim gridPattern As GridPattern = _
GetGridPattern(gridItemPattern.Current.ContainingGrid)
If gridPattern Is Nothing Then
Return
End If
Dim gridItem As AutomationElement = Nothing
Try
gridItem = gridPattern.GetItem( _
gridItemPattern.Current.Row, gridItemPattern.Current.Column)
Catch
' If the requested row coordinate is larger than the RowCount
' or the column coordinate is larger than the ColumnCount.
' -- OR --
' If either of the requested row or column coordinates
' are less than zero.
' TO DO: error handling.
End Try
' Further event processing can be done at this point.
' For the purposes of this sample we just report item properties.
Dim gridItemReport As New StringBuilder()
gridItemReport.AppendLine( _
gridItemPattern.Current.Row.ToString()).AppendLine( _
gridItemPattern.Current.Column.ToString()).AppendLine( _
gridItemPattern.Current.RowSpan.ToString()).AppendLine( _
gridItemPattern.Current.ColumnSpan.ToString()).AppendLine( _
gridItem.Current.AutomationId.ToString())
Console.WriteLine(gridItemReport.ToString())
End Sub
'''--------------------------------------------------------------------
''' <summary>
''' Handles our application shutdown.
''' </summary>
''' <param name="args">Event arguments.</param>
'''--------------------------------------------------------------------
Protected Overrides Sub OnExit(ByVal args As System.Windows.ExitEventArgs)
Automation.RemoveAllEventHandlers()
MyBase.OnExit(args)
End Sub