判断弹出窗体的一个方法

yangjingxiao · 发表于 2005-12-13 14:30:58

大家知道用用SQAFindObject可以判断是否存在窗体，用SQAWaitForObject能等待某对象（但对窗体对象，好象不起作用），但感觉单单使用SQAFindObject+延时来判断是否出现某窗体实在是太笨，也不好控制！转变一下，使用 “SQAGetProperty "CurrentWindow","属性",value” 判断更具灵活性：
                     wResult=0
                     value=""
                     for delay_i=1 to 120 step 1  '延时2分种
                        SQAGetProperty "CurrentWindow","---------",value
                        if value<>"-------------" then
                              DelayFor (1000)
                        else
                              wResult=1
                              Exit For
                        end if
                     next delay_i
                     if wResult =1 then
                        Window SetContext, "----------------", ""
                        PushButton Click, "Text=确定"
                        。。。。。。
                     else
                        。。。。。。
                     end if

海龙 · 发表于 2005-12-14 21:59:05

挺不错的做法

tomzhang · 发表于 2005-12-22 12:41:52

好方法！

one_piece · 发表于 2009-2-27 10:57:36

Nice!!

one_piece · 发表于 2009-2-27 10:58:12

SQAFindObject 有时候不管用这个方法真好

bb64844866 · 发表于 2009-3-3 16:01:51

建议将这段代码封装起来写到一个function里，然后将窗口标题当做一个String传进去就可以做到代码重用了。：）
declare function judgewindow(str1 as string)
sub main
call judgewindow("窗口标题名1")
end sub

function judgewindow(str1)
...
wResult=0
value=""
for delay_i=1 to 120 step 1  '延时2分种
   SQAGetProperty "CurrentWindow","---------",value
      if value<>"-------------" then
         DelayFor (1000)
      else
         wResult=1
         Exit For
      end if
next delay_i
...
end function

lix43420 · 发表于 2009-3-9 09:45:49

确实不错,顶一下!!!

lix43420 · 发表于 2009-3-9 09:47:08

原帖由 bb64844866 于 2009-3-3 16:01 发表
建议将这段代码封装起来写到一个function里，然后将窗口标题当做一个String传进去就可以做到代码重用了。：）
declare function judgewindow(str1 as string)
sub main
call judgewindow("窗口标题名1")
end sub ...

大哥说的对,代码重用方便调用和修改...也减少了很多无谓的工作量