Get Object Properties Dynamically

"

Get Object Properties

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

' 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

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

"

Get Object Properties

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

' 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

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