本文整理汇总了VB.NET中System.Windows.Automation.WindowPattern.SetWindowVisualState方法的典型用法代码示例。如果您正苦于以下问题：VB.NET WindowPattern.SetWindowVisualState方法的具体用法？VB.NET WindowPattern.SetWindowVisualState怎么用？VB.NET WindowPattern.SetWindowVisualState使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了WindowPattern.SetWindowVisualState方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: GetWindowPattern
'''------------------------------------------------------------------------
''' <summary>
''' Obtains a WindowPattern control pattern from an automation element.
''' </summary>
''' <param name="targetControl">
''' The automation element of interest.
''' </param>
''' <returns>
''' A WindowPattern object.
''' </returns>
'''------------------------------------------------------------------------
Private Function GetWindowPattern(ByVal targetControl As AutomationElement) As WindowPattern
Dim windowPattern As WindowPattern = Nothing
Try
windowPattern = DirectCast( _
targetControl.GetCurrentPattern(windowPattern.Pattern), _
WindowPattern)
Catch
' object doesn't support the WindowPattern control pattern
Return Nothing
End Try
' Make sure the element is usable.
If False = windowPattern.WaitForInputIdle(10000) Then
' Object not responding in a timely manner
Return Nothing
End If
Return windowPattern
End Function 'GetWindowPattern示例2: SetVisualState
'''------------------------------------------------------------------------
''' <summary>
''' Calls the WindowPattern.SetVisualState() method for an associated
''' automation element.
''' </summary>
''' <param name="windowPattern">
''' The WindowPattern control pattern obtained from
''' an automation element.
''' </param>
''' <param name="visualState">
''' The specified WindowVisualState enumeration value.
''' </param>
'''------------------------------------------------------------------------
Private Sub SetVisualState(ByVal windowPattern As WindowPattern, _
ByVal visualState As WindowVisualState)
Try
If (windowPattern.Current.WindowInteractionState = _
WindowInteractionState.ReadyForUserInteraction) Then
Select Case visualState
Case WindowVisualState.Maximized
' Confirm that the element can be maximized
If ((windowPattern.Current.CanMaximize) & _
Not (windowPattern.Current.IsModal)) Then
windowPattern.SetWindowVisualState( _
WindowVisualState.Maximized)
End If
' TODO: additional processing
Case WindowVisualState.Minimized
' Confirm that the element can be minimized
If ((windowPattern.Current.CanMinimize) & _
Not (windowPattern.Current.IsModal)) Then
windowPattern.SetWindowVisualState( _
WindowVisualState.Minimized)
End If
' TODO: additional processing
Case WindowVisualState.Normal
windowPattern.SetWindowVisualState( _
WindowVisualState.Normal)
Case Else
windowPattern.SetWindowVisualState( _
WindowVisualState.Normal)
End Select
' TODO: additional processing
End If
Catch exc As InvalidOperationException
' object is not able to perform the requested action
Return
End Try
End Sub