QTP - Getting Object Properties Dynamically

QTP - Getting Object Properties Dynamically 

'************************************************************************

' Get Value Property 

'************************************************************************

'Return the object 'Value' property

'Description Returns the Object value

Public Function GetValueProperty (obj)

   GetValueProperty = obj.GetROProperty("value")

End Function

'************************************************************************

' Get Text Property

'************************************************************************

'Return the object 'Text' property

'Description Returns the Object value

Public Function GetTextProperty (obj)

   GetTextProperty = obj.GetROProperty("text")

End Function

'************************************************************************

' Get Attached  TextTProperty

'************************************************************************

'Return the object 'attached text' property

'Description Returns the Object  attached text

Public Function GetAttachedTextProperty (obj)

   GetAttachedTextProperty = obj.GetROProperty("attached text")

End Function

'************************************************************************

' Get Selection Property

'************************************************************************

'Return the object 'selection' property

'Description Returns the Object value

Public Function GetSelectionProperty (obj)

   GetSelectionProperty = obj.GetROProperty("selection")

End Function

'************************************************************************

' Get Checked Property

'************************************************************************

'Return the object 'checked' property

'Description Returns the Object value

Public Function GetCheckedProperty (obj)

   GetCheckedProperty = obj.GetROProperty("checked")

End Function

'************************************************************************

' Get Nativeclass Property

'************************************************************************

'Return the object 'nativeclass property

'Description Returns the Object  nativeclass

Public Function GetNativeclassProperty (obj)

   GetNativeclassProperty = obj.GetROProperty("nativeclass")

End Function

'************************************************************************

' A Sample script  to invoke Filght App and to make use of the above functions

'This script calls the above functiolns and in return gets the object properties

'************************************************************************

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

wait(2)

Dialog("Login").Activate

Dialog("Login").WinEdit("Agent Name:").Set "GAReddy"

'To get the  Text Property of the  WinEdit AgentName field

Set obj=Dialog("Login").WinEdit("Agent Name:")

Print "Nativeclass Property  of the Object ( Agent Name:)  is -->   " & GetNativeclassProperty (obj)

Print "Text Property  of the Object ( Agent Name:)  is -->      " & GetTextProperty (obj)

Print "AttachedText Property  of the Object ( Agent Name:)  is --> " & GetAttachedTextProperty (obj)

Dialog("Login").WinEdit("Password:").Set "MERCURY"

'To get the  Text Property of the  WinButton OK field

Set obj=Dialog("Login").WinButton("OK")

Print "Nativeclass Property  of the Object ( OK)  is -->  " & GetNativeclassProperty (obj)

Print "Text Property  of the Object (OK)  is -->" & GetTextProperty (obj)

Dialog("Login").WinButton("OK").Click

''***********************************************************************

Posted in: QTP - Getting Object Properties Dynamically