51Testing软件测试论坛

标题: 日期的弹出窗口的实现 [打印本页]
作者: wwhunter1214    时间: 2012-4-1 11:23
标题: 日期的弹出窗口的实现
点击实现方式一：
  1. Public Sub DateSelect( )
  2.     On Error  Resume Next
  3.         Wait Wait_Second
  4.         nameDesc = tmpValue
  5.         Set ImageDesc = Description.Create()
  6.                 ImageDesc("micclass").Value = "Image"
  7.                 ImageDesc("file name").Value ="date.gif"
  8.         Set  ImageButtonObject= ParentObject.ChildObjects(ImageDesc)
  9.         If ImageButtonObject.count() > 0 Then
  10.         ImageButtonObject(1).Click
  11.         Else
  12.                 ShowErrorMessageBox
  13.         End If
  14.         'AddCurrentStepValue tmpValue
  15. End Sub
复制代码
点击实现方式二：
  1. Public Sub DateSelect( )
  2.     On Error  Resume Next
  3.         Wait Wait_Second
  4.         nameDesc = tmpValue
  5.         Set ImageDesc = Description.Create()
  6.                 ImageDesc("micclass").Value = "Image"
  7.                 ImageDesc("file name").Value ="date.gif"
  8.         Set  ImageButtonObject= ParentObject.ChildObjects(ImageDesc)
  9.         If ImageButtonObject.count() > 0 Then
  10.         ImageButtonObject(1).FireEvent "onclick"
  11.         Else
  12.                 ShowErrorMessageBox
  13.         End If
  14.         'AddCurrentStepValue tmpValue
  15. End Sub
复制代码
点击实现方式三：
  1. Public Sub DateSelect()
  2.     On Error  Resume Next
  3.         Wait Wait_Second
  4.         Set WebTableDesc = Description.Create()
  5.                         WebTableDesc("micclass").Value = "WebTable"
  6.                         WebTableDesc("name").Value =  "DateCheck"
  7.         Set TableObjs =ParentObject.ChildObjects(WebTableDesc)
  8.         If  TableObjs.count()>0 Then
  9.                 TableObjs(0).ChildItem(1,6,"Image",0).Click
  10.         End if
  11.         Set WebTableDesc = Nothing
  12.         Set TableObjs = Nothing
  13. End Sub
复制代码
问题是用这种方式去单步调试，都可以实现具体的操作。
但是在一系列的操作中就出现了问题，从Results veiwer中可以看到点击的动作已经done，但是日期的弹出窗口怎么都无法出现。

可是用单步调试的方式又可以实现弹出日期的窗口。

不知道大家有没有遇到过类似的问题，求解释？求真相？
作者: 026300    时间: 2012-4-1 17:33
我猜测应该是object没有及时出现，依次使用setting，sync，waitproperty，wait试试吧



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2