Basic Object Functions

These are very basic functions and can be called on any common standard GUI Object. Commonly used in automation for verifying a value, verifying an object is enabled or disabled, checking whether the object exists and getting value of an object can be classified in to Basic Object function category.

1) VerifyEnabled: To verify an object is enabled.
2) VerifyDisabled: To verify an object is disabled.
3) IsObjectExist: To find out whether the object exists
4) VerifyValue: To verify a expected value
5) GetValue: To get an object value

Function Verify Enabled
Public Function VerifyEnabled (obj)
Dim enable_property
enable_property = obj.GetROProperty("enabled")
If enable_property <> 0 Then
Reporter.ReportEvent micPass, "VerifyEnabled Succeeded", "The test object is enabled"
VerifyEnabled = True
Else
Reporter.ReportEvent micFail, "VerifyEnabled Failed", "The test object is NOT enabled"
VerifyEnabled = False
End If
End Function

Function VerifyDisabled
Public Function VerifyDisabled (obj)
Dim enable_property
enable_property = obj.GetROProperty("disabled")
If enable_property = 0 Then
Reporter.ReportEvent micPass, "VerifyDisabled Succeeded", "The test object is enabled"
VerifyDisabled = True
Else
Reporter.ReportEvent micFail, "VerifyDisabled Failed", "The test object is NOT enabled"
VerifyDisabled = False
End If
End Function

Function Exist Object
Public Function ObjectExist(Obj)
Dim ObjectVisible
ObjectVisible = obj.Exsit
If (ObjectVisible = 0) Then
Reporter.ReportEvent micPass, "Object Visible ", "Succeeded"
ObjectVisible = True
Else
Reporter.ReportEvent micPass, "Object is not Visible ", "Not Succeeded"
ObjectVisible = False
End if
End Function