caoqd 发表于 2007-8-3 16:31:02

江湖救急

Sub Main
    Dim Result As Integer
    'Initially Recorded: 2007-8-316: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语句该怎样使用能达到我希望的结果呢？？？
页: [1]
查看完整版本: 江湖救急