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
''************************************************************************************
