51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1316|回复: 1
打印 上一主题 下一主题

[原创] 日期的弹出窗口的实现

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-4-1 11:23:26 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
点击实现方式一:
  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,但是日期的弹出窗口怎么都无法出现。

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

不知道大家有没有遇到过类似的问题,求解释?求真相?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-4-1 17:33:26 | 只看该作者
我猜测应该是object没有及时出现,依次使用setting,sync,waitproperty,wait试试吧
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-27 21:58 , Processed in 0.083059 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表