本文整理匯總了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