Configures QuickTest views and panes

‘***********************************************************************

‘Description:

‘

‘This configures QuickTest views and panes for running QuickTest in visible mode.

‘***********************************************************************

Dim qtApp, abc ‘ Declare the Application ( QTP ) object variable

Set qtApp = CreateObject(“QuickTest.Application”) ‘ Create the Application object

qtApp.Launch ‘ Start QuickTest

qtApp.ActivateView “KeywordView” ‘ Display the Expert View

‘qtApp.ActivateView “ExpertView” ‘ Display the Expert View

qtApp.ShowPaneScreen “ActiveScreen”, True ‘ Display the Active Screen pane

qtApp.ShowPaneScreen “DataTable”, True ‘ Hide the Data Table pane

qtApp.ShowPaneScreen “DebugViewer”, True ‘ Display the Debug Viewer pane

qtApp.WindowState = “Maximized” ‘ Maximize the QuickTest window

qtApp.Visible = True ‘ Make the QuickTest window visible

MsgBox qtApp.AddIns.Count ‘ Count the Number of addins in QTP

Set qtApp = Nothing ‘ Release the Application object