用于VB做的COM,lisp调用MsgBox消息处理框。

455383153

[Actionscript3] 纯文本查看 复制代码

(Zz:Msgbox  "Do you want to continue?" 1 "提示")
(Zz:Msgbox  "Do you want to continue?" 2 "提示")
(Zz:Msgbox  "Do you want to continue?" 3 "提示")
(Zz:Msgbox  "Do you want to continue?" 4 "提示")
(Zz:Msgbox  "Do you want to continue?" 5 "提示")
(Zz:Msgbox  "Do you want to continue?" 16 "提示")
(Zz:Msgbox  "Do you want to continue?" 32 "提示")
(defun Zz:Msgbox(msg Button Title / rndobj files )
(if (and 
     (= (type msg) 'STR)
     (= (type Button) 'INT)
     (= (type Title) 'STR)	 
     )
  (progn
  (if (= nil *runobj*)
  (setq *runobj* (vlax-create-object "vbmsgbox.MSG"))
  )
 (if  *runobj*	 
  (progn
  (setq myMsgbox(vlax-invoke-method *runobj* "MyMsgBox"  msg Button Title))
  )
  (alert "请注册控件")
    )
  )
  (alert "参数类型错误")
  )
 myMsgbox
)

MsgBox的用法可以自己百度，附件也给了一些常用的说明

phi03c

thank you wonderful