自动关闭弹出对话框

上一篇 / 下一篇  2015-05-25 17:12:41 / 个人分类：原创

查看( 521 ) / 评论( 0 ) / 评分( 0 / 0 )
'自动关闭弹出对话框
Dim v
Dialog("Login").WinEdit("Agent Name:").Set "tao"
v = Dialog("Login").WinEdit("Agent Name:").GetROProperty ("text")
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Popup v,5,"Title"  '输入变量值，并在5秒后关闭对话框

收藏 举报

TAG: 对话框

 

评分：0

我来说两句

我的栏目

日历

« 2024-04-26  
日 一 二 三 四 五 六
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

  • 访问量: 2929
  • 日志数: 14
  • 建立时间: 2012-12-20
  • 更新时间: 2015-05-27

RSS订阅

Open Toolbar