|
Sub Main
Dim Result As Integer
'Initially Recorded: 2007-8-3 16:10:27
'Script Name: testerror
Window SetContext, "Type=Form;Name=FrmMain", ""
on error goto label1
Window SetContext, "Type=Form;Name=FrmOrgn", ""
'第一次选择地区
TreeView MakeSelection, "Type=TreeView;Name=tvOrgn", "Text=中国->华盛顿"
Toolbar Click, "Type=Toolbar;Index=0", "Coords=26,12"
Window SetContext, "Type=Form;Name=FrmEditOrgn", ""
PushButton Click, "Type=Panel;Name=pnl99;\;Type=PushButton;Name=btnClose"
label1:
Window SetContext, "Type=Form;Name=FrmOrgn", ""
'第二次选择地区
TreeView MakeSelection, "Type=TreeView;Name=tvOrgn", "Text=中国->北京"
Toolbar Click, "Type=Toolbar;Index=0", "Coords=26,12"
Window SetContext, "Type=Form;Name=FrmEditOrgn", ""
PushButton Click, "Type=Panel;Name=pnl99;\;Type=PushButton;Name=btnClose"
End Sub
---------------------------------------------------------------------------------------------------------------------------------
我第一次选择的地区是不存在的,第二次是对的。
我希望的执行结果是,第一次执行错误,但是使用on error goto label1语句在得到错误后执行后边的语句,
就是执行第二次选择地区,然后,程序结束。
现在我执行的时候都是执行到第一次选择地区就失败然后结束了,
请告诉我on error goto label1语句该怎样使用能达到我希望的结果呢??? |
|