[密技]：自动消失的提示框程序实例

梦断江南 · 发表于 2004-9-19 17:01:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

给大家一个实例：
显示一个信息框，但是这个信息框和vl的alert不同，可以定制停留时间，然后自动消失：）
程序思路是调用wscript.shell的popup方法.详细的参数设置可以参考
wscript脚本帮助.

(setq *wsh (vlax-create-object "wscript.shell"))
(vlax-invoke *wsh 'popup "are u ready?" 3 "wsc.test" 33)
;; 参数：内容，停留秒数，标题，图像及按钮

按钮类型

值说明
0 显示“确定”按钮。
1 显示“确定”和“取消”按钮。
2 显示“放弃”、“重试”和“忽略”按钮。
3 显示“是”、“否”和“取消”按钮。
4 显示“是”和“否”按钮。
5 显示“重试”和“取消”按钮。

图标类型

值说明
16 显示“停止标记”图标。
32 显示“问号”图标。
48 显示“感叹号”图标。
64 显示“信息标记”图标。

返回值 intButton 表示用户单击按钮的次数。如果用户在 nSecondsToWait 秒之前未单击按钮，则 intButton 设为 –1。

值说明
1 “确定”按钮
2 “取消”按钮
3 “放弃”按钮
4 “重试”按钮
5 “忽略”按钮
6 “是”按钮
7 “否”按钮

点击演示可以看的更清楚

zhang8755 · 发表于 2004-9-19 17:35:39

真是把ACTIVE X技术用到家了

墨色寒冰 · 发表于 2004-9-19 17:41:38

真是高手呀，佩服佩服

zhang8755 · 发表于 2004-9-19 18:12:35

刚才忘了问了，楼主：从哪能找到wscript脚本帮助

梦断江南 · 发表于 2004-9-19 20:14:38

回楼上，网上很多地方有下载的。

雪山飞狐(lzh) · 发表于 2004-9-19 20:37:43

官方网站
http://msdn.microsoft.com/librar ... html/wsmthsleep.asp

fylinwater · 发表于 2004-9-20 10:08:35

2002下怎么不行？不会自动消失什么原因？

saltxf · 发表于 2004-9-20 17:08:49

斑竹果真厉害，wscript.shell 是什么东东？

它山之石 · 发表于 2004-9-21 10:11:28

能否在R14中使用？
我在2004中也无法使用。提示如下

; 错误: no function definition: VLAX-CREATE-OBJECT

zhang8755 · 发表于 2004-9-21 11:27:52

R14不能用,R2000以上可以,在前面加上这一句(vl-load-com)

梦断江南 · 发表于 2004-9-21 14:11:13

r14下要用可试试先加载r14版本的vlisp
不过有些函数以前的版本不一定支持，先试试看吧

ycao · 发表于 2004-9-21 14:55:24

斑竹太厉害了！

urljit · 发表于 2004-11-2 20:15:39

楼主：给个完整的程序代码，让俺这笨人也见识见识。

aeo · 发表于 2004-11-3 21:26:57

最初由 lzh741206 发布
[B]官方网站
http://msdn.microsoft.com/librar ... html/wsmthsleep.asp [/B]

http://msdn.microsoft.com/librar ... l/wsobjwshshell.asp

下面的方法

aeo · 发表于 2004-11-3 21:27:30

最初由 lzh741206 发布
[B]官方网站
http://msdn.microsoft.com/librar ... html/wsmthsleep.asp [/B]

http://msdn.microsoft.com/librar ... l/wsobjwshshell.asp

下面的方法

账号		自动登录	找回密码
密码			立即注册

[密技]：自动消失的提示框程序实例

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子