[原创]显示Windows的MSGBOX对话框

秋枫

函数：(MsgBox  msg  timeout  title  buttons)

2. ;;;Buttons
3. ;;;
4. ;;;0    OK
5. ;;;1    OK  and  Cancel
6. ;;;2    Abort,  Retry,  and  Ignore
7. ;;;3    Yes,  No,  Cancel
8. ;;;4    Yes  and  No
9. ;;;5    Retry  and  Cancel
10. ;;;
12. (setq  bt_OK  0
13.             bt_OK_Cancel  1
14.             bt_Abort_Retry_Ignore  2
15.             bt_Yes_No_Cancel  3
16.             bt_Yes_No  4
17.             bt_Retry_Cancel  5
18. )
20. ;;;Icon  Types
21. ;;;
22. ;;;16  Stop  Mark  icon
23. ;;;32  Question  Mark  icon
24. ;;;48  Exclamation  Mark  icon
25. ;;;64  Information  Mark  icon
27. (setq  icon_Stop  16
28.             icon_Question  32
29.             icon_Exclamation  48
30.             icon_Information  64
31. )
33. ;;;1    OK  button
34. ;;;2    Cancel  button
35. ;;;3    Abort  button
36. ;;;4    Retry  button
37. ;;;5    Ignore  button
38. ;;;6    Yes  button
39. ;;;7    No  button
40. (setq  rs_OK  1
41.             rs_Cancel  2
42.             rs_Abort  3
43.             rs_Retry  4
44.             rs_Ignore  5
45.             rs_Yes  6  
46.             rs_No  7)
48. (defun  msgbox  (  msg  timeout  title  buttons  /  ws)
49.     (setq  ws  (vlax-create-object  "wscript.shell"))
50.     (vlax-invoke-method  ws  'popup  msg  timeout  title  buttons)
51. )
53. ;;;  test
54. ;;;(if  (=  (msgbox  "This  is  a  test  line."  5  "Qiu  Feng"  (+  bt_OK_Cancel  Icon_Question))
55. ;;;              rs_OK)
56. ;;;    (alert  "You  select  OK")
57. ;;;    (alert  "You  select  Cancel")
58. ;;;)

;;;Buttons ;;; ;;;0    OK ;;;1    OK  and  Cancel ;;;2    Abort,  Retry,  and  Ignore ;;;3    Yes,  No,  Cancel ;;;4    Yes  and  No ;;;5    Retry  and  Cancel ;;; (setq  bt_OK  0             bt_OK_Cancel  1             bt_Abort_Retry_Ignore  2             bt_Yes_No_Cancel  3             bt_Yes_No  4             bt_Retry_Cancel  5 ) ;;;Icon  Types ;;; ;;;16  Stop  Mark  icon ;;;32  Question  Mark  icon ;;;48  Exclamation  Mark  icon ;;;64  Information  Mark  icon (setq  icon_Stop  16             icon_Question  32             icon_Exclamation  48             icon_Information  64 ) ;;;1    OK  button ;;;2    Cancel  button ;;;3    Abort  button ;;;4    Retry  button ;;;5    Ignore  button ;;;6    Yes  button ;;;7    No  button (setq  rs_OK  1             rs_Cancel  2             rs_Abort  3             rs_Retry  4             rs_Ignore  5             rs_Yes  6               rs_No  7) (defun  msgbox  (  msg  timeout  title  buttons  /  ws)     (setq  ws  (vlax-create-object  "wscript.shell"))     (vlax-invoke-method  ws  'popup  msg  timeout  title  buttons) ) ;;;  test ;;;(if  (=  (msgbox  "This  is  a  test  line."  5  "Qiu  Feng"  (+  bt_OK_Cancel  Icon_Question)) ;;;              rs_OK) ;;;    (alert  "You  select  OK") ;;;    (alert  "You  select  Cancel") ;;;)

BDYCAD

好程序 ! 鮮花表揚.

tukuitk

好程序 !

龙龙仔

秋風兄:
wscript.shell引用項目是那一個

秋枫

我没有在VBA中试过。这是WScript Host自带的ActiveX服务。
所以，我猜是这个：

meflying

应该是这个，我在VBA里这样调用的，
Sub aaa()
  Dim ws As WshShell
  Set ws = New WshShell
  ws.Popup "a", 2, "hello", 33
End Sub

秋枫

Good，你对了。

龙龙仔

;;非常好,有空再研究
(defun C:TT (/ WS USERNAME USERDOMAIN)
  (setq WS (vlax-create-object "wscript.network"))
  (alert
    (strcat "USERNAME= "
            (vlax-get-property WS 'USERNAME)
            "\n\nUSERDOMAIN= "
            (vlax-get-property WS 'USERDOMAIN)
            "\n\nCOMPUTERNAME= "
            (vlax-get-property WS 'COMPUTERNAME)
    )
  )
  (vlax-release-object WS)
)

meflying

龙兄的那些对象的方法和属性都是这样从VB或VBA中去获得吗？

龙龙仔

1. 
   
2. 可以這麼說,也就是把VB或VBA或 vb script & java script轉為vlisp格式
   
3. 
   
4. 下列從網上找的儲存為: popup.js
   
5. 
   
6. function showit(){
   
7. 　　　 var Message = "Hello, World!";
   
8. 　 var timeout = 0;
   
9. 　 var title = "Hello, World!";
   
10. 　 var buttons = 65;
    
11. 　 var rslt;
    
12. 
    
13. 　 var WS = WScript.CreateObject("WScript.Shell");
    
14. 　 rslt = WS.Popup(Message, timeout, title, buttons);
    
15. 　 if ( rslt == 2 ) {
    
16. 　 WScript.Quit;
    
17. 　 }
    
18. 　 }
    
19. 　 showit();
    
20. 
    
21. 是不是很像秋楓兄的!!
    

复制代码