Forum Discussion
hagai1973
10 years agoOccasional Visitor
'Function received the text box object
Function ClearTextBox(outTxtObj)
If outTxtObj.text <> "" Then
ClearTextBox = False
'Locate mouse in the left corner of edit box
outTxtObj.Click 5,10
For i = 0 to Len(outTxtObj.text)
outTxtObj.keys("[Del]")
Next
End If
If outTxtObj.text = "" Then
ClearTextBox = True
Log.Message("Edit box was cleared")
End If
End Function