软件测试论坛 › [QuickTest Professional] › 日期的弹出窗口的实现

wwhunter1214 发表于 2012-4-1 11:23:26

日期的弹出窗口的实现

点击实现方式一：Public Sub DateSelect( )
    On ErrorResume Next
        Wait Wait_Second
        nameDesc = tmpValue
        Set ImageDesc = Description.Create()
                ImageDesc("micclass").Value = "Image"
                ImageDesc("file name").Value ="date.gif"
        SetImageButtonObject= ParentObject.ChildObjects(ImageDesc)
        If ImageButtonObject.count() > 0 Then
      ImageButtonObject(1).Click
        Else
                ShowErrorMessageBox
        End If
        'AddCurrentStepValue tmpValue
End Sub点击实现方式二：Public Sub DateSelect( )
    On ErrorResume Next
        Wait Wait_Second
        nameDesc = tmpValue
        Set ImageDesc = Description.Create()
                ImageDesc("micclass").Value = "Image"
                ImageDesc("file name").Value ="date.gif"
        SetImageButtonObject= ParentObject.ChildObjects(ImageDesc)
        If ImageButtonObject.count() > 0 Then
      ImageButtonObject(1).FireEvent "onclick"
        Else
                ShowErrorMessageBox
        End If
        'AddCurrentStepValue tmpValue
End Sub点击实现方式三：Public Sub DateSelect()
    On ErrorResume Next
        Wait Wait_Second
        Set WebTableDesc = Description.Create()
                        WebTableDesc("micclass").Value = "WebTable"
                        WebTableDesc("name").Value ="DateCheck"
        Set TableObjs =ParentObject.ChildObjects(WebTableDesc)
        IfTableObjs.count()>0 Then
                TableObjs(0).ChildItem(1,6,"Image",0).Click
        End if
        Set WebTableDesc = Nothing
        Set TableObjs = Nothing
End Sub问题是用这种方式去单步调试，都可以实现具体的操作。
但是在一系列的操作中就出现了问题，从Results veiwer中可以看到点击的动作已经done，但是日期的弹出窗口怎么都无法出现。

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

不知道大家有没有遇到过类似的问题，求解释？求真相？

026300 发表于 2012-4-1 17:33:26

我猜测应该是object没有及时出现，依次使用setting，sync，waitproperty，wait试试吧

查看完整版本: 日期的弹出窗口的实现