不如这个函数来的简单
- ;;;==================================================================
- ;;;mc_PopupBox 弹出可定时自动关闭的消息窗口
- ;;函数名:mc_PopupBox
- ;|函数功能:弹出可定时自动关闭的消息窗口
- 作者:明经通道mccad
- 参数:strText:消息窗口的文字内容
- intWaitTime:弹出窗口显示的时间,按秒计算
- strTitle:消息窗口的标题
- intDispType:窗口显示的样式,包括按钮和图标,具体如下:
- 按钮类型 0. 显示“确定”按钮 1. 显示“确定”和“取消”按钮
- 2. 显示“终止”、“重试”和“忽略”按钮 3. 显示“是”、“否”和“取消”按钮
- 4. 显示“是”和“否”按钮 5. 显示“重试”和“取消”按钮
- 图标类型 16 显示停止标记图标 32 显示问号图标
- 48 显示感叹号图标 64 显示信息标记图标
- 返回值:指示用户所单击的按扭编号。若用户在 intWaitTime 秒之前不单击按扭,则 返回值为 -1 。
- 1. “确定”按扭 2. “取消”按扭 3. “终止”按扭 4. “重试”按扭 5. “忽略”按扭 6. “是”按扭 7. “否”按扭
- 示例
- (defun c:mcbox()
- (mc_PopupBox "明经通道欢迎你" 2 "明经通道函数示例" 64)
- )
- |;
- ;;;==================================================================
- (defun mc_PopupBox (strText intWaitTime strTitle intDispType)
- (vlax-invoke-method (vlax-create-object "wscript.shell") 'Popup strText intWaitTime strTitle intDispType)
- )
|